Select Columns

I want to select a number of columns. I know the column indexes.

I want to use something like (Doesn't work):

Columns("2:6").Select

instead of (Works):

Columns("B:F").Select

Rows can be selected according to:

Rows("2:6").Select

I have written this code that works. But there must be an easier way:

Sub SelectColumns()
    Dim li As Long
    Dim rngColumns As Range
    Dim avCI As Variant
    
    avCI = Array(2, 3, 4, 5, 6)
    For li = LBound(avCI) To UBound(avCI)
        Select Case li
        Case LBound(avCI): Set rngColumns = Columns(avCI(li))
        Case Else:         Set rngColumns = Union(rngColumns, Columns(avCI(li)))
        End Select
    Next li
    rngColumns.Select
End Sub