Object doesnt support this property or method

Hey Guys,

New to the forum. All my other problems I've been able to work out. However I'm stuck on this code.

I'm trying to format rows based on a word in a separate column. Not through conditional formatting.

I found this code on another post which I have manipulated to what I want it to do, but I now get a run time error 438 when execute the code
If I debug it highlights the following ".Font.ColourIndex = fc"

A solution with an explanation would be much appreciated so I can learn from my mistake.

Sub Find_First()

Dim c As Range, d As Range, fc As Long, fb As Boolean

Set d = Range("D5:D100")

If d Is Nothing Then Exit Sub

For Each c In d
    Select Case UCase(c)
        Case "HOLD"
            fc = 22: fb = False
        Case "CONSTRUCTION"
            fc = 41: fb = False
        Case "COMPLETE"
            fc = 15: fb = False
        Case "PROGRESSING"
            fc = 12: fb = False
        Case "DESIGN"
            fc = 1: fb = True
        Case Else
            fc = 1: fb = False
    End Select
    With Cells(c.Row, 1).Resize(, 4)
        .Font.ColourIndex = fc
        .Font.Bold = fb
    End With

Next

End Sub

Ah man. I'm such a noob. Haha. Thanks, had me stumped for days.