كود ايقاف إهتزاز الشاشة

Sub Test()

'يوضع الكود بين السطرين التاليين لمنع اهتزاز الشاشة أثناء تنفيذ الكود

Application.ScreenUpdating = False

' الكود المطلوب تنفيذه



Application.ScreenUpdating = True

End Sub