Chcel som Ťa prinútiť poopravovať si oddeľovače, ale keďže vidím, že nemáš snahu robiť to poriadne, tak Ti dávam aj upravený kód, ktorý Ti to urobí až do konca aj keď tam nebude korektný oddeľovač ale v tom prípade, kde ho nenašiel (prípadne ak správny oddeľovač našiel v ďalšej polohe), k úprave nedôjde (alebo upraví po polohu výskytu správneho oddeľovača v ďalšej polohe), takže Ti bordelík ostane... Poriadok a precíznosť totiž majú svoj význam...
Samozrejme ostatné predpoklady platia ako som napísal vyššie

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