Sub ProcuraNome()

Dim Resp
Dim Mensagem

Nome:

Resp = InputBox("Qual nome você deseja encontrar?", "Nome")

If Trim(Resp) <> "" Then

Mensagem = MsgBox("Você quer encontrar o nome: " & Resp & "?", vbQuestion + vbYesNo, "Mensagem")

If Mensagem = vbNo Then GoTo Nome
If Mensagem = vbYes Then
On Error Resume Next
Range("B2:B100000").Find(What:=Resp, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

If Err.Number <> 0 Then
MsgBox ("Nome inexistente!")
Call ProcuraNome
Else
Range("B2:B100000").Find(What:=Resp, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End If

End If
End If

End Sub

Edson, boa noite!

Fiz um teste e não deu certo, a macro cai na MsgBox de nome inexistente, mesmo quando o nome existe.

Anexei a planilha novamente, para ajudar!

Obrigado pela ajuda.

Troque:

After:=ActiveCell

por

After:=Range("B2")

Muito obrigado Edson!!!

Agora ficou 100%