MergeCells

Function ContainsMergedCells(rng As Range)
Dim cell As Range
ContainsMergedCells = False
For Each cell In rng
If cell.MergeCells Then
ContainsMergedCells = True
Exit Function
End If
Next cell
End Function