Sub YES_NO_cancel()
YesNoCancel = MsgBox("مهلا هل تريد مسح كل التوزيعات . ؟", vbYesNoCancel + vbCritical, "من فضلك ... انتبه ")
Select Case YesNoCancel
Case vbYes
مسح
Case vbNo
Exit Sub
Case vbCancel
Exit Sub
End Select
End Sub
Sub مسح()
Range("c7:ac166").ClearContents
Range("c168:ac217").ClearContents
Range("b7").Select
End Sub
تفضل اخى الفاضل وغير المدى المراد مسح محتوياته بما يتلاءم معكم