Folgendes Makro ermittelt auf ganz einfache Art und Weise das Installationsverzeichnis von Windows.

Public Function WinDir() As String

WinDir = Environ("windir")

End Function

Das Windows Verzeichnis kann hierdurch in allen Makros verwendet werden.

z.B.:

Sub Test()

MsgBox(WinDir)

End Sub