Baş harfine göre bulma

[akd]

Merhaba arkadaşlar,
Ben aşağıdaki kod ile sayfa isimlerini listbox'a baş harfine göre alıyorum.
ama ben textbox1'e tek harf yerine A yazınca baş harfi A olanlar A nın yanına H yazınca AH la başlayanlar AHM yazınca AHM le başlayanlar diye devam etsin istiyorum.
Yardım olacak arkadalara şimdiden teşekkürlerimi sunarım.

Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
Dim i As Integer
ListBox1.Clear
For i = 1 To Worksheets.Count - 9
If WorksheetFunction.Proper(Left(Worksheets(i).Name, 1)) = _
WorksheetFunction.Proper(TextBox1.Text) Then _
ListBox1.AddItem Worksheets(i).Name
Next
End Sub

 

[ALPEN]

Private Sub TextBox1_Change()
TextBox1.Value = UCase(TextBox1.Value)
Dim i As Integer
ListBox1.Clear
For i = 1 To Worksheets.Count - 9
    If Left(Worksheets(i).Name, Len(TextBox1)) = TextBox1 Then
        ListBox1.AddItem Worksheets(i).Name
    End If
Next
End Sub

 

[akd]

Teşekkürler Sayın ALPEN...

 

[met07]

sayın alpen yukardaki mantıkla excel sayfasındaki bir listeden A1 hücresine veri girerken yazdığım harflere göre listeyi açılır kutuda sıralayabilirmiyiz.