Sub test()
    Dim cell As Range, txt$, n&
    For Each cell In Selection.Cells
        ' если очередная ячейка - «главная» (левая верхняя) в объединенной, то обрабатываем её
        If cell.MergeArea.Cells(1).Address = cell.Address Then
            n = n + 1
            txt = txt & IIf(Len(txt), ",", "") & cell
        End If
    Next cell
    MsgBox "Текст: " & txt, vbInformation, "Найдено ячеек: " & n
End Sub