you don't need to evaluate a string to make it a string
Range([x]).Offset(, 2) = Range([x]).Offset(, 2) / 1000

can be simplified to

Range(x).Offset(, 2) = Range(x).Offset(, 2) / 1000

Either method will raise an error if LU is not found.

Regards,
Tom Ogilvy


Don Guillett wrote in message
...
this will work
Sub FindDivide()
x = Columns(3).find("LU").Address
Range([x]).Offset(, 2) = Range([x]).Offset(, 2) / 1000
End Sub

--
Don Guillett
SalesAid Software
Granite Shoals, TX

"Steven R. Berke" wrote in message
om...
I want to write a macor which will find the letters LU in Column C
them move to rows to the right to column E and divide the figure in
column E by 1000.