نرجو ان يعمل الكود من صفحه اخرى وليس في نفس الصفحه
الحل من المحترم ياسر العربي
الموضوع بسيط اخي الكريم
ضع اسم الشيت قبل اسطرالكود وتتعامل معه من اي مكان في الملف
كما بالكود التالي
Sub yasser3()
Sheets("sheet1").Columns("B:XFD").EntireColumn.Hidden = True
Sheets("sheet1").Range("a:v").EntireColumn.Hidden = False
End Sub
===
لاثراء الموضوع والحل من الاستاذ المحترم سليم حاصبيا
With Sheets("sheet1")
.Columns.Hidden = True
.Range("a1,b1,c1,g1").EntireColumn.Hidden = False
Application.Goto Reference:=.Range("b1")
End With
Sheets("sheet1").Activate
End Sub
==
الحل من الاستاذ المحترم ياسر خليل
إثراءً للموضوع .. أقدم لكم هذا الملف لعله يفي بالغرض وينهي هذا الموضوع بشكل أكثر مرونة