Loop Through Rows Of A Union Range

'How do I use a FOR NEXT loop on a union to just list all cell values in Col A?

'Just need a little help getting a handle on ranges and the union of ranges.
' This is my first time posting a question so any patience is appreciated.


Dim r1 As Range
Dim r2 As Range
Dim myMultipleRange As Range
Dim xCell As Range

Set r1 = Sheets("Sheet1").Range("A1", Range("A65536").End(xlUp))
Set r2 = Sheets("Sheet1").Range("B1", Range("B65536").End(xlUp))
Set myMultipleRange = Union(r1, r2)

r1.Select

For Each xCell In r1
'Ive been using this type of code to access anything I need from a sheet.
Debug.Print r1(xCell.Row, 1), r1(xCell.Row, 2), r1(xCell.Row, 3)
Next xCell...............