پرسش اجرای اتوماتیک یک ماکرو ...

[dany_3p4u]

با سلام
می خوام یک ماکرو ای که در باتم Add Data در Sheet1 تعریف کردم با تغییر مقدار سلول D3 اتوماتیک اجرا شه
(اسم ماکرو تعریف شده در باتم Add Data هستش : Add_Data_3)

سلول D3 مقدارش رو از یک سلول در Sheet3 می خونه
اون سلول در Sheet3 هم جمع چندتا عدد هست که هر چند وقت یکبار تغییر می کنه

دستور زیر کمکی نمی کنه چون عملا باید در شیت1 باشیم و اون سلول رو دستی تغییر بدیم و من بیشتر زمان من خودم در Sheet2 هستم

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then
Call Mymacro
End If
End Sub

اگر نمی شه که ابنطور ماکرو رو اجرا بشه حداقل بشه بهش بگیم خودش اتوماتیک هر 5 مین یکبار ماکرو رو به نوعی اجرا کنه
تشکر

فایل :

https://mega.nz/file/uUwDXDiY#u22oZUCTk0jxOgs-_aKPGHFpFa9N8X-kncBEFV4e_Kw

[dany_3p4u]

این دستور رو پیدا کردم که بخوبی برای بخش مسیج MsgBox کار می کنه اما تابع Add_Data_3 من رو فرا خوانی نمی کنه ...

Private Sub Worksheet_Calculate()

Static oldval
If Range("C3").Value <> oldval Then
    oldval = Range("C3").Value
    Call Add_Data_3
    'rest of your code here
    'MsgBox ([c3] & " times " & [d3] & " equals " & [e4])
    
End If
End Sub