Hi
Try this code
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
ActiveSheet.UsedRange.Select
Selection.Columns.AutoFit
Application.EnableEvents = False
Range("a1").Select
Application.EnableEvents = True
End Sub
--
jetted
------------------------------------------------------------------------
jetted's Profile:
http://www.excelforum.com/member.php...o&userid=17532
View this thread:
http://www.excelforum.com/showthread...hreadid=560188