Search and highlight word in cell

Do you want to search the word between the w-quotation mark in Col.B and highlight only such word?
If not, need to see your desired results.

Sub test()
    Dim r As Range, c As Range, ff As String, txt As String, m As Object
    Columns("b").Font.ColorIndex = xlAutomatic
    With CreateObject("VBScript.RegExp")
        .Global = True: .IgnoreCase = True
        For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
            .Pattern = """([^""]+)"""
            If .test(r.Value) Then
                txt = .Execute(r.Value)(0).submatches(0)
                Set c = Columns("b").Find(txt)
                If Not c Is Nothing Then
                    ff = c.Address
                    Do
                        .Pattern = "\b" & txt & "\b"
                        For Each m In .Execute(c.Value)
                            c.Characters(m.firstindex + 1, m.Length).Font.ColorIndex = 5
                        Next
                        Set c = Columns("b").FindNext(c)
                    Loop Until c.Address = ff
                End If
            End If
        Next
    End With
End Sub