Mike,
This code seems to do what I want it to do but how would I get this to
work through all the rows until it gets to the last row with any data?
I also noticed that the code would get rid of my header so I started it
on K2 instead. In order to achieve the ability to have the macro go on
down the rows until there are none left I think I would have to do a Do
While loop. Is that correct?

Mike Fogleman Wrote:
If Range("K1").Value < "" And Range("K1").Value < "0000" And _
Range("M1").Value Now - 7 Then Range("K1").EntireRow.Delete

This will delete Row 1 when the 3 conditions are met.

Mike F
"DKY" wrote in
message
...

How would I translate this into VBS?? I know what I want to do, but
don't know the proper way to do this.

If the value in column K<"" AND <"0000" AND the value in column
M"(Now()-7)" then delete the row.

Help???


--
DKY

------------------------------------------------------------------------
DKY's Profile:
http://www.excelforum.com/member.php...o&userid=14515
View this thread:
http://www.excelforum.com/showthread...hreadid=387731



--
DKY
------------------------------------------------------------------------
DKY's Profile: http://www.excelforum.com/member.php...o&userid=14515
View this thread: http://www.excelforum.com/showthread...hreadid=387731