Public Sub CommandButton1_Click()
Dim test As Integer
Range("B2").Copy
Range("a1").Value = 1
End Sub
Public Sub CommandButton2_Click()
Dim test As Integer
Range("B2").Copy
Range("a1").Value = 2
End Sub
Public Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
test = Range("a1").Value
If Not Application.Intersect(Target, Range("E10:M30")) Is Nothing Then
Select Case test
Case 1
Range("B2").Copy
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Case 2
Selection.Interior.ColorIndex = [COLOR="red"]8[/COLOR]
Range("B2").Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Select
End If
Cancel = True
End Sub