Unmerge All Cells

Why does this not work? Is it because the first sheet does not have merged cells? If so, how do I check to see that the sheet does not have any merged cells?

Function CleanBook()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Sheets
    sh.Cells.UnMerge
    sh.Name = Trim(sh.Name)
Next sh
End Function

I get "application-defined or object-defined error"

Replace sh.Cells.Unmerge with sh.Cells.MergeCells = False

Yes, those work but sh.cells.unmerge should work. If the cell is merged, it will unmerge it. It the cell is unmerged it should ignore it.

UnMerge applies to a defined cell range. For example. Range("A1:A10").Unmerge. In your example, you are trying to unmerge entire cells on a worksheet, which is a global level method. In summary, if you want to unmerge entire cell, go with MergeCells = False. If you want to unmerge to a defined cell range, go with UnMerge.

The code fails on the first sheet Control Panel which is the sheet I made up and it is "clean." It does not have merged cells and never did.

Nice call on trim on the sheets. That's not what is happening here, but still, I did not consider it.

At least I learned one thing that didn't work.

Suppose I had two sheets (quotes to show the spaces): " Sheet 1" and "Sheet 1 " - TRIM for each would yield "Sheet 1" so when I try to name the second sheet to "Sheet 1" I should get an error.

I suggested it might be an issue in the duplicate thread that Ford has closed ... unfortunately, the posts weren't merged (no pun intended)

Hmmm, I don't recall posting this twice.

For information https://www.excelforum.com/excel-pro...all-cells.html