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