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