C Chip Pearson Jan 1, 2004 #2 Noctos, Try something like the following, where A1 is the top left cell of the merged area. Range("A1").MergeCells = False -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com
Noctos, Try something like the following, where A1 is the top left cell of the merged area. Range("A1").MergeCells = False -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com
M Mike Fogleman Jan 1, 2004 #3 With VBcode, select the cell to unmerge With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .MergeCells = False End With
With VBcode, select the cell to unmerge With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .MergeCells = False End With
