Remove Text Wrap and Unmerge cell

Remove Text Wrap

This code will help you to remove text wrap from the entire worksheet with a single click.

It will first select all the columns and then remove text wrap and auto fit all the rows and columns.

Sub RemoveWrapText()
Cells.Select
Selection.WrapText = False
Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit
End Sub

Unmerge Cells

Select your cells and run this code and it will unmerge all the cells from the selection with your loosing data.

Sub UnmergeCells()
Selection.UnMerge
End Sub