Populate Combobox with Worksheet Names EXCLUDE hidden

[smartbuyer]

Hi

I have a code that shows all the sheet names in a workbook. How do I exclude the hidden sheets from the combobox list?


Private Sub Userform_Initialize()
Dim sht As Worksheet, txt As String

For Each sht In ActiveWorkbook.Sheets
Me.ComboBox1.AddItem sht.Name

Next sht
End Sub

[mikerickson]

Try

Private Sub Userform_Initialize()
Dim sht As Worksheet, txt As String

For Each sht In ActiveWorkbook.Sheets
If sht.Visible = xlSheetVisible Then
Me.ComboBox1.AddItem sht.Name
End If
Next sht
End Sub

[snb]

Private Sub Userform_Initialize()
For Each sh In Sheets
if sh.visible then c00=c00 & "|" & sh.name
Next

Combobox1.list=split(mid(c00,2),"|")
End Sub