Delete entirerow if cellvalue in column A has "xxxx" as year

[Eyeson15]

Please take me out of my misery.
I think I'm going insane from google search overload.

I have a workbook with 5000+ entries. It has dates in the format (dd.mm.yy) in Column A.

All I need to do is delete ALL the rows that are not between 2005 and 2010 (inclusive both years)

For example:

(1) 22.02.14
(2) 01.01.07
(3) 02.12.01

So, Rows 1 and 3 would be deleted and 01.01.07 is kept because it is between 2005 and 2010.

Please help me, I got over 6 workbooks to do this and really can't do this manually.

Below is the code I sort of made. Doesn't work ofcourse but brilliant code for crashing computers.

James

Sub DeleteRows()
    
    Dim i As Long
    Dim st As Long
    Dim en As Long
    Dim test As Long

    'Set ranges to four digit year code'
    st = 2005
    en = 2010

    For i = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    
    test = Val(WorksheetFunction.Text(ActiveSheet.Range("A" & i).Value, "yyyy"))
    If test < st Or test > en Then
    ActiveSheet.Range("A" & i).EntireRow.Delete
    End If
    Next i
    
End Sub

 

[Peter_SSs]

if i remove header row it just crashes excel

for Rick 50.414

for Peter 4.289

And the reason for the dramatic difference from your previous result is outlined in post #39

 

[Tetra201]

Valuable info learned.

Thank you Eyeson15
Thank you AkaTrouble
Thank you Rick Rothstein
Thank you Peter_SSs

 

[Peter_SSs]

thank you all for the hard work

James

Sorry, with all our "talking among ourselves", I forgot to acknowledge your response. You are very welcome!