MergeArea Property Example
This example sets the value of the merged range that contains cell A3.
Set ma = Range("a3").MergeArea If ma.Address = "$A$3" Then MsgBox "not merged" Else ma.Cells(1, 1).Value = "42" End If