Range.ShrinkToFit (Excel)

Retorna ou define um valor que indica se o texto é automaticamente reduzido para se ajustar à largura de coluna disponível.

Essa propriedade retorna true se o texto é automaticamente reduzido para se ajustar à largura de coluna disponível ou nulo se essa propriedade não estiver definida com o mesmo valor para todas as células no intervalo especificado.

ActiveCell.ShrinkToFit = True