How to pass a workshhet name as a parameter into a subroutine ?

[Guest]

Can someone give me an example how to pass a workshhet name as a parameter
into a subroutine ?
I want to do same thing into different worksheets.

 

[Hank Scorpio]

Can someone give me an example how to pass a workshhet name as a parameter
into a subroutine ?
I want to do same thing into different worksheets.

One example:


Sub CallingProcedure()

'If you know the name of the sheet
CalledProcedure "Sheet2"

'Or if you just want the action on the current sheet
CalledProcedure ActiveSheet.Name

End Sub



Sub CalledProcedure(SheetToActOn As String)

'Put the time into cell A1
Worksheets(SheetToActOn).Range("A1") = Now()

End Sub

 

[Bob Phillips]

Why pass the sheet name, why not the sheet object?

Sub CallingProcedure()

'If you know the name of the sheet
CalledProcedure Worksheets("Sheet2")

'Or if you just want the action on the current sheet
CalledProcedure ActiveSheet

End Sub



Sub CalledProcedure(SheetToActOn As Worksheet)

'Put the time into cell A1
SheetToActOn.Range("A1") = Now()

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Hank Scorpio]

Why pass the sheet name, why not the sheet object?

Because that's not what the OP asked for. In the absence of him/her
stating what s/he was planning to do with the sheet name, I prefer not
to make assumptions.

 

[Bob Phillips]

Hi Hank,

It was really a question for the OP, I should have included his name.

After all, with experience like ours -)), sometimes we can help by
suggesting an alternative approach

Bob