Macro para sumar los valores de las celdas en rango seleccionado

Hola perr0L0co:
Si creas un botón y le pones este código,
te mostrará en un mensaje lo que tú quieres.

Private Sub CommandButton2_Click()
Dim MiSuma, resultado As Double
Dim rango, celda As Range

If TypeName(Selection) = "Range" Then
Set rango = Selection

For Each celda In rango.Cells
resultado = Application.WorksheetFunction.Sum(resultado, celda.Value)
Next celda
MiSuma = resultado
If MiSuma Then MsgBox "Las celdas seleccionadas suman: " & MiSuma
End If
End Sub


Saludos,