Return to current worksheet
 

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.

Return to current worksheet
 

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


--
Regards,
Tom Ogilvy


"Patrick Simonds" wrote:

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.

Return to current worksheet
 

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