Combobox ta seçtiğim sayfaya gidemiyorum

[YASINT]

arkadaşlar programımda aşağıdaki kodla sayfa adlarını çağırıyorum ama isimleri seçtiğimde o sayfayı açmıyor bazı kodları denedim olmadı eksik yazmam gereken kodu verirseniz sevinirim teşekküler.

Private Sub UserForm_Initialize()
For a = 1 To Sheets.Count
Label10 = Now()
If Sheets(a).Name = "Kasa" and Sheets(a).Name = "Data" Then GoTo 10
ComboBox1.AddItem Sheets(a).Name
10
Next
End Sub

 

[YASINT]

Arkadaşlar kusura bakmayın ya en sonunda çözdüm. hepinize kolay gelsin

 

[isakarakus]

ben denedim
bu kodlar çalışıyor,

eğer combobox'a bir adres atadıysanız hata verir..

rowsource boş olmalı yoksa haata verir....