Sub Выделение_ячеек_по_условию()
Dim a As Range
  Set a = Test_выделение_ячеек_по_условию(Range("A1:AE200"), "*if*") ' (Диапазон для поиска,  _ 
'что ищем /обязательно с маской если формулы то в английском варианте/)
  If Not a Is Nothing Then a.Select  'выделили все ячейки, подходящие к параметрам поиска
End Sub

Function Test_выделение_ячеек_по_условию(FReg As Range, FStr As String) As Range
Dim ResR As Range, sAr As Range, firstAddress As String
With FReg
  Set sAr = .Find(FStr, LookIn:=xlFormulas, LookAt:=xlWhole) ' (что ищем, в формулах или значениях)
  If Not sAr Is Nothing Then
    firstAddress = sAr.Address
    Do
      If ResR Is Nothing Then
        Set ResR = sAr
      Else
        Set ResR = Union(ResR, sAr)
      End If
      Set sAr = .FindNext(sAr)
    Loop While Not sAr Is Nothing And sAr.Address <> firstAddress
  End If
End With
Set Test_выделение_ячеек_по_условию = ResR
End Function