Макрос поиска объединенной группы ячеек - VBA

Формулировка задачи:

Привет. Имеется лист на котором есть несколько объединенных ячеек. Кто нибудь знает с помощью какого макроса найти первую объединенную группу ячеек? Или не первую а вообще какую либо объединенную группу.

Или как узнать ячейка объединена или нет? Какое то свойство ячейки за это отвечает?

Решение задачи: «Макрос поиска объединенной группы ячеек»

textual
                            Листинг программы 
                        

                            Sub Find_MergeAreas()
Dim rn As Range, rnm As Range
Application.FindFormat.MergeCells = True
Set rn = Cells.Find("", After:=[A1], SearchFormat:=True)
Do Until rn Is Nothing
  Set rnm = rn.MergeArea
  rn.UnMerge
  rnm = rn
  Set rn = Cells.Find("", After:=rn, SearchFormat:=True)
Loop
End Sub
                        