Visual Basic - ¡¡ESTA RUTINA ME DA ERROR!!

Esta rutina es para buscar una palabra exacta en la columna D de una hoja de excel, y si encuentra dicha palabra que active la celda en la que se encuentre la palabra.
El problema es que sino encuentra ninguna palabra igual me da ERROR.
¿Cómo puedo hacer para evitar ese error en caso de que no encuentre ninguna palabra igual?


x = InputBox("¿Qué desea buscar?", "Busqueda en la columna D")

Worksheets(1).Columns("D:D").Find(What:=x, LookAt:=xlWhole).Activate

¿Has probado con la sentencia On Error?:
On Error GoTo hayError
....
....
hayError:
If Err.Number = [NumeroError] Then
MsgBox "No encontrado el dato"
Exit Sub
End If
Saludos