macro works in excel 2019 but not in 2010 this gives type mismatch error 13

Hi All

My Macro stopped working in Excel 2010 but is ok in Excel 2019.

Sub xlDelDP()
Dim ws As Worksheet, cell As Range, rng As Range
Set ws = ThisWorkbook.Sheets("Offences")
lrow = ws.Range("A" & Rows.Count).End(xlUp).Row
Set rng = Sheets("Offences").Range("A2:A" & lrow)
For i = lrow To 2 Step -1
Set cell = ws.Range("A" & i)
If CDate(cell) <= Date - 365 Then cell.EntireRow.Delete
Next
Sheets("Front").Activate
End Sub

Its purpose is to delete data older than 12 months for Data Protection purposes.

Any help gratefully received.

Hi Rory

Many thanks for responding so quickly.

I will review the regional settings and cross-check the cells accordingly.

I thought I had set up Data Validation to prevent errors but I'll revisit that area also when I'm next at work.