Remove Text Wrap VBA Code

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