Sub macro()For Idx = Range("G" & Cells.Rows.Count).End(xlUp).Row To 2 Step -1 If Cells(Idx, "G") < WorksheetFunction.WorkDay(Date, -1) Then Cells(Idx, "G").EntireRow.Delete End IfNextEnd Sub
thanks Rgonzo. Works brilliant for today but I will need to test it on Monday :-)
Although I am sure it will work fine
Jagwarman
ASKER
Hi Rgonzo,
of course it worked :-)
but
there is always something. for some reason in the file today the users have left the date in several of the cells blank and from what I can tell the code has deleted those rows. Can this be amended to say if blank ignore.
Hope you are ok with that or I would be happy to do a re-post to get you extra points
pls try
Open in new window
Regards