VBA Unhiding blank rows across a number of ranges

[scoha]

Part of my code is set to unhide a group of ranges (so that I can then paste to these ranges from another subsquent part) and I have tried to do it this way:

            'Unhides blank rows
             Set Rng = Range("$C$9:$C$95", Nothing)
    
               For Each Area In Rng.Areas
                 For Each Cell In Area
                   Cell.EntireRow.Hidden = False
                 Next Cell
               Next Area
               
             Set Rng = Range(Sheets("WI").Range("WI451Names"), Sheets("Bits").Range("Bits451Names"), Sheets("PPE").Range("PPE451Names"))
    
               For Each Area In Rng.Areas
                 For Each Cell In Area
                   Cell.EntireRow.Hidden = False
                 Next Cell
               Next Area

But I get a "wrong" number of arguments error - though it works with unnamed ranges as first part.

Can I modify this to work with a group of named ranges - just so my coding keeps trim?

 

[tweedle]

you can give this a spin

nms = Array("Bits451Names", "PPE451Names", "WI451Names")  'do select ranges
For r = 0 To UBound(nms)
    Range(nms(r)).Rows.EntireRow.Hidden = False
Next

 

[scoha]

This didnt seem to work - would I have to define the named ranges across different sheets? Each of the named ranges is located on different sheets?

 

[tweedle]

I'm thinking the issue is more with the scope of the named ranges being WorkSheet, so we can qualify the name and it should now function regardless of the scope of the named range.

nms = Array("[COLOR=blue]Bits![/COLOR]Bits451Names", "[COLOR=blue]PPE![/COLOR]PPE451Names", "[COLOR=blue]WI![/COLOR]WI451Names")  'do select ranges
For r = 0 To UBound(nms)
    Range(nms(r)).Rows.EntireRow.Hidden = False
Next