Opened Workbooks are still opened after executing Macro (Workbook.Close doesn't work)

[Jan Karel Pieterse]

What happens if you change the .Open line to this:

        Dim autom As Long
        autom = Application.AutomationSecurity
        Application.AutomationSecurity = msoAutomationSecurityForceDisable
        Set wb = Workbooks.Open(folderName & "\" & DateiName & ".xlsm")
        Application.AutomationSecurity = autom