Sub ReevaluateColumnB()
Columns(2).Replace _
What:="=", _
Replacement:="=", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
Columns(2).specialCells(xlFormulas).Font.ColorInde x = 5
End Sub

--
Regards,
Tom Ogilvy


"tsuoying" wrote in message
...

Tom, thank you for that script, it works perfectly!

Another question.... is it possible to make the result look like a
link, instead of just text? After I run the function, the cell
contents are still black, not the 'expected' blue. It's still a link
but could be made more intuitive by changing its color. Any way to do
that? Thanks again!

paul


--
tsuoying
------------------------------------------------------------------------
tsuoying's Profile:
http://www.excelforum.com/member.php...o&userid=20110
View this thread: http://www.excelforum.com/showthread...hreadid=346810