Hallo Borum,
Ich weiß ja nicht, ob es wirklich geschickt ist, eine solche Funktionalität mit Makros zu erreichen, die in einzelnen Arbeitsmappen gespeichert sind.
Wie auch immer - eine einfache Variante könnte darin bestehen, das akt. Verzeichnis vorübergehend zu ändern und dann den ganz normalen Speichern Unter-Dialog aufzurufen:
Const STANDARD_ABLAGE = "\\Dein Server\Deine Freigabe\Deine Ablage"
Dim strCurDir As String
strCurDir = CurDir()
ChDir STANDARD_ABLAGE
Application.Dialogs(xlDialogSaveAs).Show
ChDir strCurDir
Etwas schwieriger - und ggf. auch anders zu realisieren - wäre es, wenn du verhindern willst, dass die Mappe trotzdem an anderem Ort gespeichert wird.
Gruß
Uli