Opgelost Problemen met VBProject

[keb]

Al jaren gebruik ik eenzelfde Excel-bestand met macro's om gegevens van mijn foto's op te slaan (met filesystem).
Een half jaar geleden werkte het bestand met macro's nog perfect.

Nu loop het vast op de regel "For each Ref In .VBProjects.References"
Wie weet raad?

Sub Scan()
'
Dim Ref As Object, CheckRefEnabled%
    CheckRefEnabled = 0
    With ThisWorkbook
        For Each Ref In .VBProject.References
            If Ref.Name = "Scripting" Then
                CheckRefEnabled = 1
                'MsgBox "Aanwezig"
                Exit For
            End If
        Next Ref
        If CheckRefEnabled = 0 Then
            .VBProject.References.AddFromGUID "{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0
        End If
    End With

 

[jkpieterse]

Staat toegang tot VBA project toestaan aan in vertrouwenscentrum?

 

[AHulpje]

Als je Sub Scan alleen gebruikt om een verwijzing naar Microsoft Scripting Runtime toe te voegen dan zou ik die eenmalig met de hand toevoegen en Sub Scan verwijderen.

 

[keb]

Hr. Pieterse, bedankt voor de tip: probleem opgelost