Hi. Here's a simple macro that will unhide sheets between two selected visible sheets.

Sub UnhideSheets()
'// = = = = = = = = = = = = = = = = = = =
'// Select 2 adjacent sheets.
'// Macro will unhide sheets between selected sheets.
'// = = = = = = = = = = = = = = = = = = =
Dim a As Long
Dim b As Long
Dim J As Long

With ActiveWindow.SelectedSheets
a = .Item(1).Index + 1
b = .Item(2).Index - 1
For J = a To b
Sheets(J).Visible = True
Next J
End With
End Sub

--
HTH :)
Dana DeLouis


"Jason" wrote in message ...

When you have many hidden sheets and want to unhide several of them, it's
time consuming to click unhide several times just to unhide multiple ones.
Just adding the option to use the shift key to select multiple sheets to
unhide would be very helpful.

----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...lic.excel.misc