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

--
Regards,
Tom Ogilvy


"savalou" wrote in message
ups.com...
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