I am trying to filter the contents of a listbox, how can I do that?

[code]Private Sub categorybx_Click()
If categorybx.Value = "Cable" Then
categorybx.AutoFilter Criteria1:="Cable"
If categorybx.Value = "Fiber" Then
categorybx.AutoFilter Criteria1:="Fiber"
If categorybx.Value = "Faceplate" Then
categorybx.AutoFilter Criteria1:="Faceplate"
If categorybx.Value = "Jack" Then
categorybx.AutoFilter Criteria1:="Jack"
If categorybx.Value = "Connector/Coupler" Then
categorybx.AutoFilter Criteria1:="Connector/Coupler"
If categorybx.Value = "Patch Cable" Then
categorybx.AutoFilter Criteria1:="Patch Cable"
If categorybx.Value = "Hardware" Then
categorybx.AutoFilter Criteria1:="Hardware"
If categorybx.Value = "Termination" Then
categorybx.AutoFilter Criteria1:="Termination"
If categorybx.Value = "Electronics" Then
categorybx.AutoFilter Criteria1:="Electronics"
End Su
-------------------

--
musictec
-----------------------------------------------------------------------
musictech's Profile: http://www.excelforum.com/member.php?action=getinfo&userid=2485
View this thread: http://www.excelforum.com/showthread.php?threadid=39106