مساعدة في كود

[ABOU ELSAAD]

الاخوة الكرام ... السلام عليكم ورحمة الله وبركاته

   ارجو من حضراتكم المساعدة في الكود التالي حيث  انه  يعرض  جميع اسماء الشيتات في الكمبوبوكس وما اريده ان يستثني اسماء شيتات محددة فلا يقوم بعرضها   

Private Sub UserForm_Activate()
Dim WS As Worksheet
   For Each WS In Worksheets
     ComboBox20.AddItem (WS.Name)
         Next WS
End Sub

اÙ_Ù_صÙ_Ù_231.xlsm

[أ / محمد صالح]

تفضل أخي الكريم

يمكنك كتابة الشيتات التي لا ترغب في ظهورها في المصفوفة arr

مع إحاطة الاسم بعلامتي تنصيص واستعمال الفاصلة للفصل بين الأسماء وبعضها

في هذا الكود تم استثناء sheet1 & sheet2

Dim ws As Worksheet, arr As Variant
arr = Array("Sheet1", "Sheet2")
For Each ws In Worksheets
If UBound(Filter(arr, ws.Name)) = -1 Then ComboBox1.AddItem ws.Name
Next ws

بالتوفيق

[ABOU ELSAAD]

جزاك الله خير الجزاء استاذنا الفاضل أ / محمد صالح  هذا هو المطلوب تماما