hello,

Is there an easier way to unhide all the sheets in a workbook or hide a
large number of them without having to select each sheet individually.

I currently use something like this:

Sheet("sheet1").visible = true
Sheet("sheet2").visible = true
Sheet("sheet3").visible = true
Sheet("sheet4").visible = true
Sheet("sheet5").visible = true

Can I do this in a simpler statement.

Thank You,

try
Sub ShowAll()
For i = 2 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub

--
Don Guillett
SalesAid Software

"tjh" wrote in message
...
hello,

Is there an easier way to unhide all the sheets in a workbook or hide a
large number of them without having to select each sheet individually.

I currently use something like this:

Sheet("sheet1").visible = true
Sheet("sheet2").visible = true
Sheet("sheet3").visible = true
Sheet("sheet4").visible = true
Sheet("sheet5").visible = true

Can I do this in a simpler statement.

Thank You,

Hi, another way to skin the same cat:

Sub show_all()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = True
Next
End Sub

Regards--Lonnie M.

OP didn't say ALL

--
Don Guillett
SalesAid Software

"Lonnie M." wrote in message
oups.com...
Hi, another way to skin the same cat:

Sub show_all()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = True
Next
End Sub

Regards--Lonnie M.

OP:
Is there an easier way to unhide all the sheets in a workbook (my
example) or hide a
large number of them (your example) without having to select each sheet
individually.

Just trying to add to your helpful post to give him more options...

By the way thanks for all of your posts I have gleaned a great deal
from them.
Have a good one--Lonnie M.

You're right. He DID say all. Thanks for the kudos.

--
Don Guillett
SalesAid Software

"Lonnie M." wrote in message
oups.com...
OP:
Is there an easier way to unhide all the sheets in a workbook (my
example) or hide a
large number of them (your example) without having to select each sheet
individually.

Just trying to add to your helpful post to give him more options...

By the way thanks for all of your posts I have gleaned a great deal
from them.
Have a good one--Lonnie M.