Sub tt()
Dim d_ As Range
    For Each d_ In Range("A1:A2")
        d_ = Replace(d_, Range("C1"), Range("C2"))
    Next d_
End Sub

Sub macro422()
'

'
    Range("C1").Select
    Application.CutCopyMode = False
    Cells.Replace What:="Королева Британии тяжко больна", Replacement:= _
        "THE Queen’s faen sick, and very, very sick,", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Sub tt()
    Dim d_ As Range
    t0_ = "Queen Eleanor’s Confession" & vbLf & _
        "THE Queen’s faen sick, and very, very sick," & vbLf & _
        "Sick, and going to die," & vbLf & _
        "And she’s sent for twa friars of France," & vbLf & _
        "To speak with her speedilie." & vbLf & _
         "" & vbLf & _
        "The King he said to the Earl Marischal," & vbLf & _
        "To the Earl Marischal said he," & vbLf & _
        "The Queen she wants twa friars frae France," & vbLf & _
        "To speak with her presentlie." & vbLf & _
         "" & vbLf & _
        "Will ye put on a friar’s coat," & vbLf & _
        "And I’ll put on another," & vbLf & _
        "And we’ll go in before the Queen," & vbLf & _
        "Like friars both together." & vbLf & _
         "" & vbLf & _
        "‘But O forbid,’ said the Earl Marischal," & vbLf & _
        "‘That I this deed should dee!" & vbLf & _
        "For if I beguile Eleanor our queen," & vbLf & _
        "She will gar hang me hie.’"
    t1_ = "Здесь мне писать уже стало лень"
    For Each d_ In ActiveSheet.UsedRange
        d_ = Replace(d_, t0_, t1_)
    Next d_
End Sub