How to end macro on inital active worksheet containing macro button that was clicked

[Guest]

I developed a formating macro that can be run by clicking a button on anyone of 20 worksheets. Currently the macro always ends on the 20th worksheet. How can I get the macro to return me to the worksheet I was on when the macro was activated?

 

[Bob Phillips]

Set shFirst = Activesheet
'do your bit
shFirts.Activate

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

I developed a formating macro that can be run by clicking a button on

anyone of 20 worksheets. Currently the macro always ends on the 20th
worksheet. How can I get the macro to return me to the worksheet I was on
when the macro was activated?

 

[Ron de Bruin]

Hi Silverhawk1

For most of the things you don't have to select the sheets in the loop.
Then your sheet stay active.

But if you must select then you can use this

Sub test()
Dim Asheet As Worksheet
Set Asheet = ActiveSheet

' your code


Asheet.Select
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl

I developed a formating macro that can be run by clicking a button on anyone of 20 worksheets. Currently the macro always ends on

the 20th worksheet. How can I get the macro to return me to the worksheet I was on when the macro was activated?