VBA: Sheets som globale variabler

Prøv:
Public mySheet1 As Worksheet, mySheet2 As Worksheet, mySheet3 As Worksheet
Sub testx()  'eller hvad Sub ellers hedder
    Set mySheet1 = Sheets("Styringsark")
    Set mySheet2 = Sheets("Filplacering")
    Set mySheet3 = Sheets("Adresser")
End Sub

Jeg vil godt tænke mig, at følgende blev sat en gang for alle:

Set mySheet1 = Sheets("Styringsark")
Set mySheet2 = Sheets("Filplacering")
Set mySheet3 = Sheets("Adresser")

så jeg i mine subrutiner bare kan skrive mySheet1, mySheet2 eller mySheet3 uden først at skulle skrive:

Set mySheet1 = Sheets("Styringsark")
Set mySheet2 = Sheets("Filplacering")
Set mySheet3 = Sheets("Adresser")

Så skal du i kaldet af en subrutine overføre MySheetX som parameter - f.eks:

Kald af subrutine: minSubrutine1 mySheet2

Sub minSubRutine2(mitArk)
..
..
..
End Sub

Jeg forstår ikke helt, hvordan jeg "i kaldet af en subrutine overføre MySheetX som parameter".

Det som jeg har gjort indtil nu er:

Sub1()
Dim mySheet1, mySheet2, mySheet3 As Worksheet
Set mySheet1 = Sheets("Styringsark")
Set mySheet2 = Sheets("Filplacering")
Set mySheet3 = Sheets("Adresser")

'Noget mere kode

End Sub

Sub2()
Dim mySheet1, mySheet2, mySheet3 As Worksheet
Set mySheet1 = Sheets("Styringsark")
Set mySheet2 = Sheets("Filplacering")
Set mySheet3 = Sheets("Adresser")

'Noget mere kode

End Sub


Det som jeg godt kunne tænke mig er noget lignende:

Overordnede variabler, hvor jeg definerer en gang for alle og kan bruge i mine subrutiner:
Dim mySheet1, mySheet2, mySheet3 As Worksheet
Set mySheet1 = Sheets("Styringsark")
Set mySheet2 = Sheets("Filplacering")
Set mySheet3 = Sheets("Adresser")

Sub1()
Dim lastRow As Integer
lastRow = mySheet1.UsedRange.SpecialCells(xlCellTypeLastCell).Row

'Noget mere kode, hvor mySheet1, mySheet2 og mySheet3 indgå

End Sub

Sub2()
Dim lastColumn As Integer
lastColumn = mySheet3.UsedRange.SpecialCells(xlCellTypeLastCell).Column

'Noget mere kode, hvor mySheet1, mySheet2 og mySheet3 indgå

End Sub

Lukker