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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> 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
>