Keď už sme u toho, vlep si pod to aj tento kód:

Sub IgnoracneBoldovatko()
On Error Resume Next
    For i = 2 To ActiveSheet.Range("A1").End(xlDown).Row
        Cells(i, 1).Characters(Start:=1, Length:=WorksheetFunction.Search(" - ", Cells(i, 1))).Font.FontStyle = "Tučné"
    Next i
End Sub