One way:

Private Sub CommandButton2_Click()
With ActiveSheet
If .Index = 1 Then
.Next.Select
Else
.Previous.Select
End If
End With
ActiveSheet.Range("A1").Select
End Sub


In article ,
bowe wrote:

I am using buttons for navigating between sheets but I also want the
destination sheet to be automatically scrolled to top of page when it
is displayed. The code i am using is simply:

Private Sub CommandButton2_Click()
On Error Resume Next
ActiveSheet.Previous.Select
If Err Then ActiveSheet.Next.Select
End Sub

I tried to add a selection of cell A1:

Private Sub CommandButton2_Click()
On Error Resume Next
ActiveSheet.Previous.Select
*Range("A1").Select*
If Err Then ActiveSheet.Next.Select
End Sub

..but of course the destination sheet was shown briefly and then cell
A1 in the current sheet was selected. Is there any work around this?

Grateful for any help!
/Bowe