Выборка по текстовому значению

[Olegspb]

Необходимо найти в столбце ячейки содержащие текст "товар получен" и поставить в соседнюю ячейку "кредит". Пишу:

For Each cell In Range("M2:M100")
   If cell.Value = "*товар получен*" Then
   cell.Offset(0, 1).Value = "кредит"
   End If
Next

Результат нулевой. Подозреваю, что звездочки здесь не проходят.
Но как написать по-другому не знаю. Поможите чем сможите.

[PooH]

используй функцию InStr

[HandKot]

нужно использовать не оператор "=", а оператор "LIKE"

Код:

For Each cell In Range("M2:M100")
   If cell.Value LIKE "*товар получен*" Then
       cell.Offset(0, 1).Value = "кредит"
   End If
Next