Using the code below provide by Tom Olgivy to copy & paste filtered data to
a second sheet.

Set rng = Sheets("Names").AutoFilter.Range
Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, 1)
rng.Copy Destination:=Worksheets("Feb Results05").Range("A2")

''' Transfer Class No.5 names only.

Selection.AutoFilter Field:=12, Criteria1:="05"
rng.Copy Destination:=Worksheets("Feb Results05").Range("A38")

How do I more to next Criteria:=06 if 05 not found in Field:=12
--
Thank you

Regards
Aussie Bob C.
Using Windows XP Home + Office 2003 Pro