Trying to make specific cell contents bold

[HTSCF Fareha]

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

[rollis13]

Something wrong here:

Sheets("Highlight Markers").Range("A1").Font.Bold = "Highlight"

should be:

Sheets("Highlight Markers").Range("A1").Font.Bold = True

In the second case you are making 'Selection.' bold, but what have you selected ?

Sheets("Highlight Markers").Range("A1") = "Highlight"

fills a cell, doesn't select it.

[HTSCF Fareha]

I used option one, but this did not input the word "Highlight", so I ended up with a completely empty cell which also did not have bold assigned to it.

I was hoping that the selection would be focussed on the Range A1.

I have also tried this, which didn't do anything.

Sheets("Highlight Markers").Range("A1").Font.Bold("Highlight") = True

[p45cal]

With Sheets("Highlight Markers").Range("A1")
  x = InStr(1, .Value, "highlight", vbTextCompare)
  If x > 0 Then .Characters(Start:=x, Length:=9).Font.FontStyle = "Bold"
End With

[rollis13]

This is the only other way I know:

With Sheets("Highlight Markers")    
    .Range("A1") = "Highlight"
    .Range("A1").Font.Bold = True
End With

[HTSCF Fareha]

My thanks to both p45cal and rollis13!

Both alternatives work, although p45cal's version allows the specification of how many characters to make bold counting from the left.

Many thanks!
Steve