skip hidden sheets

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

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" <david.boone@acgov.org> wrote in message
news:1129663834.198941.68500@f14g2000cwb.googlegroups.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
>

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

--
Regards,
Tom Ogilvy

"Tom Ogilvy" <twogilvy@msn.com> wrote in message
news:OOxxWxB1FHA.3084@TK2MSFTNGP09.phx.gbl...
>
> 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" <david.boone@acgov.org> wrote in message
> news:1129663834.198941.68500@f14g2000cwb.googlegroups.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
> >
>
>

that's great. Thanks very much.

Dave