Bold Specific Text in a cell by Vba Code

Below is Vba code for Bold Specific Text in a cell by Vba Code

Click here to Download Excel File

Sub Bold_text_in_a_row()
‘Vba code by 99Excel.com
On Error Resume Next
Range(“B6”).Value = “=B2&E2&H2&J2”
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range(“B6”).Select
Selection.Font.Bold = False
‘BOLD 1
With Range(“B6”).Characters(Start:=Range(“E8”).Value, Length:=Range(“F8”).Value).Font
.FontStyle = “Bold”
.Size = 11
.Name = “Calibri”
End With
‘BOLD 2
With Range(“B6”).Characters(Start:=Range(“E9”).Value, Length:=Range(“F9”).Value).Font
.FontStyle = “Bold”
.Size = 11
.Name = “Calibri”
End With
Range(“B6”).Select
On Error GoTo 0

End Sub