Globale Variable

Private Sub Workbook_Open()) die letzte Version von einem Programm herausfinden und diese dann  _
als globale Variable benutzen:
man hat vielleicht von einem Programm mehrere Versionen drauf
z.B.  \PROGRAMM 18\
bzw.  \PROGRAMM 19\
dieses Makro findet die neueste Version raus... aber wie kann ich diese PROGPFAD  als  _
eine Globale Variable verwenden?
Public PROGPFAD As String

Private Sub Workbook_Open()
Dim VERSION As Integer
VERSION = 25
Do While VERSION >= 13
If Dir("C:\Program Files\PROGRAMM " & VERSION & "\")  "" Then
PROGPFAD = "C:\Program Files\PROGRAMM " & VERSION & "\PROGRAMM.exe"
Exit Do
End If
VERSION = VERSION - 1
Loop
End Sub

noch ne globale Frage zu globalen Variablen... müssen die Public Variablen z.b. "Public PROGSPEED As String" auf jedem Tabellenblatt sein, oder reicht dies unter "Dieser Arbeitsmappe"?

das Thema "globale Variablen" ist neue für mich :-)

Danke

Timonski