Haven't looked at your workbook but.....see below for the code to change cell formatting. Put the vba code into the change event of your worksheet so it runs every time a user enters a value anywhere.


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("H:H")) Is Nothing Then             ' ensures only changes made to column H have an effect
 
     If target.value > 0 and target.value < 5 then
          cells(target.row, target.column - 2).font.colorindex = 1
     else
          cells(target.row, target.column - 2).font.colorindex = 0
     end if

end if

end sub