Find today's date and delete row

[TWINKLEMARVEL]

I have datas in excel where there are lot of dates in column "C" with the format "dd.mm.yyyy". I need a macro to find out today's dates and delete the entire ROW.

Pls help.

 

[AlphaFrog]

Sub Delete_Todays_Row()
    
    Dim Found As Range, Again As Boolean
    Application.ScreenUpdating = False
    Do
        Set Found = Range("C:C").Find(Date)
        Again = Not Found Is Nothing
        If Again Then Found.EntireRow.Delete
    Loop Until Not Again
    Application.ScreenUpdating = True
End Sub

 

[TWINKLEMARVEL]

Thanks for the quick response. The code works when I change the date format. I downloaded the data from server and the format appears like "dd.mm.yyyy"
Example: 31.05.2011

Pls help me to modify the code accordingly.

Thanks in advance

 

[AlphaFrog]

Set Found = Range("C:C").Find([COLOR="Red"]Format(Date,"dd.mm.yyyy")[/COLOR])

 

[Sektor]

Sub DeleteTodays()
    
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = 1 To Cells(Rows.Count, "C").End(xlUp).Row
        If Date = CDate(Cells(i, 1)) Then Cells(i, 1).EntireRow.Delete
    Next
    
    Application.ScreenUpdating = True
    
End Sub

 

[TWINKLEMARVEL]

Thanks AlphaFrog. The Second piece of code works very well.

Thank you once again..