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

في الحقيقة أنني ممتنع من فترة عن المشاركة في منتدى آخر .. لأسباب شخصية ..
وأخشى أن يكون امتناعي منعاً للعلم .. لذا إذا كان بإمكاني المساعدة فسأضع الكود ها هنا ومن يرتاد المنتدى الآخر فعليه أن يقدم المساعدة بأن يضع رابط الموضوع الخاص بمنتدانا في الموضوع الموجود في المنتدى الآخر .. وهذا لحفظ الحقوق ...

الحل في تعديل الكود بالشكل التالي ..

Private Sub Worksheet_Activate()
    Dim Sh As Worksheet
    Me.cbSheet.Clear
    
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> Me.Name Then
            Me.cbSheet.AddItem Sh.Name
        End If
    Next Sh
End Sub

وتقبلوا وافر تقديري واحترامي