Unhide multiple worksheets at one time

D

Don Guillett

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
 
D

Don Guillett

Sorry, What I gave will hide. You must un-hide thusly:

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

Vasant Nanavati

Hi:

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

Regards,

Vasant.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Hiding/Unhiding Rows Automatically 1
Macro to unhide all except for. . . 5
Unhiding Sheets 3
How do I unhide a row when ENTER is pressed in a certain cell? 6
Embed the same Excel multiple times 0
Automatically hide/unhide rows 5
Password prompting to unhide worksheet allows temporary visibility 2
Unhide multiple worksheets in workbook 2

Top