Thread: FIND function driving me nuts
View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.programming
Duncan A. McRae Duncan A. McRae is offline
external usenet poster
  
Posts: 8
Default FIND function driving me nuts
Here's what I'm going with:

Dim FoundCell As Range
Set FoundCell = Cells.Find(Date)

If FoundCell Is Nothing Then
MsgBox "failed"
Else
FoundCell.Activate
End If

Reply With QuoteReply With Quote