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

Y

yigalb

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.
 
H

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.
Click to expand...

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
 
B

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)
 
H

Hank Scorpio

Why pass the sheet name, why not the sheet object?
Click to expand...

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.
 
B

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
 
Top