Hola:
On Error Resume Next
If Err.Number <> 0 Then
'Haces lo que tengas que hacer...
Err.Clear
End If
Espero te sirva. Un saludo. :)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>