Return User to Last Active Worksheet

[Guest]

Howdy,

Here is my issue. I have workbook with 30 some odd sheets in it. Each sheet
has a button that sends the user to a "Specs Sheet" that has all the averages
on it. What I need to know, is what code is needed for a button to send the
user to the last active worksheet that he or she was on. Any help is
appreciated. Sorry I don't have a code, I really never have come across an
issue of this type.

 

[Bob Phillips]

Create a public variable and save the worksheet name when that button is
hit. Then just pick up that value when you need to return.

Public SheetName As String

Public Sub SpecsSheet()

SheetName = Activesheet.Name
Worksheets("Specs Sheet").Activate
End Sub

Public Sub Return()
Worksheets(SheetName).Activate
End Sub

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)