Aquela macro de busca que vive dando erro - VBA Básico

Quem nunca passou por isso? Se já tentou gravar uma macro no começa da carreira em VBA, você sabe do que estou falando. Neste vídeo ajuda a entender um pouco mais dos truques que ajudarão a você decifrar os segredos dessa tão utilizada ferramenta.
Excel e o Gravador de Macros
• Excel e o Gravador de ...
VBA - Otimizando a entrada de dados com o InputBox
• VBA - Otimizando a ent...
Usando o MsgBox no VBA - Parte 1
• Usando o MsgBox no VBA...
Código
Sub MinhaBusca()
'
' MinhaBusca Macro
'
'
busca = InputBox("Digite sua busca", "Minha busca")
Set resultado = Cells.Find(What:=busca, After:=Range("C3"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If resultado Is Nothing Then
MsgBox "Nada foi encontrado"
Else
resultado.Activate
End If
End Sub
Instrução
Cells.Find(...).Activate
Cells -- contexto ou objeto sobre o qual está sendo executada a próxima ação
Find -- Operação executada sobre o objeto que retorna um resultado
Activate -- Operação executada sobre o objeto que retorna um resultado
Sobre as células em Cell, execute a operação Find e ative a célula que contém o resultado usando o Activate