Sub Выделение_ячеек_по_условию()
Dim a As Range
  Set a = Test_выделение_ячеек_по_условию(Selection, "*OFFSET*") ' (Диапазон для поиска, что ищем /обязательно с маской. если формулы то в английском варианте/)
  '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)
        ИзменениеФормул (sAr.Address)
      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


Sub ИзменениеФормул(rng11)

Range(rng11).Formula = "=SUBSTITUTE(" & Mid("=CELL(""адрес""," & Mid(Range(rng11).Formula,  2 ,  1000 ) & ")",  2 ,  1000 ) & ",""$"","""")"
Formula4 = "=" & Range(rng11).Value
Range(rng11).Formula = Formula4


End Sub