Let me guess at everything else

for i = 5 to 6
Set rng = Sheets("Names").AutoFilter.Range
rng.Select
Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, 1)

if Application.Countif(rng.columns(12),format(i,"00") ) 0 then
rng.Copy Destination:=Worksheets("Feb Results" &
format(i,"00").Range("A2")
Selection.AutoFilter Field:=12, Criteria1:=format(i,"00")
rng.Copy Destination:=Worksheets("Feb Results" &
format(i,"00")).Range("A38")
exit for
End if
Next i

--
Regards,
Tom Ogilvy

"Robert Christie" wrote in message
...

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