this compares dates in column A and removes rows where the date is less than
Today's date

For r = 100 To 2 Step -1
If Cells(r, "A") < Date Then Rows(r).Delete
Next r

I am assuming you mean expiry dates earlier than today.

HTH

"simoncottle" wrote:


Hi

I want to write a macro which allowed me to automatically remove data
which had expired past today's date?

Has anyone got a clue as to how this is done?


--
simoncottle
------------------------------------------------------------------------
simoncottle's Profile: http://www.excelforum.com/member.php...o&userid=33122
View this thread: http://www.excelforum.com/showthread...hreadid=529323