Erro em tempo de execução '1004': O método Select da Classe Range falhou

[amurilosantos]

Pessoal criei um botão em meu Excel que chama um Form para que de dentro da Planilha "Menu de Cadastros" ele apague a linha na planilha "cadastro de Veiculos" relacionada ao registro informado na caixa de texto deste Form.
Ao fazer a exclusão, esta sendo apresentada a seguinte mensagem de erro:
"Erro em tempo de execução '1004': O método Select da Classe Range falhou"

Segue abaixo o código:

Private Sub BtnExclui_Click()
'Declarar a variável Resp para receber uma resposta
Dim Resp As Integer

'Verificar se o texto foi digitado na caixa de pesquisa
If TbPlacaVeiculo.Text = "" Then
MsgBox "Digite a placa do veículo"
TbPlacaVeiculo.SetFocus
Exit Sub
End If

'Fazer a busca do registro digitado pelo usuário
With Worksheets("Cadastros_de_Veiculos").Range("B:B")
Set c = .Find(TbPlacaVeiculo.Value, LookIn:=xlValues, LookAt:=xlWhole)

If Not c Is Nothing Then
Resp = MsgBox("Tem certeza que deseja excluir o registro?", vbYesNo, "Confirmação")
If Resp = vbYes Then
c.Select
Selection.EntireRow.Delete
'Limpar as caixas de texto
TbPlacaVeiculo.Value = Empty
'Colocar o foco na caixa de texto
TbPlacaVeiculo.SetFocus
Else
MsgBox "O registro não será excluído!"
End If
Else
MsgBox "Placa de Veículo não encontrada!"
End If
End With
Exit Sub

End Sub

Estou aproveitando e anexando a planilha que esta sendo feita no Excel 2019

[Reinaldo]

Experimente:

Código: Selecionar todos

Private Sub BtnExclui_Click()
'Declarar a variável Resp para receber uma resposta
Dim Resp As Integer

'Verificar se o texto foi digitado na caixa de pesquisa
If TbPlacaVeiculo.Text = "" Then
     MsgBox "Digite a placa do veículo"
     TbPlacaVeiculo.SetFocus
     Exit Sub
End If

'Fazer a busca do registro digitado pelo usuário
With Worksheets("Cadastros_de_Veiculos").Range("B:B")
    Set c = .Find(TbPlacaVeiculo.Value, LookIn:=xlValues, LookAt:=xlWhole)

    If Not c Is Nothing Then
        Resp = MsgBox("Tem certeza que deseja excluir o registro?", vbYesNo, "Confirmação")
        
        If Resp = vbYes Then
            Rows(c.Row).Select
             Selection.EntireRow.Delete Shift:=xlUp
             'Limpar as caixas de texto
             TbPlacaVeiculo.Value = Empty
             'Colocar o foco na caixa de texto
             TbPlacaVeiculo.SetFocus
        Else
             MsgBox "O registro não será excluído!"
        End If
    Else
         MsgBox "Placa de Veículo não encontrada!"
    End If
End With
Exit Sub

End Sub

[amurilosantos]

Muito obrigado, fiz o ajuste recomendado e ficou muito bom...

[amurilosantos]

Muito obrigado, fiz o ajuste recomendado e ficou muito bom...