Hi Everybody,
I have a code to change the font color in Workbook_SheetChange event when an cell value has been changed.Below is the code in the Workbook_SheetChange event, it is throwing a Application-Defined error or object defined error for this line.Please let me know if I miss anything here .

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Sh.Name <> "CM") Then
        Target.Font.color = 3
End if
end sub