اللسلام عليكم
الاخ الكريم / محمد فاروق محمود
ضع الكود التالي في حدث ThisWorkbook
----------------------------------------------------------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
ActiveSheet.Columns(Target.Column).AutoFit
End Sub
---------------------------------------
جزاك الله خيرا