You didn't answer any of the questions I asked.

Based on what you did say, it looks like you have other than G's in column
P.

Sub CopyDate()
Columns("P:P").Select
Selection.AutoFilter Field:=1, Criteria1:="G"
Selection.EnireRow.Copy _
Worksheets("Rolls to be Pulled").Cells(2,1)
Worksheets("Rolls to be Pulled").Rows(2).Delete
End Sub



--
Regards,
Tom Ogilvy


"mrdata" wrote in
message ...

Hi Tom

The "G" in column (P) refers to the row font color Green
I'm using this to paint the row font colors without having to do it
manualy

The code you wrote copies all the rows to the correct worksheet
I only want to copy the green rows

Thanks for your help


--
mrdata
------------------------------------------------------------------------
mrdata's Profile:
http://www.excelforum.com/member.php...o&userid=17899
View this thread: http://www.excelforum.com/showthread...hreadid=511536