Gizli Sayfalar ComboBoxta listelenmesin

[Hakan ERDOST]

Private Sub ComboBox1_Click()
On Error Resume Next
s = MsgBox("Seçili sayfaya gitmek istiyor musunuz?", vbExclamation + vbYesNo, "....")
If s = vbYes Then Application.Visible = True

Sheets(ComboBox1.Value).Select
End Sub

Private Sub CommandButton1_Click()
Unload Me

UserForm3.Show

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim sh As Worksheet
For Each sh In Worksheets
    ComboBox1.AddItem sh.Name
Next
End Sub

Bu kod ile çalışma kitabındaki sayfaları comboya çekiyorum.Ancak gizli sayfaların listelenmesini engellemek istiyorum. Mümkünmüdür?

 

[Orion1]

Buyurun.

Private Sub UserForm_Initialize()
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Visible = True Then ComboBox1.AddItem sh.Name
Next
End Sub

 

[Hakan ERDOST]

Teşekkürler.

 

[Orion1]

Teşekkürler.

Rica ederim.
İyi çalışmalar.