Caros, boa tarde!

Possuo um formulário com validação de dados (campos lista), em que os usuários deveriam escolher uma das opções pré definidas na listagem, porém alguns deles copiam a informação de um outro arquivo e colam no formulário e assim a validação perde sua eficácia.

Pesquisando na internet, encontrei um código para aceitar "colar valores" apenas se estiverem de acordo com a validação de dados, caso contrário a colagem seria desfeita, testei a solução porém a mesma não surtiu o efeito desejado.

Gostaria de ajudar para debugar o código e assim resolver o problema.

If Not Intersect(Range("A:A"), Target) Is Nothing Then
On Error Resume Next
VT1 = Range("A17:A20000").Validation.Type

If Err.Number <> 0 Then
Application.Undo
MsgBox "Operação cancelada" & vbCrLf _
& "Violação de regras de validação de Dados", vbCritical
Exit Sub
End If
If Target.Value <> UCase(Target) Then
MsgBox "Erro"
Application.Undo
Exit Sub
End If
End If

Desde já agradeço a disposição em ajduar.