Inserisci una

On Error Resume Next

all'inizio della Sub e controlla la variabile Err dopo la Open ...