Hey, thanks for the reply. Originally the data would be displayed just below the criteria field. Here's the macro code:

Sub Sorter()
Range("Form!E5").Select
    Range("Data!A1: Data!I299").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "Form!A4:Form!I5"), CopyToRange:=Range("Form!A7:Form!I7"), Unique:=False
End Sub
The data is on one sheet and the form for displaying is on another. Thanks again.


Prophet