Try the following code:
Code:
--------------------
Private Sub CommandButton1_Click()
For Each cell In Sheets(1).Cells 'or Range("A1:G12")'
If cell.HasFormula Then cell.Interior.ColorIndex = 5 'or cell.Font.ColorIndex = 5
Next cell
End Sub
--------------------
That'll take some time, so you probably should define a specific Range
instead of working with every cell in the active sheet.
the .interior version changes BackgroundColor
the .font version changes TextColor
hope it'll help:),
Simon
--
moondark
------------------------------------------------------------------------
moondark's Profile:
http://www.excelforum.com/member.php...o&userid=27390
View this thread:
http://www.excelforum.com/showthread...hreadid=469193