How about a double-click? In worksheet code put:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then
Exit Sub
End If
v1 = 0
v2 = 0
j = Target.Row
For i = 2 To 254 Step 2
v1 = v1 + Cells(j, i).Value
v2 = v2 + Cells(j, i + 1).Value
Next
MsgBox (v1 & " " & v2)
Cancel = True
End Sub



REMEMBER Worksheet code, not a standard module
--
Gary''s Student - gsnu200715