Ofimática - fallo en busqueda de datos.

Buenas,
la sentencia Selection.Find(What:=fecha).Select me esta dando un error cuando no encuentra el dato especificado, si lo encuentra todo va bien pero si no me da un error en tiempo de ejecucion, Sabeis como puedo hace par que no me de este error o gestionarlo, es decir si no encuentra el dato me haces esto otro.
Gracias.

Dim rng As Excel.Range
Set rng = Selection.Find(What:=fecha)
If Not rng Is Nothing Then
rng.Select
Else
'No encontrado
End If
Set rng = Nothing

Saludos desde Baires, JuanC

PD: estas cuestiones preguntalas en el foro de VBA

Ok JuanC, muchas gracias.