Coloquei assim e deu certo...
Private Sub btn_Excluir_Catalogo_Click()
Dim w As Worksheet
Dim Nome As String
Set w = Sheets("Cadastros")
Nome = txtbox_Cadastro.Value
If Nome = "" Then
MsgBox "Nenhum cadastro selecionado. O Processo será abortado", vbInformation
Exit Sub
End If
w.Select
w.Range("A2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = Nome Then
ActiveCell.Cells.Delete
MsgBox "Registro apagado!"
txtbox_Cadastro.Value = ""
Call btn_Catalogo_Click
Exit Do
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Postado : 16/10/2016 6:09 pm