Вариант: с помощью пользовательской функции
Option Explicit
Public Function SearchClickbait(TestString As String, ClickbaitRange As Range) As String
' ClickbaitRange - диапазон на листе с ключевыми словами
' TestString - ячейка с анализируемым текстом
Dim ws As Worksheet
Set ws = ActiveSheet
Dim rCell As Range
Dim Pos As Long
With ws
SearchClickbait = "не информативный запрос"
For Each rCell In ClickbaitRange.Cells
Pos = InStr(1, TestString, rCell.Text, 1)
If Pos >= 1 Then
SearchClickbait = "(!)информативный запрос"
Exit Function
Else
End If
Next rCell
End With
End Function