I would test if I was successful first

Dim rng as range
set rng = Worksheets("Revegetation").Range("A1:Z1000").Find( _
"Totals", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
if not rng is nothing then
With rng
.Offset(0,20.Value = 21
End With

--
Regards,
Tom Ogilvy

Brad Clarke wrote in message
...
Hi,

I am trying to search thru a spreadsheet using "Find" (see below) and keep
getting an error - "Run time error 1004 - Unable to get the Find property
of
the Range Class". What am i doing wrong???

With Worksheets("Revegetation").Range("A1:Z1000").Find( "Totals",
LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)


Thanks

Brad Clark