How to bold partial text string for over 600 rows

[Jongo1]

I have in column B non-duplicate information and I need to bold over 600 lines in the manner below.

WGHI(Studio)(Los Angeles, Cali) Radio (Nov 1, 2017) - Top 10 Radio Station
KAWG (CNBC)(NY, New York) Television (Nov 2, 2017) - Top 10 TV

and so on and so on for 600 rows what I need is

WGHI(Studio)(Los Angeles, Cali) Radio (Nov 1, 2017) - Top 10 radio station
KAWG (CNBC)(NY, New York) Television (Nov 2, 2017) - Top 5 TV

is this possible?

 

[Roderick_E]

If your rows always contain at least 3 parens ((( and you want it to bold everything up to the 3rd open paren, then the following will work. Run the doboldstring macro.

Option Explicit
Function Meds(S As String) As String
    Dim S1 As Variant, S2 As Variant


S1 = Split(S, "\")
S2 = Split(S1(UBound(S1)), "(")
ReDim Preserve S2(0 To 2)
Meds = Join(S2, "-")


End Function
Sub doboldstring()
Dim lastrow, x, parens, strlen As Long


lastrow = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
For x = 1 To lastrow
parens = UBound(Split(Cells(x, "B"), "("))
If parens >= 3 Then
strlen = Len(Meds(Cells(x, "B")))
With Cells(x, "B").Characters(Start:=1, Length:=strlen).Font
                .FontStyle = "Bold"
    End With
End If
Next x
End Sub