Comboboxta sayfa isimleri

[yilmazweb]

Merhabalar...

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name

End Sub

Comboboxa sayfa isimlerini alan yukarıdaki kodu, yeni sayfalar eklense de her zaman sadece soldan ilk 11 sayfayı gösterecek şekilde nasıl düzenlemeliyim ?
Teşekkür ederim.

 

[Necdet]

Merhaba,

if i > 11 then
     exit sub
else
     combobox1......
end if

şeklinde kullanınız.