Unmerge cells

Parameters

Macro Title:
Worksheet name:
Unmerge cells:
Comment:

'

Sub Unmerge_Cells()
'unmerge range A2:D2 in a worksheet named Sheet1

Worksheets("Sheet1").Range("A2:D2").UnMerge

End Sub