choice:
Try it

d = 2
Do While Cells(d, 4) < "Changed"
Cells(d, 1) = Cells(d, 2)
d = d + 1
Loop

--

http://www.vba.com.tw/plog/


"choice" wrote:

i have range d2:d1000
if d = "Changed" then
take the value in B of the same row and put in A of the same row.
if d does not = "Changed" then
exit sub

any help on how to write this as a loop would be greatly appreciated

thanks in advance