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?
I get "application-defined or object-defined error"
Please Login or Register to view this content.
One spreadsheet to rule them all. One spreadsheet to find them. One spreadsheet to bring them all and at corporate, bind them.
A picture is worth a thousand words, but a sample spreadsheet is more likely to be worked on.
Replace sh.Cells.Unmerge with sh.Cells.MergeCells = False
How aboutPlease Login or Register to view this content.
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.
Best guess is that if there are no merged cells, then Cells.Unmerge effectively returns Nothing
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.
Nice call on trim on the sheets. That's not what is happening here, but still, I did not consider it.
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 get what you're saying, it's just that I can't see anyone mentioning that, hence my confusion.
I suggested it might be an issue in the duplicate thread that Ford has closed ... unfortunately, the posts weren't merged (no pun intended)
Trevor Shuttleworth - Retired Excel/VBA Consultant
I dream of a better world where chickens can cross the road without having their motives questioned
'Being unapologetic means never having to say you're sorry' John Cooper Clarke
Hmmm, I don't recall posting this twice.
For information https://www.excelforum.com/excel-pro...all-cells.html
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks