One way
Sub overage()
For Each c In Range("a2:a82")
If (Year(Date) - Year(c)) 40 Then c.entirerow.delete
Next
End Sub
or a helper column and autofilter
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Go Terps" <Go wrote in message
...
I have a spreadsheet with birthdates listed in column H. Is it possible to
have certain rows automatically deleted when they hit 40 years old (or
older)?