Bold one word in a cell not the entire cell

[ielamrani]

Hi,
This piece of code bold the entire cell, I am trying to make it bold only the words: Owner and Beneficiary. I tried different ways in vain. Please let me know if you know the answer. Thanks in advance.

Code:

RptWks.Cells(oRow,"A").Value _
= "Owner: " & .Cells(iRow, "A").Value

RptWks.Cells(oRow,"A").Font.Bold = True

oRow = oRow + 1
RptWks.Cells(oRow,"A").Value _
= "Beneficiary: " & .Cells(iRow, "B").Value

RptWks.Cells(oRow,"A").Font.Bold = True

 

[jindon]

try

With RptWks.Cells(oRow,"A")
    .Font.Bold = False
    .Value = "Owner: " & .Cells(iRow, "A").Value
    .Characters(1, 5).Font.Bold = True
End With
 
oRow = oRow + 1
With RptWks.Cells(oRow,"A")
    .Font.Bold = False
    .Value = "Beneficiary: " & .Cells(iRow, "B").Value
    .Characters(1, 11).Font.Bold = True
End With

 

[pbornemeier]

Try this:

RptWks.Cells(oRow, "A").Value _
= "Owner: " & .Cells(iRow, "A").Value

RptWks.Cells(oRow, "A").Characters(Start:=1, Length:=11).Font.FontStyle = "Bold"

oRow = oRow + 1
RptWks.Cells(oRow, "A").Value _
= "Beneficiary: " & .Cells(iRow, "B").Value

RptWks.Cells(oRow, "A").Characters(Start:=1, Length:=11).font.FontStyle = "Bold"

 

[ielamrani]

That was quick. I'll try it. Thanks for the quick reply.

 

[ielamrani]

Hi guys,
I tried both.
Jindon, your code does not like the word Characters. It highlights it.

Bbornemeier,

Yours works with a slight change instead of 11 for Owner it's 5. I am sure it's a typo.

RptWks.Cells(oRow, "A").Characters(Start:=1, Length:=5).Font.FontStyle = "Bold"

Thank you so much guys.