if all the formulas would refer to cells on the same sheet.

Sub MarkCells()
Dim rng As Range
Dim rng1 As Range
Dim cell As Range
On Error Resume Next
Set rng = ActiveSheet.Cells.SpecialCells(xlFormulas)
On Error GoTo 0
If Not rng Is Nothing Then
For Each cell In rng
Set rng1 = Nothing
On Error Resume Next
Set rng1 = cell.DirectPrecedents
On Error GoTo 0
If Not rng1 Is Nothing Then
cell.Interior.ColorIndex = 3
End If
Next
End If

End Sub


Regards,
Tom Ogilvy


"Seihee" wrote in message
...
Hi!

I'm writing a macro to examine all cells in a worksheet.
If a cell contains a "pure formula" referencing other
cells, then I want to change the color of the cell that
contains a formula.

In a macro, is there any way I can tell whether a cell
contains a formula rather than pure values (number,
literal, etc.)?

By "pure formula", I mean a formula that contain a cell
reference. In other words, "=b5+k2" will be considered a
formula but "=5+28/4" will not for my purposes.

Your help will be greatly appreciated.

Thanks,
Seihee