ComboBox Koşullu Arka Plan Renklendirme

[sametguler]

ComboBox ile Excel üzerindeki tüm çalışma kitaplarının isimlerini aldırıyorum.
Amacım;
Eğer ComboBox üzerinde yazmaya başlayınca anlık olarak ( her harfe bastığımda ) yazdığım veri sayfa isimlerinden herhangi biriyle aynı değilse ComboBox arka plan rengi yeşil olsun.
Eğer yazdığım veri sayfa isimleriyle aynı ise kırmızı olsun.
Bunun kodunu yazabilir misiniz?

 

[ÖmerBey]

Combobox change olayını şu şekilde düzenleyiniz.
İsteğinize göre if sorgularından birini tercih ediniz.

Private Sub ComboBox1_Change()
For Each syf In ThisWorkbook.Sheets
    If InStr(syf.Name, ComboBox1.Text) = 1 Then 'Sayfa adları combobox ile başlıyorsa
    'If syf.Name = ComboBox1.Text Then 'Sayfa adı combobox ile aynı ise
        ComboBox1.BackColor = vbRed
        Exit Sub
    Else
        ComboBox1.BackColor = vbGreen
    End If
Next
End Sub