Tom Ogilvy


This code you wrote almost works the way I want it to

But I only want to copy the rows that the text is green
Can you help me modify the code I have tried to but I don't have th
know how to make it work.

Dim rng as Range
On Error Resume Next
set rng = Me.Columns("P").Specialcells(xlConstants,xlTextVal ues)
On Error goto 0
if not rng is nothing then
rng.EntireRow.copy Destination:=Worksheets("Rolls to b
Pulled").Cells(2,1)
Else
msgbox "No cells found"
End if

Thanks
Charle

--
mrdat
-----------------------------------------------------------------------
mrdata's Profile: http://www.excelforum.com/member.php...fo&userid=1789
View this thread: http://www.excelforum.com/showthread.php?threadid=51153