Hidden tabs

[CWH]

I am using Excell 2003

If I have a file with several tabs hidden is there a way to unhide them all
at once, rather than using Format, Sheet, Unhide for each tab?
--
CWH

[Max]

One way ..

Roger Govier gave me this sub a few years ago ..

The following will carry out the unhide
for all sheets within the workbook

Sub ShowSheets()
Dim s As Worksheet
For Each s In ActiveWorkbook.Worksheets
s.Visible = True
Next
End Sub

--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <at>yahoo<dot>com
----
"CWH" <CWH@discussions.microsoft.com> wrote in message
news:BCF54EB2-E82A-4A50-9999-CC58C466E010@microsoft.com...
> I am using Excell 2003
>
> If I have a file with several tabs hidden is there a way to unhide them
all
> at once, rather than using Format, Sheet, Unhide for each tab?
> --
> CWH

[CWH]

It worked a treat.

Many thnaks
--
CWH


"Max" wrote:

> One way ..
>
> Roger Govier gave me this sub a few years ago ..
>
> The following will carry out the unhide
> for all sheets within the workbook
>
> Sub ShowSheets()
> Dim s As Worksheet
> For Each s In ActiveWorkbook.Worksheets
> s.Visible = True
> Next
> End Sub
>
> --
> Rgds
> Max
> xl 97
> ---
> GMT+8, 1° 22' N 103° 45' E
> xdemechanik <at>yahoo<dot>com
> ----
> "CWH" <CWH@discussions.microsoft.com> wrote in message
> news:BCF54EB2-E82A-4A50-9999-CC58C466E010@microsoft.com...
> > I am using Excell 2003
> >
> > If I have a file with several tabs hidden is there a way to unhide them
> all
> > at once, rather than using Format, Sheet, Unhide for each tab?
> > --
> > CWH
>
>
>

[Max]

Glad to hear that !
You're welcome ..
--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <at>yahoo<dot>com
----
"CWH" <CWH@discussions.microsoft.com> wrote in message
news:F7A0EBD3-FE1F-44A3-8F2D-BAAB7388ED4E@microsoft.com...
> It worked a treat.
>
> Many thnaks
> --
> CWH