بارك الله فيك أخي عبد الله بولنوار وجزاك الله خير الجزاء
يمكن استخدام الكود بهذا الشكل بود الحاجة للتحديد :
Sub HideSpecificColumns()
Range("B:B,D:D,F:F,H:H,J:J,L:L").EntireColumn.Hidden = True
End Sub
Sub ShowSpecificColumns()
Range("B:B,D:D,F:F,H:H,J:J,L:L").EntireColumn.Hidden = False
End Sub