безопасный массовый поиск и замена

Sub SafeReplace(TargetRange As Range, ReplaceRules As Range)
    ' безопасный массовый поиск и замена
    ' TargetRange: где ищем, ReplaceRules: правила замены, первый столбец - что найти, второй - на что заменить
        For i = 1 To ReplaceRules.Rows.Count ' for each
            TargetRange.Replace _
                What:=ReplaceRules.Cells(i, 1), Replacement:="!SafeReplace" + CStr(i) + "!", _
                MatchCase:=False
        Next ' замена 1 проход

        For i = 1 To ReplaceRules.Rows.Count ' for each
            TargetRange.Replace _
                What:="!SafeReplace" + CStr(i) + "!", Replacement:=ReplaceRules.Cells(i, 2), _
                MatchCase:=True
        Next ' замена 2 проход
End Sub