skopíru odtiaľto tento kód:

Sub Boldovatko()
On Error GoTo chyba
    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
    Exit Sub
chyba:
    MsgBox "V riadku " & i & " nebol nájdený oddeľovací znak "" - """, vbExclamation, "Chyba"
End Sub