V isti datoteki (in modulu) pa sem sedaj napisal še en makro. Ta pa definicije ListCR ne pozna. Ker je nočem še enkrat napisati (listov je namreč veliko), želim definicijo narediti globalno. Torej, da bo 1x napisana in jo bodo vsi makroji v datoteki poznali.
Public ListCR As Worksheet
Sub PostaviListe()
Set Module1.ListCR = Worksheets("List1")
End Sub
Sub VsakaDrugaFunkcija()
' najprej kličite funkcijo, ki postavi imena listom
PostaviListe
' delajte z listi kar želite
ListCR.Cells(1, 1).Value = "ups!"
' ... in tako dalje
End Sub
Sub InNaslednjaFunkcija()
' najprej kličite funkcijo, ki postavi imena listom
PostaviListe
' delajte z listi kar želite
ListCR.Cells(1, 2).Value = "ups 2!"
' ... in tako dalje
End Sub
Ideja je torej v tem, da deklarirate globalne spremenljivke, za katere napišete funkcijo, kjer jih inicializirate. Nato pa to funkcijo kličete na začetku vaske druge funkcije.