Замена номера ячейки в формуле - VBA

Формулировка задачи:

Добрый день! Нужна помощь. В excel есть лист, в котором ведется поиск ячеек с формулами. При нахождении формулы (например, =СЦЕПИТЬ(B3,"ххх") ) нужно заменить ячейку B3 на ячейку (i,j). Можно ли это сделать функциями VBA, или придется расчленять формулу на символы?

Решение задачи: «Замена номера ячейки в формуле»

textual
                            Листинг программы 
                        

                            Sub Example()
Dim objRange As Range, objItem As Range, i As Long
On Error Resume Next
Set objRange = Worksheets(1).Cells.SpecialCells(xlCellTypeFormulas, xlTextValues)
If Err.Number = 0 Then
    i = 1
    For Each objItem In objRange.Cells
        objItem.FormulaLocal = Replace(objItem.FormulaLocal, "b3", "b" & i, 1, -1, vbTextCompare)
        i = i + 1
    Next
Else
    Err.Clear
End If
End Sub
                        