if cell contains formula change background colour to pale yellow

M

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
 
P

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 **
 
Top