Range.ShrinkToFit (Excel)

Returns or sets a value that indicates if text automatically shrinks to fit in the available column width.

This property returns True if text automatically shrinks to fit in the available column width, or Null if this property isn't set to the same value for all cells in the specified range.

ActiveCell.ShrinkToFit = True