Sub Test()
'يوضع الكود بين السطرين التاليين لمنع اهتزاز الشاشة أثناء تنفيذ الكود
Application.ScreenUpdating = False
' الكود المطلوب تنفيذه

Application.ScreenUpdating = True
End Sub