Multiple column select in VBA

[Normz]

Hi Guys,

How it can be done in VBA codes? Selecting multiple column but not in sequential.


Thanks,

[JKwan]

    Range("A1:A10,C1:C10,G1:G10").Select

[Normz]

Thanks JKwan, another question. Can it be done by using "Range(Selection, Selection.End(xlDown)).Select"? So I will not input an specific range like A1:A10, because my data everyday have different row count.

    Range("A1:A10,C1:C10,G1:G10").Select

[snb]

Sub M_snb()
   Intersect(UsedRange, Range("C:C,F:F")).Select
End Sub

[JKwan]

you can use snb or below

Sub highlite()
    Dim LastRow As Long
    
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:A" & LastRow & ",C1:C" & LastRow & ",G1:G" & LastRow).Select
End Sub

[Normz]

Thanks it worked!

you can use snb or below

Sub highlite()
    Dim LastRow As Long
    
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A1:A" & LastRow & ",C1:C" & LastRow & ",G1:G" & LastRow).Select
End Sub

I tried to use snb answer but it prompt

[mikerickson]

Try

Intersect(ActiveSheet.UsedRange, Range("C:C,F:F")).Select