Die SubProzedur selber ist das Macro.

Geh in den VBA-Editor, öffne im Projektexplorer das Objekt "ThisDocument".
Im Editorfenster wählst du in der linken Dropdown-Liste "Dokument" und in der rechten dann "Open" (falls das nicht automatisch passierte.

VBA generiert automatisch einen Prozedur-Rahmen:

public sub Document_Open()
end sub

In diesen Body kopierst du dann den Inhalt aus dem automatisch generierten Macro, also den Teil zwischen "Public sub Macro1" und "End Sub".

Füge in dein Macro ggf. am Anfang:

on error goto Fehler

und vor "End Sub"

Fehler:

ein.

Damit führen Laufzeitfehler (keine Verbindung o.ä.) nicht zum Hängenbleiben.