Fixing error after finishing command in VBA

[Jovinchious]

Hi all,

I am trying to erase all rows which do not include my date (for example 17.10.2022) in column A.

Sub DELETEDATE()
Application.ScreenUpdating = False
Dim x As Long
For x = [a1].SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
Debug.Print Cells(x, "A").Value
If CDate(Cells(x, "A")) <> CDate("17/10/2022") Then
Cells(x, "A").EntireRow.Delete
End If
Next x
End Sub

...i use this type of code, and it works completely fine. It just gives an error after finish. Anyone knows how to do it without popping error at the end?
I need error-free code because I have more macro commands that I want to run at the same time, so this is slowing me down.
Tnx!

 

[Joe4]

It sounds like you may have some values in column A that cannot be converted into Dates.
Are they already dates or do you have any non-date entries?
Can you show us a sampling of what your entries in column look like?

 

[Alex Blakenburg]

It just gives an error after finish.

It sounds like you may have some values in column A that cannot be converted into Dates.

I think Joe is on the money, it just needs to be taken a little further.
Your For loop is running all the way to Row 1, which I expect is your column header and obviously not a date.
Change the loop to finish at Row 2

For x = [a1].SpecialCells(xlCellTypeLastCell).Row To 2 Step -1

 

[Jovinchious]

I think Joe is on the money, it just needs to be taken a little further.
Your For loop is running all the way to Row 1, which I expect is your column header and obviously not a date.
Change the loop to finish at Row 2

For x = [a1].SpecialCells(xlCellTypeLastCell).Row To 2 Step -1

the answer was right in front of my nose. Thank you!!!

 

[Alex Blakenburg]

You're welcome. Glad we could help.