For j = 4 to 100
    Select Case Range("D" & j).Value
        Case "ESPN"
            Range("D" & j).Value = "773"
        Case "ESPN2"
            Range("D" & j).Value = "772"
        'etc.
    End Select
Next j