Oh my gosh - Do I feel silly! I thought I had already tried thatThanks for
your help.

Bob Phillips wrote:
Private Sub ListBox1_Click()!

Dim UserInput As Range
Dim UserInput2 As Range

Set UserInput = Worksheets("Keys").Range("K9")
Set UserInput2 = Worksheets("Keys").Range("K10")

UserInput.Value = ListBox1.Value
For i = 1 To ListBox1.ListCount - 1
Range("UserInput2") = ListBox1.Selected(i)
Next

Sheets("Classes").Select
Selection.AutoFilter Field:=6, Criteria1:=UserInput, Operator:=xlAnd

Hi -

[quoted text clipped - 24 lines]
Selection.AutoFilter Field:=6, Criteria1:="Range.UserInput", Operator:
=xlAnd

--
Message posted via http://www.officekb.com