Macro para eliminar ajuste de texto

A veces nos en contramos con los textos en dos lineas dentro de la misma celda.

Con esta macro consigues eliminar el ajuste del texto, así veras el contenido de esa celda en una sola linea.

Código de la macro

Sub EliminarAjusteTexto()

Selection.WrapText = False

Cells.EntireRow.AutoFit
Cells.EntireColumn.AutoFit

End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada