اخفاء اسماء الاوراق من الكمبوبوكس

[amine14]

السلام عليكم 

لو سمحتم ارغب بإخفاء اسمين الاول والاخيرة ("end") من الكمبوبوكس 

تعبئة الكومبوبوكس بأسماء أوراق العمل .xlsm

[amine14]

بورك فيك استاذ لقد وجدت الحل 

جزاك الله خير

  

Private Sub UserForm_Initialize()
    Dim X As Long
    For X = 4 To Sheets.Count - 1
       Me.ComboBox1.AddItem Sheets(X).Name
    Next
End Sub