اشكرك اخي الكريم
قدوصل المطلوب
وايضاً انا استخدمت نفس المثال وعدلت عليه وحليت المشكلة
لكن الموقع عندي صارله يومين مو راضي يفتح معاي حتى اخبركم
وكان التعديل التالي
Option Explicit
Dim OK As Boolean
Sub timerMsg()
Dim alertTime
If OK Then
alertTime = Now + TimeValue("00:00:03")
Application.OnTime alertTime, "msg"
End If
End Sub
Sub msg()
ActiveWorkbook.Save
timerMsg
ومع ذالك الف الف شكر لك اخي الكريم
وبالنسبة لانقطاعي عنكم :
ضروف العمل عندي تعيسة جدا حيث لا استطيع احياناً الدخول الى النت
والضرف الثاني هو قمت بالانتحار ( الزواج)
وصارت عندي ضروف ومشاكل وارتباطات الها اول ما الها اخـــر
ونأسف على طول المشاركة
ولكم جزيل الشكر