Hello.

I haven't been doing this for long time, and now I have a problem.

This code works fine for me:

Range("B8:C10,H8:H10").Select

but I want to have it in this format:

Range(Cells(8, 2), Cells(10, 3), Cells(8, 8), Cells(10, 8)).Select

but that doesn't work.

Please help and thanks in advanced.

/Mats

Sub myMultiRangesub()


    Dim r1, r2, myMultipleRange As Range
    Set r1 = Range(Cells(8, 2), Cells(10, 3))
    Set r2 = Range(Cells(8, 8), Cells(10, 8))
    Set myMultipleRange = Union(r1, r2)
    myMultipleRange.Select

End Sub

Alternatively simplify it with

Union(Range(Cells(8, 2), Cells(10, 3)), Range(Cells(8, 8), Cells(10, 8))).Select


Cheers

Matt

Thank you, it worked fine. :)

/Mats