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

S

Silverhawk1

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

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)

Silverhawk1 said:
I developed a formating macro that can be run by clicking a button on
Click to expand...
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?
 
R

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


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