Agregar datos a un combobox omitiendo algunos datos

La macro que me enviaste tiene errores, te envío la corrección.

En la sentencia "CASE" puedes poner las hojas que no quieres que se muestren en el combobox2

Private Sub UserForm_Activate()
'Captura datos y guarda en empresa
'Por.Dam
ws_Count = ActiveWorkbook.Worksheets.Count
For i = 1 To ws_Count
    With Me.ComboBox1
    .AddItem Worksheets(i).Name
    End With
Next
ComboBox2.Clear
End Sub
Private Sub ComboBox1_Click()
'filtra los datos del combo2
'Por.Dam
ComboBox2.Clear
ws_Count = ActiveWorkbook.Worksheets.Count
For j = 1 To ws_Count
    With Me.ComboBox2
    Select Case Worksheets(j).Name
        Case ComboBox1, "Hoja3", "Hoja7"
        Case Else
            .AddItem Worksheets(j).Name
    End Select
    End With
Next
End Sub

Saludos.Dam

muchas gracias mi estimado quedo excelente

solo una pregunta como le puedo hacer para que las hojas 3 y 7 no me salgan en el combobox1

en el combobox2 quedo perfecto

por que trato de modificarlo pero me siguen saliendo en el combobox1 y el dos se mantiene en lo correcto

y si pudieras explicármelo te lo agradecería

saludos

Puedes finalizar esta pregunta y crear una nueva por cada evento y con todo gusto respondo todas tus inquietudes.

Saludos. Dam