You can use
Dim FormulaRng As Range
Set FormulaRng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormu las)
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"scrabtree23" wrote in message
...
How can I quickly identify all cells with a formula in
them?