[okshef]

Поищу еще, а пока

Код:

    Dim myUnion As Range
    Set myUnion = Union(Columns(3), Columns(4), Columns(5))
    myUnion.Select

можно циклом

Код:

    Dim myUnion As Range
    Set myUnion = Union(Columns(3), Columns(4))
    For i = 5 To 10
    Set myUnion = Union(myUnion, Columns(i))
    myUnion.Select
    Next