VBA declar & pass worksheet name through subs

[ABCDH]

Hi - I would like to pass worksheet names through multiple subs, but I'm not sure the best way to do this. I would like to say that w1=Sheet1, w2 = Sheet2 and be able to use w1, w2 through all subs. Below is an example. Thanks!!

Dim w1 as Worksheet, w2 as Worksheet

Sub RunAllSubs()
Test
Code
Hmmm
End Sub

Sub Test()
w1.visible = true
w2.visible = true
End Test

Sub Code()
w2.UsedRange.Copy Destination:=w1.Columns(1)
End Sub

Sub Hmmm()
RowNumber = w2.cells(Rows.Count,"A").End(xlUp).Row
End Sub

 

[Sektor]

Sub RunAllSubs()
    Call Test(w1, w2)
    Call Code(w2)
    Call Hmmm(w2)
End Sub

Sub Test(sheet1, sheet2)
    sheet1.Visible = True
    sheet2.Visible = True
End Sub

Sub Code(sheet)
    sheet.UsedRange.Copy Destination:=w1.Columns(1)
End Sub

Sub Hmmm(sheet)
    RowNumber = sheet.Cells(Rows.Count, "A").End(xlUp).Row
End Sub

 

[ABCDH]

I just realized that you did not input w1=Sheet1, w2=Sheet2.

Is this automatically connected with Call Test(w1,w2) and Sub Test(sheet1,sheet2)?

Thank you!

 

[ABCDH]

Sorry - my 1st question did not save.

What is the purpose of Call?
Call Test(w1,w2)

 

[Sektor]

w1 is supposed to be a variable holding sheet. It can be also programmatic name (in properties of sheet there's a "(Name)" property - it's programmatic name).
But if you wish to explicitly reference to them, then this is it (Call says that we're calling some method - we can do without it, of course):

Sub RunAllSubs()

    Call Test(Sheets(1), Sheets(2))
    Call Code(Sheets(2))
    Call Hmmm(Sheets(2))

    'Or without "Call"
    'Test Sheets(1), Sheets(2)
    'Code Sheets(2)
    'Hmmm Sheets(2)
    
End Sub

Sub Test(sheet1, sheet2)
    sheet1.Visible = True
    sheet2.Visible = True
End Sub

Sub Code(sheet)
    sheet.UsedRange.Copy Destination:=w1.Columns(1)
End Sub

Sub Hmmm(sheet)
    RowNumber = sheet.Cells(Rows.Count, "A").End(xlUp).Row
End Sub

 

[ABCDH]

OK. Thank you for the explanation. I will need to play with it to understand how it works. Thank you so much for pointing me in the right direction!