Unmerge cells using Vba code.

[omairhe]

Hello,


How do you unmerge cells from an active sheet of a workbook.


I could manage to alter the following code I found from an online forum. But could someone please verify if this would work at all or come up with even better alternative?

Sub UnMergeFill()


Dim cell As Range, joinedCells As Range


For Each cell In ThisWorkbook.ActiveSheet.UsedRange
    If cell.MergeCells Then
        cell.MergeCells = False
    End If
Next
End Sub

Thank you.

 

[Fluff]

Best way of finding out if it works, is try it

 

[shg]

Sub UnMergeFill()
  Cells.UnMerge
End Sub

 

[omairhe]

Now that is a better alternative.
Thank You.

Sub UnMergeFill()
  Cells.UnMerge
End Sub