VB Code -- Make this Concise

[Desu Nota from Columbus]

I need columns S:U to be hidden for 7 sheets.

The sheet names are:
Line1
Line2
Line3
Line4
Line5
Line6
Line10

Is there any alternative, shorter way to accomplish the following (for each sheet):

Sheets("Line1").Select
Columns("S:U").Select
Selection.EntireColumn.Hidden = True

 

[kpark91]

Sub kpark91()
    Dim i As Integer
    For i = 1 To 6
        Sheets("Line" & i).Columns("S:U").EntireColumn.Hidden = True
    Next i    
    Sheets("Line10").Columns("S:U").EntireColumn.Hidden = True
End Sub

 

[JackDanIce]

Try:

For Each Sheet in Sheets(Array("Line1", "Line2", "Line3", "Line4", "Line5", "Line6", "Line10"))
    Columns("S:U").EntireColumn.Hidden = True
Next

 

[Desu Nota from Columbus]

Sub kpark91()
    Dim i As Integer
    For i = 1 To 6
        Sheets("Line" & i).Columns("S:U").EntireColumn.Hidden = True
    Next i    
    Sheets("Line10").Columns("S:U").EntireColumn.Hidden = True
End Sub

Thank you Kpark91, it seems so simple now that I have the answer right in front of me.


JackDanIce: I haven't tested your code but I trust it works also, Thanks for the reply.

 

[JackDanIce]

You're welcome