cells with formulas

  • Thread starter Thread starter scrabtree23
  • Start date Start date
or simply use Ctrl-` (that's the key to the left of the 1 on the top row.
This toggles the setting.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
You can use

Dim FormulaRng As Range
Set FormulaRng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
scab

Without code....Edit>Go To>Special>Formulas
Then if you have the color fill button on your toolbar..hit it.

With code......

Sub colorcells()
Dim Cel As Range
For Each Cel In ActiveSheet.UsedRange
If Cel.HasFormula Then
Cel.Interior.ColorIndex = 3 'Red
End If
Next
End Sub

Gord Dibben XL2002
 
Back
Top