Button to open next worksheet doesn't work.

[Ronanm]

I had the code below on a button, but when I press the button nothing happens, I am on sheet 1 of 31 when I press the buton.

Any ideas from anyone?

Sub NextSheet()
    Set sh = ActiveSheet
            On Error Resume Next
                Do While sh.Next.Visible <> xlSheetVisible
                If Err <> 0 Then Exit Do
                Set sh = sh.Next
                Loop
                sh.Next.Activate
            On Error GoTo 0
    sh.Visible = False
End Sub

Thanks

Ronan

 

[JackDanIce]

This worked for me, you may need to tweak it for your purposes:

Sub test()
Dim i As Integer
i = ActiveSheet.Index
On Error Resume Next
i = i + 1
Do While Sheets(i).Visible = False
    i = i + 1
Loop
Sheets(i).Select
End Sub

 

[Ronanm]

Perfect. Cheers Sir...

Ronan