Jim,

good catch, thanks.

--
Regards,
Tom Ogivy

"Jim Thomlinson" wrote in message
...
Not to be picky since this is excelent code, but I think that it should
read...

set rng = cells.find(myVar)

Tom you really write the nicest code...

"Tom Ogilvy" wrote:

Dim rng as Range
Dim myVar as Long
myVar = 10
set rng = cells.find(10)
if not rng is nothing then
rng.offset(0,1).Value = 20
end if

--
Regards,
Tom Ogilvy

"Himszy" wrote in message
. ..
Hi

I'm trying to write that if a variable equals a value then find a cell
that
equals the same amount and type in another variables value in to the
cell
next to it.

Thanks Michael