Excel: Buscar un dato y seleccionarlo

[Pablus00]

Hola Colegas, tengo un codigo en excel, para buscar un numero de pedido que escribo en la Hoja1, y este codigo lo busca en la Hoja12:
si este está, selecciona dicha fila


El problema ocurre si el numero que escribo no coincide con los que hay me da error. Y si no escribo nada me da "verdadero" como resultado de busqueda?Necesito ayuda en el codigo para clasificar los errores y que lo mencione en el msgbox

Sub prueba()

Hoja12.Select
Application.ScreenUpdating = False



busca_envio = [D:D].Find(What:=Hoja1.Range("H53").Value).Activate

If busca_envio = True Then 'no se porq da valor verdadero cuando no tiene parametro de busqueda
MsgBox ("no esta")
Else
If busca_envio <> verdadero Then

Rows(ActiveCell.Row & ":" & ActiveCell.Row).Select
MsgBox ("encontrado")
End If
End If


Application.ScreenUpdating = True
End Sub