السلام عليكم
عذرا أخي على تاخر الرد لان الرد يحتاج إلى أن أفهم الموضوع أولا
وأرجو أن يكون هذا هو طلبك خصوصا انك لم ترفق ملفا للتعديل عليه فيكون العمل نظري بدل من العملي لأن العملي يحتاج إلى إرفاق ملف
هذا كود الأنتظار في الفيجوال
Application.Wait (Now + TimeValue("0:00:01")) 1
ففي الكود أعلاه ينتظر التطبيق ثانية واحدة قبل أن يواصل عمله
إذا اردت البرنامج ينتظر دقتين وخمس ثواني مثلاغير الارقام إلى التالي
Application.Wait (Now + TimeValue("0:02:05")) 1
تحباتي