1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
Sub AddSelection() Dim cell As Range Dim SumValue As Long For Each cell In Selection SumValue = SumValue + cell.Value Next MsgBox "The sum of the selected values is: " & SumValue End Sub