Unhiding rows across worksheets at once

[nmdks3]

I am trying to unhide a range of rows across several worksheets in the same book at once. Here is the code I have:

Sheets(Array("AUG", "SEP", "OCT", "Q1", "NOV", "DEC", "JAN", "Q2", "FALL", "FALL2")).Select
Sheets("AUG").Activate

' Show regular departments
Range("9:30,222:247").Select
Range("A9").Activate
Selection.EntireRow.Hidden = False

Currently, it is only unhiding the rows on the "AUG" tab. Any suggestions? All help is appreciated!

 

[VoG]

Try

Sub testb()
Dim ws As Worksheet
For Each ws In Sheets(Array("AUG", "SEP", "OCT", "Q1", "NOV", "DEC", "JAN", "Q2", "FALL", "FALL2"))
    ws.Rows("9:30,222:247").Hidden = False
Next ws
End Sub

 

[Fowmy]

Edit this line

Range("9:30,222:247").EntireRow.Hidden = False

 

[nmdks3]

Thanks for all of your help! Got it working the way I want now!

 

[Nalani]

What did you end up with?

This line in your orginal code;

Sheets("AUG").Activate

was ungrouping your sheets if Sheets AUG was not the active sheet when you ran your code.

That is why you were experienceing the code working on only that sheet.

 

[nmdks3]

I used Fowmy's suggestion, and it worked once. Now that I am testing it in other sections, it's not working again.

 

[nmdks3]

Here's what I have now...


Sheets(Array("AUG", "SEP", "OCT", "Q1", "NOV", "DEC", "JAN", "Q2", "FALL", "FALL2")).Select
Range("32:59,249:281,435:435").EntireRow.Hidden = False

 

[VoG]

At the risk of repetition

Sub testb()
Dim ws As Worksheet
For Each ws In Sheets(Array("AUG", "SEP", "OCT", "Q1", "NOV", "DEC", "JAN", "Q2", "FALL", "FALL2"))
    ws.Rows("32:59,249:281,435:435").Hidden = False
Next ws
End Sub

 

[nmdks3]

That code errors out with a Type Mismatch...


Dim ws As Worksheet
For Each ws In Sheets(Array("AUG", "SEP", "OCT", "Q1", "NOV", "DEC", "JAN", "Q2", "FALL", "FALL2"))
ws.Rows("32:59,249:281,435:435").Hidden = False
Next ws
</pre>

 

[JoeMo]

That code errors out with a Type Mismatch...


Dim ws As Worksheet
For Each ws In Sheets(Array("AUG", "SEP", "OCT", "Q1", "NOV", "DEC", "JAN", "Q2", "FALL", "FALL2"))
ws.Rows("32:59,249:281,435:435").Hidden = False
Next ws

I think Peter dropped a property:

ws.Rows("32:59,249:281,435:435").EntireRow.Hidden = False