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?

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)

"Silverhawk1" wrote in message
...
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?

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


"Silverhawk1" wrote in message ...
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?