Selection of Worksheets on a UserForm ComboBox.

Hi Everyone,

I hope you are all well.

I have a workbook with 14 sheets, twelve of them are the full months of a year, the other two are protected and hidden sheets.

I have the following code that populates all sheets in a combobox:

Option Explicit
Private Sub Userform_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
      Me.lstSheets.AddItem sht.Name
Next sht
End Sub

What I need is to populate on the ComboBox (lstSheets) all sheets but the two I have protected and hidden. The sheets names are: "Database" and "Codes".

I've tried few codes, even with IF statement but cannot have it to work properly.

Any ideas will be highly appreciated.

Best regards,
Filipe

Thanks a million Mike,

One is Hidden but the other one is not and I need to have them both clear from the list in the combobox.

I've tried the following code but I can only managed to clear one:

Option Explicit
Private Sub Userform_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
      If sht.Name <> "Database" Then Me.lstSheets.AddItem sht.Name
Next sht
End Sub

How can I set more that one sheet?

Thanks a million in advance.

BR,
Filipe

Sorry guys,

I have founded the code I had missing:

Option Explicit
Private Sub Userform_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
      If sht.Name <> "Database" And sht.Name <> "Codes" Then Me.lstSheets.AddItem sht.Name
Next sht
End Sub

Although, thanks Mike for your help as well so I know now how to not include hidden sheets.

Much appreciated.
Filipe

Sorry guys,

I have founded the code I had missing:

Option Explicit
Private Sub Userform_Initialize()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Sheets
      If sht.Name <> "Database" And sht.Name <> "Codes" Then Me.lstSheets.AddItem sht.Name
Next sht
End Sub

Although, thanks Mike for your help as well so I know now how to not include hidden sheets.

Much appreciated.
Filipe