Loop to Un merge and Unwrap text

[MarkCBB]

Hi there VBA pros,

I recorded a macro to Un-merge and Un-wrap text.

when I looked at the macro is was huge, So i am assuming that the following code

 With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

repeats itself for each group of cells that is Merged?

I am looking for a loop that will loop until all merged cells are unmerged.

like look until, i think.

 

[JamesW]

Hi,

That will work assuming you selected the range.

You can specify a specific range if you wish:

     With Range("A1:G1000")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

 

[AlphaFrog]

This Unmerges\Unwraps all cells on the active sheet

Sub UnMerge_Unwrap_All()
    With Cells
        .WrapText = False
        .MergeCells = False
    End With
End Sub

 

[MarkCBB]

O yeah that works, thank, its strange that the macro recorder duplicates it for each merged cells.

thanks