Estoy tratando de ejecutar un script que hojeará todas las filas para una determinada columna. Luego comparará las fechas en estas columnas con una fecha establecida. Si las fechas son más grandes que elimina la fila. El error que recibo se llama Error de compilación: error de sintaxis.

Sub removewrongyear()
Dim i As Integer

For i = 2 To 635475
 If Data.Cells(i,20).Value > DATE(2018,12,31) Then
Rows(i).EntireRow.Delete
Next i
End Sub