UnMerge Method 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