Passing ActiveSheet to sub

[Richard Fox]

I'm trying to pass the active sheet to a routine but I'm having object problems. Not sure what to do.

Module_CurrentDisc
Sub Disc()
        Sheets("5S REFER").Select
        Module_CurrentDisc.CopyIOU (ActiveSheet) ' ERROR OCCURS HERE

        Sheets("5G REFER").Select
        Module_CurrentDisc.CopyIOU (ActiveSheet)

        Sheets("COMPL 24").Select
        Module_CurrentDisc.CopyIOU (ActiveSheet)
End Sub

Sub CopyIOU(ByVal Sh As Object)
      Msgbox("Do stuff to ActivSheet")
End Sub

EDIT:
I guess I should mention that the current sheet will change several times during the routine, so that's why I want to pass the sheet to it. I want to be able to revert to the calling sheet.

 

[GlennUK]

So, I don't understand why you have to pass the activesheet to the calling sheet. If the only reason why, is to revert to the calling sheet, then why don't you code it like this:

Module_CurrentDisc
Sub Disc()
Sheets("5S REFER").Select
CopyIOU

Sheets("5G REFER").Select
CopyIOU

Sheets("COMPL 24").Select
CopyIOU
End Sub

Sub CopyIOU()
ShName=ActiveSheet.Name
Msgbox("Do stuff to ActivSheet")
Worksheets(ShName).Activate
End Sub

Cheers, Glenn.

 

[Richard Fox]

Thank you,
I tried several different ways to save the sheet name, but was unsuccessful. Now I can delete about 6 pages of repeated code.