Döngüyü alttaki gibi denermisiniz.
Arraya Liste adınıda ekeyin.

For Each syf In Worksheets
    For k = 1 To UBound(istenmeyen, 1)
        If istenmeyen(k) <> syf.Name Then ComboBox1.AddItem syf.Name
    Next k
 
Next syf

---

Yada alttakini next k  satırının üzerine alın sizin ilk eklediğiniz kodda.

ComboBox1.AddItem syf.Name