It runs nearly instantly for me on some made up data, and properly does the
substitution. I'm running Office 2003

Eric

"Scooter" wrote:

Why does this code take about 4-5 minutes to excute? I does 4 replacements
for each cell.

Range("C16:BJ17").Select
Selection.Replace What:="ABC", Replacement:="XYZ", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False