Поиск подстроки в строке

Допустим у нас есть ячейки со строками урлов, в которых нужно выбрать только урлы с «.html»

Для этого нам надо обойти все ячейки в колонке и сделать поиск по части слова. Для этого может подойти оператор Like

По сути он похож на Like из SQL

Поиск подстроки в строке с использованием Like

Sub Макрос1()

  row1 = 1
  col = 2
  max_rows = 2000
  i = 1
  p_url = ""

  Sheets("Лист1").Select
  For Each cel In Range(Cells(row1, col), Cells(max_rows, col))
    If Cells(i, 1) Like "*.html" Then
      p_url = Cells(i, 1).Value
    End If
    i = i + 1
  Next cel

End Sub