for i = 1 to range.[w65536].End(xlUp).Row step 1
if range("w" & i ).value range("f" & i).value then
range("f" & i).value = range("w" & i).value
end if
next i



' range.[w65536].End(xlUp).Row gets last row in column W that has a
entr

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com