Type mismatch при Like - VB

Формулировка задачи:

Здравствуйте.
Пишу вот такой код:

Sub macr()

Dim i As Integer

    For i = 2 To 256
            If Cells(4, i).Value Like "*query*" Then
                MsgBox "!!!"
                End If
        Next i

End Sub

Во всех ячейках записано "_query_"
Соответственно я хочу их найти
Однако возникает ошибка type mismatch
Что я делаю не так? Сколько не курил Гугл, всё вроде правильно написал

Решение задачи: «Type mismatch при Like»

textual
                            Листинг программы 
                        
                            If Cells(4, i).FormulaLocal Like "*query*" Then