i need help with selecting worksheets and columns

[TLS49]

Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", _
"16", "17", "18")).Select

Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G,H:H,I:I,K:K").Select

i am trying format sheets and columns in all at once give me yellow highlight
Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G,H:H,I:I,K:K").Select

how get work


Thanks you

 

[johnnyL]

How about:

    For Each Worksheet In Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", _
        "16", "17", "18"))
'
        With Worksheet.Range("A:I,K:K")
            .HorizontalAlignment = xlCenter
            .Interior.Color = RGB(255, 255, 0)
            .Columns.AutoFit
        End With
    Next