Just for fun, even shorter

Sub ShowSUMPRODUCTs()
Dim cell As Range

For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormu las)
cell.Interior.ColorIndex = -(cell.Formula Like "*SUMPRODUCT*") * 38
Next cell

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"CLR" wrote in message
...
Incredibly COOL Bob..........a keeper for sure.

Vaya con Dios,
Chuck, CABGx3




"Bob Phillips" wrote:

Sub ShowSUMPRODUCTs()
Dim cell As Range

For Each cell In
ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormu las)
If cell.Formula Like "*SUMPRODUCT*" Then
cell.Interior.ColorIndex = 38
End If
Next cell

End Sub



--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Dave F" wrote in message
...
I have a large spreadsheet, comprising a range of about 100000
individual
cells, a number of which cells are running various flavors of
SUMPRODUCT
calculations. Is there a macro I can write which would scan all the
cells'
formulas and highlight those cells whose formulas contain SUMPRODUCT?

Dave
--
Brevity is the soul of wit.