If ActiveSheet.Index < ThisWorkbook.Sheets.Count Then Sheets(ActiveSheet.Index + 1).Select
If ActiveSheet.Index < ThisWorkbook.Sheets.Count Then Sheets(ActiveSheet.Index + 1).Select else Sheets(1).select
Sub test()
t = ActiveSheet.Index + 1
Do While Sheets(t).Visible = False
t = t + 1
If t > ThisWorkbook.Sheets.Count Then Exit Sub
Loop
Sheets(t).Visible = False
End Sub