Hey, thanks for the reply. Originally the data would be displayed just below the criteria field. Here's the macro code:
The data is on one sheet and the form for displaying is on another. Thanks again.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
Prophet