Hide and unhide a range of rows in multiple worksheets

Hello,

I have a price model with 9 worksheets. 5 of the 9 worksheets are data input worksheets. The 5 worksheets are for the Base Year, Option Yr 1, Option Yr 2 etc. I am trying to hide rows for the smaller version to capture fewer personnel and unhide rows for a larger version. In other words I am trying to make this workbook scalable. I have tried a macro to either hide or unhide 20 of the same rows on each of the worksheets at the same time but it doesn't work.

Any idea would be greatly appreciated.

Mark

Hi,

There really is no need to provide an example. I simply just want to be able to hide a set of rows in either a macro and unhide via macro. Lets say that I want to hide rows 24-32 and rows 48-58 and rows 72-80. Is there a way to do this to all five worksheets at once. The data is laid out exactly the same on each worksheet. Thanks for trying to help. Your inputs would be apprecitated.

One example:

Sub test()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets(Array("Sheet2", "Sheet3", "etc"))        'change sheet names
        With ws.Rows("24:32")        'subprocedure to hide the rows you want, toggle in this example
            .Hidden = Not .Hidden        'or, True for hide, False for unhide
        End With
    Next ws
End Sub

Where you change to the correct sheet names and the code will only loop through those sheets. Then add a subprocedure for hiding/unhiding rows. Another alternative is to loop through all worksheets and only do a subprocedure on those with the specific worksheet names or that match the structure on the sheet you are looking for, etc.

Hope this helps a bit,

berlan