Undo operation in Excel

[batpoomonkey]

Hi Guys

Currently at work I am working on a large spreadsheet with many sheets (over 100). On each sheet there is a command button which, when pressed, takes you to an instruction sheet, and I wish to have a command button on the instruction sheet which will take you back to the last active sheet.

Does anyone know a way of doing this?

Any help will be greatly appreciated

Thanks

[dreamvb]

Well I do not use Excel my self but Have you looked up on using Macros.
did find a link on google tho I not sure if it what you want.

Beginning Excel Reversing an Edit Operation
http://helpdesk.fsu.edu/training/cou...uts/excel1.pdf

anyway that about all I can help you with.

[si_the_geek]

For that you need to keep track of the previously active sheet, and to do this you can make use of the SheetActivate event of the Workbook, which passes a reference to the newly activated sheet.

You need to store this and the previous value, so that you can activate the appropriate sheet. Here is some code to go in the Wokbook to store those values:

Dim oCurrSheet As Worksheet
Dim oPrevSheet As Worksheet
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
  Set oPrevSheet = oCurrSheet
  Set oCurrSheet = Sh
 
End Sub

In order to activate the previous sheet you just need oPrevSheet.Activate, however this will fire the SheetActivate event again - so then the previous sheet is where you just came from.

If this is a problem, you need to make amendments like this (you now need to call ActivatePrevSheet instead):

Dim oCurrSheet As Worksheet
Dim oPrevSheet As Worksheet
Dim bIsActivating As Boolean
 
Sub ActivatePrevSheet()
 
  bIsActivating = True
  oPrevSheet.Activate
  bIsActivating = False
 
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
  If Not (bIsActivating) Then
    Set oPrevSheet = oCurrSheet
    Set oCurrSheet = Sh
  End If
 
End Sub