السلام عليكم 
 
	كلما اقوم بفتح شيت اكسل لكتابة medial يظهر عتدة كود Ribbenx code 
 
Entry point for RibbonX button click
Sub ShowATPDialog(control As IRibbonControl)
    Application.Run ("fDialog")
End Sub
'Callback for RibbonX button label
Sub GetATPLabel(control As IRibbonControl, ByRef label)
    label = ThisWorkbook.Sheets("RES").Range("A10").Value
End Sub
	ما هو الحل لحذفة نهائى ولا يظهر لى مرة اخرى