واذا كنت تريد ان يتم ذلك عن طريق السؤال واجابة نعم او لا
Sub MyMessageBox()
MyAnswer = MsgBox("هل تريد تنفيذ الماكرو", vbYesNo, "عنوان الرسالة")
If MyAnswer = vbYes Then
الماكرو المطلوب تنفيذة اذا كانت الإجابة نعم
Else
التنفيذ اذا كانت الإجابة لا
End If
End Sub