Returns a Range object that represents the merged range containing the specified cell. If the specified cell isn’t in a merged range, this property returns the specified cell. Read-only Variant.
expression.MergeArea
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
The MergeArea property only works on a single-cell range.
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