Thanks very much; It worked.
Is it possible to retain the formating properties; For example, I have
colored a row in Green,. I would like to contine see that row in green in the
"Blank" worksheet also

"excelent" wrote:

change
If Cells(t, 3) 0 And Cells(t, 4) = "Y" Then
to
If Cells(t, 3) < 0 And Cells(t, 4) = "Y" Then