Excel VBA selecting multiple dynamic ranges

Question

I\'m trying to selecting multiple dynamic range. Trying to use the union method and I\'m getting Method \'Range\' of \'object\' Global Failed error on first Set line.

<

Answer 1

The problem occurs because of the comma in you range statements. I.e. when you set R1 you should write:

Set R1 = Range("A7:A" & LR)

Also, when you define the object type of your variables R1, ..., R5 you should write it as

Dim R1 As Range, R2 As Range, R3 As Range, R4 As Range, R5 As Range, MultiRange As Range

Otherwise R1, ..., R5 will be defined as a Variant. This doesn't cause a problem, but it will save memory and makes for a cleaner code.