Multiple Unhide - is it possible

W

weeclaire

Hi All

Please can anyone help. On Microsoft Excel 2000 is there a way to
unhide more than one hidden tab at the same time?

Thanks guys!

Wee Claire
 
K

Kevin B

From the menu you can only unhide worksheets 1 at at time, at least in Excel
2000.

The following macros might help though
-------------------------------------------------------------------------------------------------

Sub UnhideAllSheets()

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ActiveWorkbook

For Each ws In wb.Worksheets
If Not Sheets(ws.Name).Visible Then
Sheets(ws.Name).Visible = True
End If
Next ws

Set wb = Nothing
Set ws = Nothing


End Sub

-------------------------------------------------------------------------------------------------

Sub UnhideSheetsYesNo()

Dim iYesNo As Integer
Dim wb As Workbook
Dim ws As Worksheet

Set wb = ActiveWorkbook

For Each ws In wb.Worksheets

If Not Sheets(ws.Name).Visible Then
iYesNo = MsgBox("Unhide sheet " & ws.Name & _
"?", vbQuestion + vbYesNo, _
"Unhide This Sheet")
If iYesNo = vbYes Then
Sheets(ws.Name).Visible = True
End If
End If
Next ws

Set wb = Nothing
Set ws = Nothing

End Su
-------------------------------------------------------------------------------------------------

The first macro (UnhideAllSheets) cycles through all the worksheets and if
they're not visible, makes them visible. The second macro
(UnhideSheetsYesNo) cycles through all the worksheets in the workbook,
prompting the user when it encounters a hidden sheet to unhide the sheet, yes
or no. It continues to cycle through all the worksheets in the workbook,
prompting for each hidden worksheet

Hope this helps...
 
F

flummi

Here's an excerpt from the help file:

Select sheets in a workbook
If you select more than one sheet, Microsoft Excel repeats the changes
you make to the active sheet on all other selected sheets. These
changes may replace data on other sheets.

To select Do this
A single sheet Click the sheet tab.


Two or more adjacent sheets Click the tab for the first sheet, and then
hold down SHIFT and click the tab for the last sheet.

Two or more nonadjacent sheets Click the tab for the first sheet, and
then hold down CTRL and click the tabs for the other sheets.

All sheets in a workbook Right-click a sheet tab, and then click Select
All Sheets on the shortcut menu.


Hide a sheet
Select the sheets you want to hide.
How?

On the Format menu, point to Sheet, and then click Hide.



Hans
 
Top