Return to current worksheet

[Patrick Simonds]

I have a macro which when it runs cycle through all the worksheets in my
workbook. When it finishes it leaves me on the last worksheet of the
workbook. I would like to be returned to the worksheet that was active when
the macro was started.

 

[Guest]

Sub GoBackHomeDemo()
Dim sh as Worksheet, sh1 as Worksheet
set sh1 = Activesheet
for each sh in Worksheets
sh.Activate
Next
sh1.Activate
End Sub

 

[joran6]

Define a variable as a string to capture your macro workbook name

Dim MainWB as string

MainWB=ActiveWorkbook.Name 'place this somewhere near the beginning
of your macro

......after sub runs, near end of macro

Windows(MainWB).Activate

....for more specifics, you could also add the following
Sheets("insertSheetNameHere").Select
Range("A1").Select

---Joran6