Performing actions on multiple tabs with VBA

[njbeancounter]

Hello...

My workbook contains numerous tabs, but I only want to perform the following actions on 5 of them.

Each tab has general ledger information for individual companies, so the rows all contain the same account numbers, and the columns all contain the same months.

I want to create an array (maybe) for the five worksheets (companies) and then in each sheet, hide rows 3 thru 141.

Once I get this to work, there is more I want to do, but this is the basis for the rest of what I want to do.

Thanks

 

[Fluff]

You can hide the rows like

Sub njbeancounter()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Select Case Ws.Name
         Case "Sheet1", "Sheet2", "Sheet3"
            Ws.Rows("3:141").Hidden = True
      End Select
   Next Ws
End Sub

 

[Joe4]

Here is a little example of how you can store sheet names in an array and loop through them.

Sub TestMacro()

    Dim sh
    Dim i As Long
    
    sh = Array("Sheet1", "Sheet2", "Sheet4")
    
    For i = LBound(sh) To UBound(sh)
        'Put the word "Test" in cell A1
        Sheets(sh(i)).Range("A1") = "Test"
    Next i
    
End Sub

 

[njbeancounter]

THANKS!!!

 

[Fluff]

Glad we could help & thanks for the feedback.