Necesito una macro buscar.. Me ayudan

Te mando mi ejemplo:

Con esta macro primero nos pedirá el dato que buscamos para buscarlo en la columna A desde A1 hasta A1000. Si lo encuentra nos devolverá un mensaje diciendo en qué celda se encuentra y además esa celda se queda seleccionada.

Sub ejemplo()
'por luismondelo
dato = InputBox("que dato buscamos???")
If dato = "" Then Exit Sub
Set busca = ActiveSheet.Range("a1:a1000").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
MsgBox "dato encontrado en la celda: " & ubica
Range(ubica).Select
End If
End Sub

no olvides finalizar la consulta