Colour functions of Chip - small problem

[Raina]

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

 

[Tom Ogilvy]

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"