Option Explicit
Sub Demo()
Dim rngBereich As Excel.Range
Dim rngZelle As Excel.Range
Range("A1:E3").Merge
Set rngZelle = Range("B2")
If rngZelle.MergeCells Then
Set rngBereich = rngZelle.MergeArea
Debug.Print rngZelle.Address; " ist Teil von "; rngBereich.Address
For Each rngZelle In rngBereich.Cells
Debug.Print " -> "; rngZelle.Address
Next
End If
End Sub