La sintassi per On Error è:
codice:
On Error Resume Next

'... codice che potrebbe generare un errore

'trappola errore
If Err.Number <> 0 Then
   'gestione errore
End If

'fine gestione errore
On Error Goto 0
Mi piacerebbe sapere in che riga si verifica quell'errore, tanto per curiosità!