Sub a()
Dim cw As Variant
cw = Columns("A").ColumnWidth
Columns("A").AutoFit
If Columns("A").ColumnWidth < cw Then
Columns("A").ColumnWidth = cw
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim cw As Long
cw = Target.ColumnWidth
With Columns(Target.Column)
.AutoFit
If .ColumnWidth < cw Then
.ColumnWidth = cw
End If
End With
Application.ScreenUpdating = True
End Sub