Hi Ron

Put in the userform's module:

Private Sub UserForm_Initialize()
Dim R As Long
For R = 1 To Sheets(1).Cells(65000, 1).End(xlUp).Row
If Sheets(1).Cells(R, 1).Value Like "Angle*" Then _
ListBox1.AddItem Sheets(1).Cells(R, 1).Value
Next
End Sub

HTH. Best wishes Harald

"RShow" skrev i melding
ink.net...
Greetings,
I'll try to explain this with my limited technical language.

Scenerio:
Worksheet column A has all part names followed by dimension(Angle 1 x 1 x
1/8...
Angle 1 x 1 x 3/16..Channel 4 x 4....Channel 6 x 6....). It is ever
Growing
as new custom parts and sizes are created and added. How can i populate a
listbox on a userform to only show all parts that begin with "angle", or
all
parts that begin with "channel" , etc.

Thank you for your time and help.
Ron.