Hi all,
I'd like to write a straightforward macro to replace name entries in a spreadsheet with initials, based on a worksheet in the same workbook that has the name entries next to the corresponding initials that are the replacements.
The basic macro code I have recorded:
Sub Macro3()
'
Selection.Copy
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Cells.Replace What:="A. Fonseca-MR-RT L5 G2", Replacement:="AHF", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
End Sub
Bookmarks