مساعدة فى خطأ wrong number of arguments or invalid property assignment

[Ahmedpoop]

السلام عليكم و رحمة الله

بداية اود ان اشكر كل القائمين على هذا المنتدى العظيم الذى افادنى كثيرا 

عندى اكواد ماكرو لبرنامج معين ... عند تشغيلها عن طريق بوتن من داخل الاكسيل تعمل بصوره طبيعيه ... و لكن بعد استخدام برنامج RibbonEditor لعمل ريبون يحتوى على ازرار لجميع اوامر البرنامج تظهر رسالة الخطا و لا اعلم ما الخطا فى البرنامج و لماذا يعمل عن طريق ازرار داخل البرنامج و لا يعمل عن طريق ازار الريبون الذى تم عمله باستخدام البرنامج

 

wrong number of arguments or invalid property assignment

 

كود احد الاوامر 

 

Sub GO_UP()
'

'RACK TO CHECK IF THE DATE IS WITH IN PERIOD OR OUT OF DATE"
    Dim UDAT As Variant
    Dim UDATM As String
    UDAT = Range("A2").Value
    If UDAT <> 1 Then
    Range("A2").ClearContents
    ThisWorkbook.Save
      UDATM = MsgBox("This program is out of date." & vbNewLine & "For original version please contact ahmedmahdy2010@yahoo.com.", vbCritical)
      GoTo NDSUB
     End If
'Insuring that this sheet is signed

    If Range("K3").Value <> Range("A1").Value Then
      MSG = MsgBox("Please don't remove designer data." & vbNewLine & "Correct and retry.", vbCritical)
      GoTo NDSUB
     End If
    

' Calculationview Macro
' Go to calculation view
'

'
    Range("A1").Select
    Range("E2").Select
    
NDSUB:
    
End Sub

 

ارجو المساعده من اهل الخبرة