Unhide a group of Woeksheets at once ? ? ?

  • Thread starter Thread starter Dodge Brown
  • Start date Start date
D

Dodge Brown

Hi All


I have been trying to unhide a group of work sheets at once but seem unable
to use Ctrl or Shift when using the toolbar options "Format"; "Sheet";
"Unhide".

Is there anyway to do this ? ? ?


Thanks in Advance

Dodge
 
Not using the GUI. You can use a macro:

Public Sub UnprotectGroup()
Dim wkSht As Worksheet
For Each wkSht In ActiveWindow.SelectedSheets
wkSht.Unprotect
Next wkSht
End Sub


If the sheets are password protected:

Public Sub UnprotectGroup()
Const PWORD As String = "drowssap"
Dim wkSht As Worksheet
For Each wkSht In ActiveWindow.SelectedSheets
wkSht.Unprotect PWORD
Next wkSht
End Sub
 
I didnt think there was a way through the GUI, but that macro in my personal
should work a treat !

Thanks Again

Dodge
 
Dodge

I doubt it will work a treat. You said the sheets were Hidden.

Sub UnHideGroup()
Application.ScreenUpdating = False
Dim n As Single
For n = 1 To Sheets.Count
Sheets(n).Visible = True
Next n
Application.ScreenUpdating = True
End Sub

Gord Dibben XL2002
 
I said "Should" work a treat, a bit of tweeking expected . . . . . .but
thanks . . . .
 
Sheesh - nothing like a good answer for the wrong question... Thanks
for the correction, Gord!
 
Back
Top