MergeCells Property Example

This example sets the value of the merged range that contains cell A3.

Set ma = Range("a3").MergeArea
If Range("a3").MergeCells Then
    ma.Cells(1, 1).Value = "42"
End If