You didn't tells, so assuming the column you want to change is Column A...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Range("A2").EntireColumn.Font.Color = RGB(255, 0, 0)
End If
End Sub

--
Rick (MVP - Excel)


wrote in message
...
Hi,

I have found a macro on the net and edited so that if an exisiting
cell value is changed the font will change to red.
However, I am trying to amend this code so that it refers to an entire
column and not just a cell. I am very new to VB and have not found a
way. Can someone help me amend this code or know a better way of doing
this.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$A$2") Then
Range("A2").Font.Color = RGB(255, 0, 0)
End If
End Sub