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