uitzondering in code maken

[tobo100]

Hallo allemaal ik heb een code die een combobox vult met alle werkblad namen,
werkt prima maar er zijn ook een paar (standaard) werkblad namen die er niet tussen moeten staan
kan iemand me helpen met het maken van een uitzondering in deze code
zo dat bijvoorbeeld werkblad Data , Zoekblad list niet in de combobox voorkomt ?
bvd

vr gr Tobo

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

 

[edmoor]

Zoiets?

Private Sub ComboBox1_GotFocus()
    Dim sh  As Worksheet
    ComboBox1.Clear
    For Each sh In ActiveWorkbook.Worksheets
        Select Case LCase(sh.Name)
            Case "data", _
                 "zoekblad"
            Case Else
                ComboBox1.AddItem (sh.Name)
        End Select
    Next sh
End Sub

 

[tobo100]

hallo Ed helemaal perfect dankje wel super ben er erg blij mee :thumb: