Как ходить по смердженным диапазонам?

Sub Example3()
Dim numCells As Long, curRow As Long, curColumn As Integer
Dim objCell As Range, objMA As Range
curColumn = 10
curRow = 1
Do
    If Cells(curRow, curColumn).MergeCells Then
        Set objMA = Cells(curRow, curColumn).MergeArea
        numCells = objMA.Cells.Count

        'перебор элементов внутри диапазона, вариант 1
        For Each objCell In objMA.Cells
            MsgBox objCell.Address
        Next objCell
        'перебор элементов внутри диапазона, вариант 2
        For i = 1 To numCells
            MsgBox objMA.Item(i).Address
        Next i
       
        curRow = curRow + numCells
    Else
        curRow = curRow + 1
    End If
Loop While curRow < 65536
End Sub