One way:



Code in a regular module:

Public OldSheetName As String

Public mySheetName As String

Sub ReturnToLastSheet()

Worksheets(OldSheetName).Activate

End Sub



Code in the Thisworkbook object:

Private Sub Workbook_Open()

MySheetName = "Sheet1" 'Change as appropriate

End Sub



Private Sub Workbook_SheetActivate(ByVal Sh As Object)

OldSheetName = mySheetName

mySheetName = Sh.Name

End Sub



Then assign the ReturnToLastSheet macro to a button.

HTH Otto

"Fraggs " wrote in message
...
How can I create a generic back button for my workbook, so that it goes
to the last view worksheet? Is this even possible?


---
Message posted from http://www.ExcelForum.com/