Private Sub Worksheet_Change(ByVal Target As Range)
Call Ajustar
End Sub

Sub Ajustar()
Range("A:A,B:B,C:C,D:D,E:E,J:J").EntireColumn.AutoFit
End Sub

Boa noite!!

Automatico seria por VBA.

Esse código deve posto dentro da Plan1 ou 2 ou 3, embaixo de EstaPasta_de_Trabalho

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.ScreenUpdating = False
    For Each Sh In ActiveWorkbook.Worksheets
        On Error Resume Next
        Sh.Activate
        Cells.EntireColumn.Autofit
    Next Sh
    Application.ScreenUpdating = True
End Sub

Charlie,
Boa noite!

Além das boas dicas dos nossos mestres aquí do fórum, aproveito para informa-lo que poderá explorar a utilização de gravação de MACROS que é essencial nessa questão.

Copiei o código do alexandrevba, mas ele faz com que não seja possível usar o comando Desfazer após cada digitação. Tem como resolver isso mantendo o ajuste automático de largura?

Bom dia!!

Os recursos de VBA não fazem parte do excel, então quando é feito uma ação por VBA, é o mesmo que não ter feito nada no excel, por isso o desfazer (Ctrl + Z), não funciona!!

Att

Entendo. Mas o problema não é nem que não dê pra desfazer o ajuste de largura. É que, se eu faço uma digitação que vá ativar o ajuste automático de largura, o código simplesmente apaga a opção de Desfazer. Então sou obrigado a manter quaisquer erros que tenha feito, ou não salvar e perder todas alterações.

Bom dia!!

Então mude o gatilho (forma de dispara a macro), coloque em um botão ou de outra forma que não seja Private Sub Workbook_SheetChange(

Att

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.