if cell contains formula change background colour to pale yellow

[Max Bialystock]

I'd like to be able to do this:

if cell contains formula change background colour to pale yellow

how would I write that in vba, please

 

[Paul B]

David here is one way

Sub Color_Formula_Cell()
On Error GoTo e:
With Cells
..Interior.ColorIndex = 0
..SpecialCells(xlFormulas).Interior.ColorIndex = 36
End With
Exit Sub
e: MsgBox "There are no formulas or the sheet is protected"
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 97
** remove news from my email address to reply by email **

 

[Max Bialystock]

Paul,

That's terrific thank you. That's just what I wanted.