Sub tt()
Dim rng As Range, rngM As Range
For Each rng In ActiveSheet.UsedRange
If rng.MergeCells Then
If rngM Is Nothing Then
Set rngM = rng
Else
Set rngM = Union(rngM, rng)
End If
End If
Next
rngM.Select
End Sub
Gruß
Sub zusammen()
Dim z
For Each z In ActiveSheet.UsedRange
If z.MergeCells = True Then z.Interior.ColorIndex = 35 'färbt grün
Next
End Sub