
Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
For Each CL In ActiveSheet.UsedRange
If CL = [A1] Then
CL.Interior.ColorIndex = 6
Somma = Somma + CL
End If
Next
MsgBox "Il totale è: " & Somma - [A1]
End Sub
|
