لاثراء الموضوع اضافه بسيطه
Sub إخفاء()
Application.ScreenUpdating = False
Dim rng As Range
Set rng = Range("c1,d1")
Columns.Hidden = False
rng.EntireColumn.Hidden = True
Application.ScreenUpdating = True
End Sub
صندوق الكتابه في النسخه الجديده للمنتدى لايفي بالغرض مثل النسخه القديمه