Use TexBox to filter ListBox

Hello. I have a workbook with a lot of sheets and some sheets had the same name but i add a number to change (PD-680-C, PD-680-C 1, PD-680-C 2). But now i want to create an useform to help me find the worksheet that i need to work.
I creat an useform with a textbox1 and a listbox1 and a shortcut (ctrl+l) in keybord to go to the useform.

When i press ctrl+l i have the textbox1 clear and i have the listbox1 with all sheetnames.

I use this code:

Please Login or Register  to view this content.

But now, i want to filter the sheetnames, using the textbox1 (when i insert PD, in the listbox i have all sheetnames that's countain "PD") and when i click in same sheetname i go to there.

Sorry my poor english, but i'm portuguese :D

Regards

Userform code example may be:

Please Login or Register  to view this content.

Give me an error "13": Type Mismatch and yellow in "vList = Filter(aSheets, Me.TextBox1.Text, True, vbTextCompare)"

First i do this code and i have the same problem:

Please Login or Register  to view this content.

Welcome to the forum.

We'd like to continue to help you but first..

Pls take some minutes to read forum rules and specially-in this case- rule#3

Originally Posted by djokanice

Thank for the alert Now that's right :D

Not exactly!

Pls do the same in your first post!