Since the topic of a 'back button' came up in another thread I thought that I would put this one out there as well. Again, I know that this is another shameless lifting from somewhere...
The two subs below will move the user through worksheets forward or backward, but there is a snag with this one: if there are hidden sheets we do a Runtime '1004' : Select method of Worksheet class failed.
' Move Forward
Sub goFwd() On Error Resume Next ActiveSheet.Next.Select If Err.Number <> 0 Then Sheets(1).Select Err.Clear End If On Error GoTo 0 End Sub
' Move Backward
Sub goBk() On Error Resume Next ActiveSheet.Previous.Select If Err.Number <> 0 Then Sheets(Sheets.Count).Select Err.Clear End If On Error GoTo 0 End Sub
Rather than keep this as is, can we set this up as global - I could create a CommandBar for this one.
Why not use Sheet tabs or Cntl + PageUp/PageDown, etc...? Because sometimes custom apps won't allow it...plus it would be a fun gizmo to have, of course!
Scott