Hello,

Im trying to loop through a number of named sheets to insert a column into each of the named sheets.


Sub CycleInsert()

Dim Sh As Worksheet


For Each Sh In Sheets(Array("ANA", "ARI", "ATL", "BAL", "BOS", "CHA", "CHN", "CIN", "CLE", "COL", "DET", "HOU", "KCA" _
        , "LAN", "MIA", "MIL", "MIN", "NYA", "NYN", "OAK", "PHI", "PIT", "SDN", "SEA", "SFN", "SLN", "TBA", "TEX" _
        , "TOR", "WAS"))
    
Columns("C:C").EntireColumn.Insert

Next

End Sub
This piece of code is given a subscript is out of range error. Could someone please tell me what im doing wrong? Are there too many sheets for this array?

Many thanks in advance.