Loop For usando datas Compile Error: Syntax Error

Question

May 16, 2018, 10:04 PM

Loop For usando datas Compile Error: Syntax Error

Estou tentando executar um script que percorrerá todas as linhas de uma determinada coluna. Em seguida, ele comparará as datas nessas colunas com uma data definida. Se as datas forem maiores do que excluir a linha. O erro que estou recebendo é chamado de Erro de Compilação: Erro de Sintaxe.

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