unMerge all cells in worksheet

[WindsorKnot]

Hi,

Does anyone know how to write vba to check if there are any merged cells in the worksheet, and if so to unmerge them?

Thanks.
I think this may work below

Sub test()
    Range("a1:IV65536").Select
    Selection.UnMerge
    Range("E9").Select
End Sub

 

[Blade Hunter]

Cells.MergeCells = False