You can use a variable to represent that Found cell.

Dim FoundCell as range

set foundcell = Selection.Find(What:="Alternate", After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)

if foundcell is nothing then
'do nothing???
else
foundcell.value = "Tony"
end if

"Erik K via OfficeKB.com" wrote:

I am trying to use selection.find for a word that may or may not be in the
specified search. My problem is that when I do the selection find and it
doesn't find the word, the macro stops and prompts me to debug with the
following message:

Object variable or With Block variable not set.

Here is where the bug is located:

Range("V38,V45,V52,V58,V65,V72,V78,V84").Select
If Range("AG21").Value = "N" And ActiveCell < "Tony" Then
Selection.Find(What:="Alternate", After:=ActiveCell, LookIn:
=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.FormulaR1C1 = "Tony"
End If

Now I think the problem is that it can't Activate a cell because it did NOT
find the word "Alternate". How can I write the code so it will work?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200510/1

--

Dave Peterson