Try running the following short macro when the sheet containing the
formulae is activated

Sub Process()
Set CellRange = Cells.SpecialCells(xlCellTypeFormulas, 23)
For Each Cell In CellRange
Cell.Interior.ColorIndex = Sheets(Mid(Cell.Formula, 2,
InStr(Cell.Formula, "!") - 2)).Range(Right(Cell.Formula,
Len(Cell.Formula) - InStr(Cell.Formula, "!"))).Interior.ColorIndex
Next Cell
End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=547465