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

 

[TLS49]

[FONT=Calibri]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
 
       With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
 
 
Selection.Columns.AutoFit[/FONT]

 

[johnnyL]

How about:

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

 

[TLS49]

How about:

    Range("A:I,K:K").Select
'
    
    End With

give me a runtime error 1004 select method of range class fail

 

[johnnyL]

Code, as I posted, works for me. What line gives you the error?

 

[TLS49]

Code, as I posted, works for me. What line gives you the error?

Range("A:I,K:K").Select

Get Sample file here

 

[johnnyL]

a youtube video?

 

[TLS49]

a youtube video?

no sample of my file with codes

 

[johnnyL]

The link you provided is to a youtube video.

 

[TLS49]

sorry about that

here sample file