UnMerge Method

Separates a merged area into individual cells.

expression.UnMerge

expression    Required. An expression that returns a Range object.

Example

This example separates the merged range that contains cell A3.

With Range("a3")
    If .MergeCells Then
        .MergeArea.UnMerge
    Else
        MsgBox "not merged"
    End If
End With