جرب هذا الكود أخي فهو يفي بالغرض .. وكل عام وأنتم بخير
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Answer%
If Target.Address <> "$A$1" Then Exit Sub
Answer = MsgBox("The range (""C2:C4"") ,Will be Deleted..No Way to Undo." & Chr(10) & "are you sure you want to do this?..", 260)
If Answer <> 6 Then Exit Sub
Range("C2:C4").ClearContents
End Sub