Public Sub PublProc(ByRef ws As Worksheet)
    With ws
        .Cells( 2 ,  2 ).Value = "Hello!"
        .Cells( 1 ,  1 ).Interior.ColorIndex =  4 
        MsgBox .Name
    End With
End Sub

Public Sub Test()
    PublProc ActiveWorkbook.Worksheets( 1 )
    PublProc ActiveWorkbook.Worksheets( 3 )
End Sub

Public Sub PublProc(ByRef ws As Worksheet, ByVal nRow As Long)
    With ws
        .Cells(nRow,  2 ).Value = "Hello!"
        .Cells(nRow,  1 ).Interior.ColorIndex =  4 
        Debug.Print .Name
    End With
End Sub

Public Sub Test()
    PublProc ActiveWorkbook.Worksheets( 1 ),  50 
    PublProc ActiveWorkbook.Worksheets( 1 ),  100 
    PublProc ActiveWorkbook.Worksheets( 3 ),  25 
End Sub

Public Sub Исполнитель(ByRef ws As Worksheet, ByVal nRow As Long)
    With ws
        .Activate
        .Rows(nRow).Select
    End With
End Sub

Public Sub Вызов()
    Исполнитель ActiveWorkbook.Worksheets( 3 ),  3 
End Sub

test.test1 (w)

Public Sub test1(ByRef wksh As Worksheet)
    MsgBox wksh.Name
End Sub

Public Sub qqq()
Dim w As Worksheet, test As Class1
    Set test = New Class1

    For Each w In Application.Worksheets
          test.test1 w
        ' или же Call test.test1(w)
    Next
End Sub