اشكر المهتمين بالموضوع وساعدني كثيرا واتمنى من الاخوة توضيح طريقة تفعيل الثواني لاني احتاجها على شيت اخر في اكسل
ومع نسخها لا تعمل في الشيت الذي اعمل عليه
كما اتمنى تعديل الكود ليقوم بفتح موقع البنك المركزي اسعار العملات ( ) بدلا من جمع الخلايا
Sub auto_open()
RunClock
End Sub
Public Sub RunClock()
Application.OnTime Now + TimeSerial(0, 0, 1), "RunClock"
ThisWorkbook.Names.Add "blink", "=" & On_Off
If ([i8].Value) * 86400 < 1 Then Range("A1").FormulaR1C1 = "=SUM(R[1]C:R[33]C)"
End Sub
وتقبلوا تحياتي