Here you go, something I just knocked up, hopefully it'll work

Public Sub TimmysTool()
   Dim j As Long
   Dim i As Long
   Dim colSize As Long
   Dim rowLength As Long
   
   colSize = Sheets("Sheet1").Cells(Rows.Count, 4).End(xlUp).Row
   
   For i = 1 To colSize
       If Sheets("Sheet1").Cells(i, 4).Value = "HOURS" Then
           rowLength = Sheets("Sheet1").Cells(i,
Columns.Count).End(xlToLeft).Column
           j = 4
           While j <= rowLength
               If Sheets("Sheet1").Cells(i, j).Value = 9 Then
                   With Sheets("Sheet1").Cells(i, j)
                       .Font.Color = RGB(255, 0, 0)
                   End With
               End If
               j = j + 1
           Wend
       End If
   Next i
End Sub

Maybe this

Right click your sheet tab, view code and paste it in

Sub stantial()
lastrow = Cells(Cells.Rows.Count, "D").End(xlUp).Row
Set myrange = Range("D1:D" & lastrow)
For Each C In myrange
   If UCase(C.Value) = "HOURS" Then
       For x = 5 To 36
           If Cells(C.Row, x).Value = 9 Then
               Cells(C.Row, x).Interior.ColorIndex = 3
           End If
       Next
   End If
Next
End Sub

Mike

you wanted font so use this line

Cells(C.Row, x).Font.ColorIndex = 3

Mike