[VBA Excel] Progetti che non si chiudono

[ibernet]

Buondì a tutti,
quando eseguo questo codice: (n.b. salvo in formato htm)

Sub Agg_Status()

Application.DisplayAlerts = False

    Sheets("Foglio1").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "percorso\nomefile.htm", FileFormat:= _
        xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close

End Sub

Sulla sinistra del report rimane aperto nella lista dei progetti del VBA
VBAProject (nomefile.htm)

Essendo che questo codice sta in una routine che cicla anche 1000 volte mi da un po' fastidio..
N.b. se controllo nei riferimenti vedo per ogni progetto rimasto aperto "NON SALVATO: VBAProject"

Sembra quasi che salvando il file in htm si generi qualche errore..

Conoscete un modo per forzare la chiusura dei progetti?

Se non fossi stato chiaro son qua..
Thks