'*valdate' (w/o the quotes) will work in this specific instance.
However, AFAIK, there is no generic 'or' or 'and' capability within the
Find method.

--
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article <3F50EF0F-D53E-4D3C-9CC2-B9CB084D42A6@microsoft.com>,
swiftcode@discussions.microsoft.com says...
> Hi all,
>
> I was wondering if there is anyway i simplify the following code to do
> multiple search criterias.
>
> On Error Resume Next
>
> Cells.Find(What:="valdate", After:=ActiveCell, _
> LookIn:=xlFormulas, LookAt:=xlPart, _
> SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> MatchCase:=False, SearchFormat:=False).Activate
>
> Cells.Find(What:="invaldate", After:=ActiveCell, _
> LookIn:=xlFormulas, LookAt:=xlPart, _
> SearchOrder:=xlByRows, SearchDirection:=xlNext, _
> MatchCase:=False, SearchFormat:=False).Activate
>
> On Error Goto 0
>
> Thanks in advance
> Ray
>