søge mig frem til celle vha. VBA ?

Sub Select_cols1()
' vælger de kolonner der skal skjules
Dim DateFind As Range
Set DateFind = Range("G1")
    Range("C1", DateFind.Offset(0, -1)).EntireColumn.Select
End Sub

Ovenstående makro virker fint, men i stedet for
Set DateFind = Range("G1")
vil jeg gerne søge efter den celle Hvor datoen er "01-08-2000"

Jeg har forsøgt med
Set DateFind = Rows(1).Find(What:="01-08-2000", After:=Range("A1"), LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
men den returnerer "Nothing", og det udløser en fejlmeddelelse:
Run-time Error '91'
Object variable or With block variable not set

Når jeg indspiller søgninger i en makro ser den sådan ud:
Sub Makro1()
    Range("A1").Select
    Cells.find(What:="01-08-2000", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub
men selv den indspillede makro udløser fejlmeddelelesen.

Hvad kan jeg gøre for at søge mig frem til cellen med datoen vha. VBA ?