Trying to make specific cell contents bold

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

Code:

---

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

Code:

---

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

---

then nothing happens. If I use

Code:

---

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

---

then everything is made bold.

Thanks!
Steve

Something wrong here:

Code:

---

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 ?

Code:

---

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

---

fills a cell, doesn't select it.

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.

Code:

---

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

---

Code:

---

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

---

This is the only other way I know:

Code:

---

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

---

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