I am using buttons for navigating between sheets but I also want th
destination sheet to be automatically scrolled to top of page when i
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 cel
A1 in the current sheet was selected. Is there any work around this?

Grateful for any help!
/Bow

--
bow
-----------------------------------------------------------------------
bowe's Profile: http://www.excelforum.com/member.php...fo&userid=2711
View this thread: http://www.excelforum.com/showthread.php?threadid=46624

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

Great! Thanks McGimpsey! Your answer stopped me from going bold :

--
bow
-----------------------------------------------------------------------
bowe's Profile: http://www.excelforum.com/member.php...fo&userid=2711
View this thread: http://www.excelforum.com/showthread.php?threadid=46624