skip hidden sheets

[savalou]

I have a workbook with about 50 sheets. I have a decision tree that
unhides sheets based on the answers to screening questions. I want to
add navigation buttons to allow users to go to the next or previous
sheets. When the next sheet is hidden the macro hangs. How can move
to the next unhidden sheet?

I've tried:

activesheet.next.select

which didn't work.

Any thoughts?

thanks in advance,

Dave

 

[Tom Ogilvy]

Dim sh as Object
if Activesheet.Index <> Sheets.count then
set sh = activesheet.Next

do while sh.visible <> xlSheetVisible and sh.Index <> sheets.count
set sh = sh.Next
Loop
if sh.visible = xlSheetVisible then
sh.Activate
else
msgbox "Nothing to do"
end if

 

[Tom Ogilvy]

Left off the last end if

Dim sh as Object
if Activesheet.Index <> Sheets.count then
set sh = activesheet.Next

do while sh.visible <> xlSheetVisible and sh.Index <> sheets.count
set sh = sh.Next
Loop
if sh.visible = xlSheetVisible then
sh.Activate
else
msgbox "Nothing to do"
end if
Else
msgbox "Your at the last"
End if

 

[savalou]

that's great. Thanks very much.

Dave