Solved: Passing Worksheets

[ProteanBeing]

This is a mock example of what i am trying to do:
Sub ReceiveProcedure(Log As Worksheets)
MsgBox prompt:=Log.Range("A1")
End Sub

Sub PassWork()
Set MySheet = Worksheets("Sheet1")
ReceiveProcedure Log:=MySheet
End Sub


What I am trying to do is create a class to handle different worksheets (defined when a new class is created). I need to pass that sheet to the class. How can I do that?

[Bob Phillips]

Sub ReceiveProcedure(ByVal Log As Worksheet)
MsgBox prompt:=Log.Range("A1")
End Sub

Sub PassWork()
Set MySheet = Worksheets("Sheet1")
ReceiveProcedure Log:=MySheet
End Sub

[ProteanBeing]

thanks