Conditional Formatting

Hi Support / anyone

I am trying to modify the macro below to just modify cells C5:C6 as once I get that working I can then use the macro in a spread sheet where I need to target the conditional formating to only certain rows / columns.

Can some one help please!

Cheers

Peter

REM Sheet Module

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = false
On Error Goto ENEV
REM add your code below
If IsNumeric(Target) Then
Dim grade As Range
Set grade = Cells(Target.Row, Target.Column+1)
If IsNumeric(Target) Then
If Target < 50 Then
grade.Font.Color = RGB(255,0,0)
Else
If Target > 90 Then
grade.Font.Color = RGB(0,0,255)
Else
grade.Font.Color = RGB(137,137,137)
End If
End If
End If
End If
ENEV:
Application.EnableEvents = true
End Sub
moanazoho