Mit folgendem Zweizeiler lässt sich das Stammverzeichnis des ausgeführten Makros auslesen:


   Dim apc
   
  
   Set apc = CreateObject("MSAPC.Apc")
   MsgBox apc.VBE.ActiveVBProject.FileName

Zum Seitenanfang