Unhide multiple worksheets at one time

  • Thread starter Thread starter X
  • Start date Start date
in code (just recorded) to HIDE. =True to UNHIDE
Sub Macro4()
'
' Macro4 Macro
' Macro recorded 9/30/2003 by Don Guillett
'

'
Sheets(Array("Sheet6", "Sheet9")).Select
Sheets("Sheet9").Activate
ActiveWindow.SelectedSheets.Visible = False
End Sub
 
Sorry, What I gave will hide. You must un-hide thusly:

myarray = Array("Sheet6", "sheet9")
For Each sh In Sheets
sh.Visible = xlSheetVisible
Next
 
Hi:

Only by writing your own macro. I have written one that I can send you if
you like.

Regards,

Vasant.
 
Back
Top