how to re-write this code using Cells?

[novice_2010]

hello, I have following code which can select multiple ranges:

Range("A1:B10,D2:E5,F1:H1").Select

</pre>
How to rewrite this code using Cells (such as Cells (1, 1) instead of "A1")?

 

[Leith Ross]

Hello Novice2010,

You need to use the Union method to create non-contiguous ranges.

Sub RangeTest()

Dim MyRange As Range

  Set MyRange = Union(Range(Cells(1, 1), Cells(10, 2)), Range(Cells(2, 4), Cells(5, 5)), Range(Cells(1, 6), Cells(1, 8)))

  MsgBox "MyRange = " & MyRange.Address
End Sub

 

[chuckchuckit]

Nice - Then the last command of course would be:

MyRange.Select

 

[novice_2010]

thank you very much.