Amigos,
Tenho o código que abaixo transcrevo, mas não estou conseguindo encontrar o erro, já que o botão "EXCLUIR", não está funcionando.
Tem como alguém verificar onde está o erro?
Agradeço a atenção de todos.
Mario

Private Sub cmdexcluir_Click()
Call Módulo1.liberar
Dim Resposta As Integer
With Worksheets("CLIENTES").Range("A:A")
Set c = .Find(txtcpf.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
Resposta = MsgBox("Tem certeza que deseja excluir o registro selecionado?", vbYesNo, "EXCLUSÃO")
If Resposta = Yes Then
c.Select
Selection.EntireRow.Delete
txtcpf.Value = Empty
txtnome.Value = Empty
txtendereco.Value = Empty
txtbairro.Value = Empty
txtcidade.Value = Empty
txtuf.Value = Empty
txtcep.Value = Empty
txttelres.Value = Empty
txttelcom.Value = Empty
txttelcel.Value = Empty
txtemail.Value = Empty
txtcpf.SetFocus
Else
Exit Sub
End If
End If
End With
Exit Sub
End Sub