Sub ijb()
Dim i As Integer
i = 1
While Cells(i, 3) < ""
If Cells(i, 3) = "LU" Then
Cells(i, 5) = Cells(i, 5) / 1000
End If
i = i + 1
Wend

End Sub
though i admit the other replies are more elegant!


--
Remove nospam from my e-mail address to talk direct

Not MCSD just experienced

"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.