Excel -Makroformat verschmolzen Zellen

Sub test2()
Dim c As Range
For Each c In Selection
    If c.MergeCells Then c.Interior.ColorIndex = 19
Next
End Sub
Sonam Vaish