Пример макроса: Замена текста на листе

Sub TestReplace()     '' e23
    Sheets("LH1").UsedRange.Replace What:="Light & Heat", Replacement:="L & H"
End Sub

(function() {
    var oSheet = Api.GetSheet("LH1");
    var oRange = oSheet.GetUsedRange();
    oRange.Replace("Light & Heat", "L & H", "xlWhole", "xlByColumns", "xlNext", true, true);
})();