delete cells based on value

I thought the attached macro would delete rows based on the values of a column of cells that I have preselected but it seems to delete far more than it should.  I want it to delete only those cells that have dates before March 1 2012. March1 has the julian value of about 41000.
Any suggestions on a modification?
Thanks.

Sub Deleteit()
Dim c As Range
For Each c In Selection
If c.Value = Range("$A$1").Value < 41000 Then c.EntireRow.Delete
Next
End Sub

Select allOpen in new window

Sub Deleteit()
Dim c As Range
For Each c In Selection
If c.Value = Range("$A$1").Value < 41000 Then c.EntireRow.Delete
Next
End Sub

Select allOpen in new window

Deleted by SouthMod, no points refunded:  8/22/2012 4:32:37 AM
Duplicate: https://www.experts-exchange.com/questions/27837464/clear-entries-and-delete-row.html
RA: https://www.experts-exchange.com/R_10146.html