Range.ShrinkToFit (Excel)

Devuelve o establece un valor de tipo Variant que indica si el texto se reduce automáticamente para ajustarse al ancho de columna disponible.

Esta propiedad devuelve true si el texto se reduce automáticamente para ajustarse al ancho de columna disponible o null si esta propiedad no está establecida en el mismo valor para todas las celdas del rango especificado.

ActiveCell.ShrinkToFit = True