I knew it would be something pretty simple, thanks.

Tom Ogilvy wrote:
for each cell in range("links")
if cell.interior.colorIndex = 3 then
if cell.HasFormula then
cell.offset(0,1).Value = cell.value
end if
end if
next

it isn't clear what you are looking for when you say value - is value
synonymous with number? then instead of hasformula do

if isnumeric(cell.value) then
cell.offset(0,1).Value = cell.value

I have a sheet that is setup as follows: Range links1 has some links in it,
not all of the rows have links, but a majority of them do. The cells with
[quoted text clipped - 4 lines]
a way to do this, but i am not sure how to get the code going. I would
really appreciate any help as this will really speed up a process. Thanks

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200705/1