Re: Unhide more than one work*** at a time

From: DBavirsha (DBavirsha_at_discussions.microsoft.com)
Date: 02/02/05 

Date: Wed, 2 Feb 2005 15:33:06 -0800

Thanks for going the extra mile. After I posted the message, I thought I
should have asked how to also write a macro to hide the sheets that I had
open. Toggling the sheets is an even better idea.

Thanks again,
Dave
  =@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))><

"Ken Wright" wrote:

> If you have 50 hidden sheets then you are likely to want to hide them again,
> so maybe a macro that toggles the status of each ***. Run it once and it
> will show all the hidden ones and hide the visible ones. Run again and it
> will reverse it putting it all back as it was.
>
> Public Sub ToggleHidden()
>
> Dim wkSht As Work***
>
> For Each wkSht In ActiveWorkbook.Worksheets
> With wkSht
> If .Visible = False Then
> .Visible = True
> Else
> .Visible = False
> End If
> End With
> Next wkSht
>
> End Sub
>
> --
> Regards
> Ken....................... Microsoft MVP - Excel
> Sys Spec - Win XP Pro / XL 97/00/02/03
>
> ----------------------------------------------------------------------------
> It's easier to beg forgiveness than ask permission :-)
> ----------------------------------------------------------------------------
>
> "DBavirsha" <DBavirsha@discussions.microsoft.com> wrote in message
> news:16BAD985-5983-4BFA-9788-729622C19ED6@microsoft.com...
> > I have a worksheet that contains 50 hidden worksheets. Is there a method
> or
> > macro that somebody knows of where I can unhide more than one workseet at
> a
> > time?
> >
> > Thanks, Dave
> > =@===----¬----¬----¬.¸¸.·´¯`·.¸¸.·´¯`·.¸.·<º))))><
>
>
>