B Bob Phillips Nov 14, 2003 #3 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)
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)
C Chip Pearson Nov 14, 2003 #4 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
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
G Gord Dibben Nov 14, 2003 #5 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
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