combobox ile sayfa açma sorunu

[gelen gecer mdmx]

Private Sub Worksheet_Activate()
Dim i As Integer
ComboBox1.Clear
ComboBox2.Clear
For i = 1 To Sheets.Count
If Sheets(i).Name = Sheets("NPU 3 Kirişli").Name Or Sheets(i).Name = Sheets("NPU 4 Kirişli").Name Or Sheets(i).Name = Sheets("NPU 5 Kirişli").Name Or Sheets(i).Name = Sheets("NPI 3 Kirişli").Name Or Sheets(i).Name = Sheets("NPI 4 Kirişli").Name Or Sheets(i).Name = Sheets("NPI 5 Kirişli").Name Or Sheets(i).Name = Sheets("NPI 6 Kirişli").Name Or Sheets(i).Name = Sheets("NPI 7 Kirişli").Name Or Sheets(i).Name = Sheets("NPI 8 Kirişli").Name Or Sheets(i).Name = Sheets("NPI 7 Kirişli MANUAL").Name Or Sheets(i).Name = Sheets("NPI 8 Kirişli MANUAL").Name Then
ComboBox1.AddItem Sheets(i).Name
Else
ComboBox2.AddItem Sheets(i).Name
End If
Next
End Sub

ile sayfalarımı ana menüden açıyorum ama if-else olduğu için tüm sayfa isimleri iki comboboxın birisinde gözüküyor. istediğim sayfaları göstermek ve açtırmak için başka önerisi olan var mı?

 

[abonem]

2 sinden birisinin dolu olup diğerinin boş olması can sıkabilir o zaman, ikisinide görünmez yapınız işlem sırasındada görünür hale getirebilirsiniz

 

[gelen gecer mdmx]

yok sorunumu tam anlatamadım sanırım şimdi a b c d ve e sayfalarım olsun
combobox1 de a ve b gözüksün
combobox2 de sadece e gözüksün

yani c ve d bu comboboxlarda gözükmesin.
ve seçtiğim sayfaya gideyim.