Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula Then
Target.Interior.ColorIndex = 37
Target.Interior.Pattern = xlSolid
End If
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"st120869" wrote in
message ...

Hello,
I have used the scrpit below to change the background colour of any
cell contacts that have been changed. I would like to adapt it to only
change cells when the user changes a formula inside the cells.

I do not want to protect the cell contents

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Interior.ColorIndex = 37
Target.Interior.Pattern = xlSolid
End Sub


--
st120869
------------------------------------------------------------------------
st120869's Profile:
http://www.excelforum.com/member.php...o&userid=18330
View this thread: http://www.excelforum.com/showthread...hreadid=496630