Searching for a Date
 

-Hello Everyone

I have a problem searching for a date. It works when I record it but not
when I run the code.

Sub FindDate

Cells.Find(What:="14/12/2005", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

End Sub

Running the macro above returns 'Object variable or With block variable not
set'
But if I end the code and do Shift+F4 to 'find again' Excel goes straight to
the cell?

Thanks for reading this far, and in advance for any help

Matt

Searching for a Date
 

Sub FindDate()

Cells.Find(What:=CDate("14/12/2005"), _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate

End Sub


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Matt" wrote in message
...
-Hello Everyone

I have a problem searching for a date. It works when I record it but not
when I run the code.

Sub FindDate

Cells.Find(What:="14/12/2005", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

End Sub

Running the macro above returns 'Object variable or With block variable
not
set'
But if I end the code and do Shift+F4 to 'find again' Excel goes straight
to
the cell?

Thanks for reading this far, and in advance for any help

Matt

Searching for a Date
 

That's done the trick

Thanks Bob

Matt


"Bob Phillips" wrote:

Sub FindDate()

Cells.Find(What:=CDate("14/12/2005"), _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate

End Sub


--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

"Matt" wrote in message
...
-Hello Everyone

I have a problem searching for a date. It works when I record it but not
when I run the code.

Sub FindDate

Cells.Find(What:="14/12/2005", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByColumns,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

End Sub

Running the macro above returns 'Object variable or With block variable
not
set'
But if I end the code and do Shift+F4 to 'find again' Excel goes straight
to
the cell?

Thanks for reading this far, and in advance for any help

Matt