Olá, pessoal!
Alguém poderia me ajudar a encontrar um código que percorra uma planilha e ao encontrar uma data igual ou anterior à hoje ela exclua essa linha?
Estou tentando esse código, mas não funciona com a data, se colocar outra palavra funciona, mas a data não.
Sub ApagarLinhas()
Dim lLin As Long
Application.ScreenUpdating = False
With Sheets("EXEMPLO")
For lLin = .Cells(.Rows.Count, "C").End(xlUp).Row To 11 Step -1
If .Cells(lLin, "B") = "HOJE()" Then .Rows(lLin).Delete
If lLin Mod 100 = 0 Then DoEvents
Next lLin
End With
Application.ScreenUpdating = True
End Sub
Obrigado, desde já!