замена значений в формулах

[Jaroslav]

Добрый день. Хочу сделать замену текста "1503" на "1506" в формулах с помощью VBA.
У меня такой код:

Cells.Replace What:="1503", Replacement:="1506", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Но! VBA заменяет "1503" не только в формулах, которые начинаются с "=", а и в тексте:
1. "[Д201503+Д201504]"
2. "Обороти за звіт. період за Кт 651500 : (Обороти за звіт. період за Кт 661 - ((Обороти за звіт. період за Кт 651503 : 8,41 х 100)"

Ребята, помогите, пожалуйста, подправить код,чтобы замена происходила только в формулах (кроме текста)

[27102014]

Вы указываете все ячейки Cells.
Вам нужно указать диапазон Range, в котором провести замену

[IgorGO]

LookIn:= xlFormulas

[27102014]

Игорь, вот так нужно поменять код, чтобы замена произошла только в формулах?

Cells.Replace What:="1503", Replacement:="1506", LookIn:= xlFormulas, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

[IgorGO]

только если в ячейке написано Д1503 - это тоже будет заменено хоть и нет знака равно (константа в ячейке - находится в поле ФОРМУЛА)

а вот если в ячейке написано = "Д" & 1500+3
и в итого видим тоже самое Д1503 - но вот это - останется.

[Jaroslav]

Выдает ошибку:
Compile error:
Named argument not found

У меня ексель 2003

[IgorGO]

Jaroslav,
используйте вместо Replace Find, а потом самостоятельно решайте что делать с каждым найденым

[IgorGO]

и вообще, если строго:
поиск может различать где искать значение в поле значение или в поле формула (можно еще искать в примечаниях)

а замена в результатах вычисления формулы - не допустима. т.е. если в формуле =1+2, то найти 3 как значение - можно, а заменить 3 на 5 - не возможно, команда замена проигнорирует 3, которая является результатом вычисления формулы.

[Jaroslav]

Игорь, прописал:

With Worksheets(1).Range("A1:GJ1100")
    Set c = .Find("1503", LookIn:=xlFormulas)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Replace What:="1503", Replacement:="1506", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

метод Find делает то же самое, что и код:

Cells.Replace What:="1503", Replacement:="1506", LookIn:= xlFormulas, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

то есть проводит замену не только в формулах, но и в значениях.

[Jaroslav]

То есть вариантов решения моего вопроса нет?