nde,
try something like this

Sub SheetAct()
Dim x As Integer
x = ActiveSheet.Index
Do
If x < Worksheets.Count Then
x = x + 1
Else
x = 1
End If
Loop Until Worksheets(x).Visible = True
Worksheets(x).Activate
End Sub

regards,

DaveU