Makro von Personal.xlsb ausführen

Ich habe über die Makro aufzeichnen Funktion ein einfaches Makro angelegt das in ein paar Spaltenbreiten anpasst einige Felder färbt und 3 Einträge verändert.
Dieses habe ich "formatierung" genannt.
Wenn ich nun die Datei "ActiveDirectoryExport.xlsx" und das Makro manuell öffne und das Makro ausführe funktioniert es auch wunderbar. Nun möchte ich es aber als Teil eines größeren Programms ausführen.
Dazu habe ich diese VBS geschrieben

Code-----------------------------------
Set oExcel = WScript.CreateObject("Excel.Application")
On Error Resume Next
With oExcel
.Visible = FALSE
Application.DisplayAlerts = False
Set oDoc = .Workbooks.Open("c:\ADDGE\ActiveDirectoryExport.xlsx")
.Run "PERSONAL.XLSB!formatierung"
oDoc.Save
oDoc.Close
.Quit
End With
CodeEnde----------------------------------

Wenn ich diese per Doppelklick oder auch über eine Batch ausführe passiert gar nichts. Es erscheint als auch keine Fehlermeldung
Wenn ich .Visible auf TRUE setze sehe ich wie die Datei aufgeht und sich gleich wieder schließt.
Könnt ihr mir weiterhelfen?

Edit: wenn ich den Close und den Quit befehl wegnehme sehe ich das nach öffnen einfach garnichts passiert

.Run "'C:\PfadzurDatei\PERSONAL.XLSB'!formatierung"