How do you unhide mutilple worksheets with one command instead of worksheet
by worksheet?

Val Steed

Hi Val Steed,

in Excel, you can hid all but one sheets in a workbook in a single stroke
thru :
on the sheet tab, right click and "select all sheets" and the deselect the
sheets which are not to be hidden with regular click of the mouse on
the/those sheets, and then click on format-sheet-hide and your desired
results are achieved.

click yes below, if it helps

"Val Steed" wrote:

How do you unhide mutilple worksheets with one command instead of worksheet
by worksheet?

Val Steed

Sorry but no. I am looking for a way to unhide a group of worksheets all at
once. What you describes works for hiding but not for unhiding.

I think there is some VBA code that will work but I am not a VBA head.

Val

"YESHWANT" wrote in message
...
Hi Val Steed,

in Excel, you can hid all but one sheets in a workbook in a single stroke
thru :
on the sheet tab, right click and "select all sheets" and the deselect the
sheets which are not to be hidden with regular click of the mouse on
the/those sheets, and then click on format-sheet-hide and your desired
results are achieved.

click yes below, if it helps

"Val Steed" wrote:

How do you unhide mutilple worksheets with one command instead of
worksheet
by worksheet?

Val Steed

All hidden sheets?

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

An array of sheets?

Sub unhide_sheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets(Array _
("Sheet1", "Sheet2", "Sheet3"))
ws.Visible = True
Next ws
End Sub


Gord Dibben MS Excel MVP

On Mon, 24 Aug 2009 13:32:06 -0600, "Val Steed" wrote:

Sorry but no. I am looking for a way to unhide a group of worksheets all at
once. What you describes works for hiding but not for unhiding.

I think there is some VBA code that will work but I am not a VBA head.

Val

"YESHWANT" wrote in message
...
Hi Val Steed,

in Excel, you can hid all but one sheets in a workbook in a single stroke
thru :
on the sheet tab, right click and "select all sheets" and the deselect the
sheets which are not to be hidden with regular click of the mouse on
the/those sheets, and then click on format-sheet-hide and your desired
results are achieved.

click yes below, if it helps

"Val Steed" wrote:

How do you unhide mutilple worksheets with one command instead of
worksheet
by worksheet?

Val Steed

Yes, all worksheets. in a workbook.

Well done.

Val

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
All hidden sheets?

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

An array of sheets?

Sub unhide_sheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets(Array _
("Sheet1", "Sheet2", "Sheet3"))
ws.Visible = True
Next ws
End Sub


Gord Dibben MS Excel MVP

On Mon, 24 Aug 2009 13:32:06 -0600, "Val Steed" wrote:

Sorry but no. I am looking for a way to unhide a group of worksheets all
at
once. What you describes works for hiding but not for unhiding.

I think there is some VBA code that will work but I am not a VBA head.

Val

"YESHWANT" wrote in message
...
Hi Val Steed,

in Excel, you can hid all but one sheets in a workbook in a single
stroke
thru :
on the sheet tab, right click and "select all sheets" and the deselect
the
sheets which are not to be hidden with regular click of the mouse on
the/those sheets, and then click on format-sheet-hide and your desired
results are achieved.

click yes below, if it helps

"Val Steed" wrote:

How do you unhide mutilple worksheets with one command instead of
worksheet
by worksheet?

Val Steed

Good to hear the feedback.

Thanks, Gord

On Mon, 24 Aug 2009 15:21:24 -0600, "Val Steed" wrote:

Yes, all worksheets. in a workbook.

Well done.

Val

"Gord Dibben" <gorddibbATshawDOTca wrote in message
.. .
All hidden sheets?

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

An array of sheets?

Sub unhide_sheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets(Array _
("Sheet1", "Sheet2", "Sheet3"))
ws.Visible = True
Next ws
End Sub


Gord Dibben MS Excel MVP

On Mon, 24 Aug 2009 13:32:06 -0600, "Val Steed" wrote:

Sorry but no. I am looking for a way to unhide a group of worksheets all
at
once. What you describes works for hiding but not for unhiding.

I think there is some VBA code that will work but I am not a VBA head.

Val

"YESHWANT" wrote in message
...
Hi Val Steed,

in Excel, you can hid all but one sheets in a workbook in a single
stroke
thru :
on the sheet tab, right click and "select all sheets" and the deselect
the
sheets which are not to be hidden with regular click of the mouse on
the/those sheets, and then click on format-sheet-hide and your desired
results are achieved.

click yes below, if it helps

"Val Steed" wrote:

How do you unhide mutilple worksheets with one command instead of
worksheet
by worksheet?

Val Steed