Dim cell As Range
Dim coll As Collection
Dim collItem

   Set coll = New Collection
   For Each cell In Range("A1:B5")
       On Error Resume Next
       If cell.MergeCells Then
           coll.Add cell.MergeArea.Address(False, False), _
                    cell.MergeArea.Address(False, False)
       End If
       On Error GoTo 0
   Next cell

   For Each collItem In coll
       MsgBox collItem
   Next collItem

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)