Looking for an alternative to obtain better performance from macro

[jsantos77]

Hi

I have a macro that replaces a few different words within a range of cells. It works fine but I was wondering if anyone would have a different approach to make it quicker?
This is the code i have currently:

Sub Sort1()
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Dim myRange As Range
Set myRange = Range("E:CI")

With myRange
.Replace What:="Completed", Replacement:="pass", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="Available", Replacement:="x", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="Not Started", Replacement:="x", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="Refreshed", Replacement:="x", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="Started", Replacement:="x", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
.Replace What:="Expired", Replacement:="x", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Application.ScreenUpdating = True
End Sub

Any suggestions appreciated
Thanks
JSantos

 

[MARK858]

Not sure if the formulas I have on the workbook slow this process down as the majority are on other sheets

If the formulas are dependent on the data in the main sheet then they will recalculate just the same as if they were on the main sheet

 

[vcoolio]

You're welcome JS. I'm glad to have been able to assist in some way.
Also, further to Mark's reply and confirming what he has said, take note that if the text that you are replacing is created by formulae, that text will be replaced with values only. Your formulae will be overwritten.

Cheerio,
vcoolio.