Questo mi sembra una conseguenza di qualche errore precedente che non si e' manifestato per la On Error Resume Next

Elimina per una prova tale istruzione con

' On Error Resume Next

e avvia il programma per capire dove e' il vero errore.