Почти также
[vba]Код
Sub AVTOZAM_()
Dim c As Range
For Each c In UsedRange.Cells.SpecialCells(xlCellTypeFormulas)
c.Formula = Replace(c.Formula, "!C", "!E")
c.Formula = Replace(c.Formula, "=C", "=E")
Next
End Sub
[/vba]
Или так еще
[vba]Код
Sub AVTOZAM1_()
UsedRange.Cells.SpecialCells(xlCellTypeFormulas).Replace What:="c", Replacement:="e"
End Sub
[/vba]
Не, наверно лучше все-таки предусмотреть название листа с латинским "С"
[vba]Код
Sub AVTOZAM1_()
UsedRange.Cells.SpecialCells(xlCellTypeFormulas).Replace What:="!c", Replacement:="!e"
UsedRange.Cells.SpecialCells(xlCellTypeFormulas).Replace What:="=c", Replacement:="=e"
End Sub
[/vba]