I have the following in my sub for which I would like the word 'Highlight' to be bold.

If Application.WorksheetFunction.CountA(Sheets("Highlight Markers").Cells) <> 0 Then
        
        Sheets("Highlight Markers").Range("A1") = "Highlight"
        Sheets("Highlight Markers").Range("A2") = "These are the rest :-"
        
    ElseIf Application.WorksheetFunction.CountA(Sheets("Highlight Markers").Cells) = 0 Then
        Sheets("Highlight Markers").Range("A1") = "Highlight"
        Sheets("Highlight Markers").Range("A2") = "Nothing to report that is of any noteworthiness"
End If
If I use 
Sheets("Highlight Markers").Range("A1").Font.Bold = "Highlight"
then nothing happens. If I use 
Sheets("Highlight Markers").Range("A1") = "Highlight"
Selection.Font.Bold = True
then everything is made bold.

Thanks!
Steve