Intenta borrar antes el error anteriro así:
Err.Clear
antes de volver a usar
On Error Resume Next
Espero que te ayude, saludos. :)
<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>