Tak ako píše L-Core - skonvertuj si čísla na text (nástrojom text na stĺpce)
Potom pokiaľ "čísla" začínajú na A1, aplikuj makro:

Sub HrubaCast()
    For i = 1 To Range("A1").End(xlDown).Row
        Range("A" & i).Characters(Start:=7, Length:=4).Font.FontStyle = "Bold"
    Next i
End Sub

Ak je tých cca 420 "čísel" pod sebou niekde inde, musíš upraviť index riadka i a východziu bunku Range("A" & i)
Napr ak čísla pod sebou začínajú v H8, bude kód vyzerať:

Sub HrubaCast()
    For i = 8 To Range("H8").End(xlDown).Row
        Range("H" & i).Characters(Start:=7, Length:=4).Font.FontStyle = "Bold"
    Next i
End Sub