Thats what I want. How do I break links for this perticuler formula(UDF
only. It is used at many places and is difficult to do it manually.


Regards,
Rain

--
Rain
-----------------------------------------------------------------------
Raina's Profile: http://www.excelforum.com/member.php...fo&userid=1550
View this thread: http://www.excelforum.com/showthread.php?threadid=27272

Dim sh as Worksheet
Dim rng as Range
Dim cell as Range
ActiveWorkbook.Copy
for each sh in ActiveWorkbook.worksheets
set rng = Nothing
On Error Resume Next
set rng = sh.Cells.SpecialCells(xlformulas)
On error goto 0
if not rng is nothing then
for each cell in rng
if Instr(cell.Formula,"color") then
cell.Formula = cell.Value
end if
Next
End if
NExt
Activeworkbook.SaveAs "FiletoSend.xls"

--
Regards,
Tom Ogilvy


"Raina" wrote in message
...

Thats what I want. How do I break links for this perticuler formula(UDF)
only. It is used at many places and is difficult to do it manually.


Regards,
Raina


--
Raina
------------------------------------------------------------------------
Raina's Profile:
http://www.excelforum.com/member.php...o&userid=15502
View this thread: http://www.excelforum.com/showthread...hreadid=272724