Unhide a group of Woeksheets at once ? ? ?

[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

 

[J.E. McGimpsey]

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

 

[Dodge Brown]

I didnt think there was a way through the GUI, but that macro in my personal
should work a treat !

Thanks Again

Dodge

 

[Gord Dibben]

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

 

[Dodge Brown]

I said "Should" work a treat, a bit of tweeking expected . . . . . .but
thanks . . . .

 

[J.E. McGimpsey]

Sheesh - nothing like a good answer for the wrong question... Thanks
for the correction, Gord!

 

[Gord Dibben]

Assumed you had mis-read or had another question in mind at the time.

Gord