Bob Phillips provided this to an op on this forum and I would like a small
addition to it.
What would I add to this to have each occurance selected as each message box
appears?


Sub FindMergedCells() 'Bob Phillips
Dim cell As Range
Dim coll As Collection
Dim collItem


Set coll = New Collection
For Each cell In Range("A1:Z150")
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
End Sub

Thank you guys for all the help (and of course Bob)

Mike Rogers