I think i am not clear on whether you are trying to run the Word macro code against a Word document from within an Excel macro, or if you are trying to do a similar replacement to the contents of a range of cells in an Excel worksheet. If the later, you'll want something like this (which I simply recorded while doing an EDIT; REPLACE; REPLACE ALL while in Excel).
Code:
Sub Macro1()
Range("A1:E25").Select
Application.CutCopyMode = False
Selection.Replace What:="15", Replacement:="16", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
End Sub
Bookmarks