Conditional Formatting is not working

This is not the best way, but try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
For Each r In Target.Cells
    With r
'... your code here
    End With
Next
End Sub