Найти и заменить #ССЫЛКА!

[Tigranik]

Добрый день столкнулся с такой проблемой!

Нужно заменить ошибку #ССЫЛКА! на "Лист1!" если делать это стандартными средствами Excel то все прекрасно получается! А вот сделать то же самое VBA мне ни как не удается!

Я уж понял что #ССЫЛКА! должна записываться как #REF!, но все равно код не работает!

так же мне удалось выяснить что походу загвостка в
Replacement:="Лист1!"
если убрать ! знак т.е. записать
Replacement:="Лист1"
то замена проходит... но получиться ерунда! В чем дело? Срочно прошу помощи!

Экспериментальный файл прилагаю ниже:
http://yadi.sk/d/0Cp9Zv8c7fBHw

Sub Макрос1()
    Cells.Replace What:="#ССЫЛКА!", Replacement:="Лист1!", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

[kuklp]

Sub www()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 16)
        c.Formula = Replace(c.Formula, "#REF!", "Лист1!", 2, 1, vbTextCompare)
    Next
End Sub

[Tigranik]

Сообщение от kuklp

Sub www()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 16)
        c.Formula = Replace(c.Formula, "#REF!", "Лист1!", 2, 1, vbTextCompare)
    Next
End Sub

В результате работы, этого макроса у меня в место формулы в ячейке получается текстовое значение "Лист1!"

Блин... Вообще только сейчас заметил, что эксель проглатывает часть формулы, т.е. изначально было "=лист1!С1+лист1!С2"
после удаления листа1 формуле получается следующие: "=#ССЫЛКА!С1+#ССЫЛКА!С2" в это момент я и хотел восстановить содержимое.... НО
после перезапуска формула преобразуется: "=#ССЫЛКА!+#ССЫЛКА!" и теперь даже если заменить содержимое все равно получиться вата... Извиняюсь за беспокойство.

[kuklp]

Вы серьезно? А ну вставьте в ячейку =Лист1! Что получим? А ничего, Экс этого не позволит. Или =Лист1 - получим другую ошибку #ИМЯ. Можем вставить только в кавычках(а какой в этом смысл?):

Sub www()
    Dim c As Range
    For Each c In ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 16)
        c.Formula = Replace(c.Formula, "#REF!", """=Лист1!""", 2, 1, vbTextCompare)
    Next
End Sub

Ну или:

c.Formula = Replace(c.Formula, "#REF!", "'=Лист1!", 2, 1, vbTextCompare)