Left funktion i VBA

Hej

Jeg har en UserForm med en ComboBox.

I ComboBoxen vil jeg gerne have vist navnene på alle projektmappens ark med undtagelse af det første ark.

Det fungerer med denne SUB:

Private Sub UserForm_Activate()

For I = 2 To Worksheets.Count
    ComboBox1.AddItem Sheets(Ark + I).Name
Next

End Sub


Nu vil jeg så gerne kunne afgrænse hvilke ark der skal med. I nedenstående eksempel vil jeg kun have ark med hvis første tegn er et q.

Det har jeg forsøgt i nedenstående, men det virker ikke. Er der en der kan se hvad jeg har gjort forkert?

Private Sub UserForm_Activate()

For I = 2 To Worksheets.Count

If Left(Sheets(Ark + I).Name, 1).Value = "q" Then

    ComboBox1.AddItem Sheets(Ark + I).Name

End If

Next

End Sub

Hilsen

TVC