Ajustar Macro de búsqueda para mensaje error

La búsqueda siempre encuentra algo, ya que le estás diciendo, que busque lo que tienes en la celda A1, en todas las celdas, y como la celda A1 es parte de todas las celdas pues si lo encuentra.

Prueba lo siguiente, estoy buscando en todas las celdas, pero si el resultado encontrado está en la misma celda A1, entonces que envíe el mensaje.

Sub Botón1_Haga_clic_en()
Set resultado = Cells.Find(What:=Range("A1"), After:=Range("A1"), _
    LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not resultado Is Nothing Then
    If resultado.Address = "$A$1" Then
        MsgBox "No se encontraron coincidencias."
    End If
End If
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.

Hola experto, ya aplique el código y si genera el msgbox si no hay coincidencia, pero ahora como puedo realizar la búsqueda, ya que no la hace

Con lo siguiente se pone el cursor en la primera coincidencia.

Sub Botón1_Haga_clic_en()
Set resultado = Cells.Find(What:=Range("A1"), After:=Range("A1"), _
    LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not resultado Is Nothing Then
    If resultado.Address = "$A$1" Then
        MsgBox "No se encontraron coincidencias."
    Else
        resultado.Select
    End If
End If
End Sub

Ya casi queda el archivo, ¿se puede que al hacer la búsqueda, la siga repitiendo, de igual forma que la función de buscar de office, de modo que no me salga, el mensaje de no hay coincidencia, al terminar la primer búsqueda?