simple macro button

[excel smurf]

instead of clicking on each tab to go to the next spreadsheet, what would a simple macro command be so that I could assign it to a button?

 

[Juan Pablo González]

ActiveSheet.Next.Select

if my memory serves me...

 

[Jay Petrulis]

Hi,

Try this...<pre>Sub go_forward()
Dim i As Integer

With ActiveSheet
If .Next.Visible Then
.Next.Select
Else
For i = ActiveSheet.Index + 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Visible Then
Sheets(i).Select
Exit For
End If
Next i
End If

End With
End Sub

Sub go_back()
Dim i As Integer, x

With ActiveSheet
If .Previous.Visible Then
.Previous.Select
Else
For i = ActiveSheet.Index - 1 To 1 Step -1
If Sheets(i).Visible Then
Sheets(i).Select
Exit For
End If
Next i
End If
End With

End Sub</pre>

_________________
Bye,
Jay

EDIT: Changed routines to handle hidden sheets.

I assume that you need this because you are hiding the sheet tabs? If so, the key combination of Ctrl-PageUp and Ctrl-PageDown will do the same thing.
This message was edited by Jay Petrulis on 2002-08-22 17:29