This For loop deletes rows where the cell value is more recent than February 1st, 2013 (but slowly)

slowly_deleting_rows_that_are_older_than_a_date.vb

Option Explicit
Public Sub DeleteDatesMoreRecentThanFebFirstSlowly()
    Dim lngIdx As Long

    For lngIdx = 1000000 To 1 Step -1
        If Cells(lngIdx, 1).Value > DateValue("2/1/2013") Then
            Cells(lngIdx, 1).EntireRow.Delete
        End If
    Next lngIdx
End Sub