Sub Test()
    On Error Resume Next '(Error)룬Զһ
    Application.ScreenUpdating = False 'رĻˢ
    
    
    
    Application.ScreenUpdating = True 'Ļˢ
End Sub