نحوه فرا خوانی ماکرو از طریق Application.OnKey

[master]

سلام
توی فایل پیوست شده من میخوام وقتی کلید اینتر زده شد (اینتر قسمت NumPad) توی محتویات اون سلول(به شرطی که توی محدوده ستون b باشه) یه تغییراتی داده بشه و بعد بره به سلول مورد نظرم
چیزی که خودم سرچ کردم این هست که باید از کد
Application.OnKey "{Enter}", "EnterPressKey"
استفاده کنم
اما مشکل موقع فرا خوانی تابع EnterPressKey به وجود میاد

اگه این تابع رو توی همون worksheet بنویسم که اصلا میگه ماکرو EnterPressKey وجود نداره!
وقتی هم یه ماژول جدید ایجاد میکنم (چیزی که الان توی فایل پیوست هست) به کد های داخل تابع گیر میده!!
میشه دوستان چک کنن ببین مشکل کار کجاست؟
مثلا به این سه تا خط گیر میده:

    MMk = ActiveWoekbook.ActiveSheet.Range("D2").Value
    YYK = Cells("E2")
    Tarikh = Target.Value

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.