Уважаемые форумчане подскажите пожалуйста возможно-ли ускорить какой-нибудь из этих макросов замены , у них показатели где-то одинаковые меняет этот диапазон за 14 секунд ?  
 
Sub Zamena()  
Application.ScreenUpdating = False  
Dim t: t = Timer  
With Range("A203:BZS303")  
.Replace What:="3", Replacement:="1", LookAt:=xlPart  
.Replace What:="4", Replacement:="2", LookAt:=xlPart  
End With  
Application.ScreenUpdating = True  
  MsgBox (Timer - t)  
End Sub  
   
 
Sub ZAMENA2()  
Application.ScreenUpdating = False  
Dim avArrWhat, avArrRep, li As Long  
 Dim t: t = Timer  
avArrWhat = Array(3, 4)  
avArrRep = Array(1, 2)  
For li = LBound(avArrWhat) To UBound(avArrWhat)  
ActiveSheet.Range("a203:bzs303").Replace avArrWhat(li), avArrRep(li), xlPart, , False, False, False  
Next li  
 MsgBox (Timer - t)  
Application.ScreenUpdating = True  
End Sub