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.