There are different shades of red, so 3 may not be the right number

Sub getcolor()

mycolor = ActiveCell.Interior.ColorIndex

MsgBox ("Active Cell Color = " & CStr(mycolor))

End Sub

"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

--
regards,
Tom Ogilvy


"brownti via OfficeKB.com" wrote:

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
links in them are colored red, other cells are filled with a couple other
colors. i need some code that will find a cell that is red in that range,
check if there is a value in it, and if there is a value and the cell is red,
copy that value and paste that value one cell to the right. I know there is
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