comboboxa istenmiyen verileri almama

[Fuat Şirin]

saygılar sorunum şu

comboboxa sheet isimlerini alıyorum
isteğim gözükmesini istemediğim sheetleri almaması
saygılar şimdien

 

[Orion1]

Dizi içindeki sayfa isimleri combobox'a alınmıyor.

Dim syf As Worksheet, k As Byte
istenmeyen = Array("", "Sayfa1", "Sayfa3", "Sayfa7", "Sayfa8")
For Each syf In Worksheets
    For k = 1 To UBound(istenmeyen, 1)
        If istenmeyen(k) = syf.Name Then GoTo atla
    Next k
    ComboBox1.AddItem syf.Name
atla:
Next syf

 

[Fuat Şirin]

hocam çok saolun