Unmerging all cells

Occasionally I will receive a file that has numerous cells merged, thus making any kind of analysis difficult.  The VBA code, below, is useful in unmerging all cells in an excel document:

 

Sub UnmergeAllMergedCells()
    Dim WS As Worksheet
    For Each WS In Worksheets
        WS.Cells.UnMerge
    Next
End Sub