Intanto togli (o commenta) l'istruzione:

On Error Resume Next

poi fornisci il messaggio di errore che si genera e la riga in cui si genera