Run VBA in selected cells only?

[samilynn]

I use this code to change assigned codes to employees actual names. However, it runs on the entire sheet. How do I change it to run only on the range that I am selecting before running the macro?
Thank you!
Samantha

Option Explicit

Sub Names()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.Cells.Replace What:="ABC1", Replacement:="NAME1", LookAt:=xlPart, MatchCase:=False
ActiveSheet.Cells.Replace What:="XYZ", Replacement:="NAME2", LookAt:=xlPart, MatchCase:=False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[Joe4]

Change this:

ActiveSheet.Cells.Replace...

to this:

Selection.Replace...

 

[samilynn]

Change this:

ActiveSheet.Cells.Replace...

to this:

Selection.Replace...

Thank you Joe! Duh...that was so simple. Thank you for taking the time

 

[Joe4]

You are welcome.
Glad I was able to help!