تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة
تم ارفاق كود الحل من الفاضل _ ا /الشيباني1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not OldRng Is Nothing Then
OldRng.EntireColumn.AutoFit
End If
Set OldRng = Target
End Sub
مرفق الملف
___.zip
و لا تنسونا من صالح الدعاء
تحياتى