'Value greater and change font colour

I have a spreadsheet where I am trying to find two or more Red colour font N's in the spread sheet, where I can turn them into "OT"

I attempted two tries, but failed.

a = Sheets("Schedule").Cells(i,j).Value = "N" And Sheets("Schedule").Cells(i,j).Font.Color = vbRed
if a>1 Then Sheets ("Schedule").Cells(i,j).Value - "OT"
End if 

If Sheets("Schedule").Cells(i,j).Value = "N" And 
  Sheets("Schedule").Cells(i,j).Font.Color = vbRed
  if Sheets ("Schedule").Cells(i,j).Value >=2 Then
    Sheets ("Schedule").Cells(i,j).Value - "OT"
  End if 
End if


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source