Ctrl+Page Up or Page Down
That will switch between tabs similar to the way Alt+Tab switches between
windows.


You may also try something like this:

Sub test()
c = ActiveSheet.Index
If c = Sheets.Count _
Then
MsgBox ("You have reached the last sheet.")
End
Else
End If

With Sheets(c + 1)
.Visible = True
.Activate
End With

End Sub


HTH,
Paul

"nde" wrote in message
...
Hello,

I am looking for a macro that will make the worksheet to the right of the
active worksheet visible, thus enhancing the navigatiuon through the excel
workbook. Once the last worksheet on the right is reached the I will start
again at the first one.

Actually I am looking at the same behavior than the Alt + Tab keys
combination in Windows.

Has anyone done this.

Thanks,
nde