Sub teszt_1()
    Dim Rng As Range
    Set Rng = Range("A1,F2,C3,H4,E9")
    Rng = 3
End Sub

Sub teszt_2()
    Dim Rng As Range
    Set Rng = Union(Range("első"), Range("második"), Range("harmadik"))
    Rng = 12
End Sub