Thanks, mike. after this time, i know how to. just need to include something
like this and it works for me...Range.Delete Shift:=xlUp

thanks once again. It helps to relief myself from alot of frustration.

"Mike Fogleman" wrote:

The first rule when deleting rows in a list is to delete from the bottom up.

Mike F
"Junior728" wrote in message
...
Hi ,

I wish to write a macro that can find in column "O", a date in this format
(5/07/2007), if found then highlight the row in red color, else will have
to
delete the entire row. However, i just cannot make the macro run? How can
write in such as way that the marco looks from Row 1 to end of last used
rows
and try to search for the date format, and to delete that row ? i have
tried
selection.Entirerow.Delete or entirerow.delete...but still it does not
work.