VBA - Fehler

Dim wks As Worksheet
Dim mdl As Object
With ActiveWorkbook.VBProject
For Each wks In Worksheets .......

ausführen will

Laufzeitfehler '1004':

Die Methode 'VBProject' für das Objekt '_Workbook' ist fehlgeschlagen

Was kann da falsch sein ?

Danke im voraus