Ejercicio 6: Sumar números en un rango de celdas

Ejercicio 6: Sumar números en un rango de celdas

Escribe una macro que sume los valores de un rango seleccionado por el usuario y muestre el resultado en un mensaje.

1. Iniciar macro
2. Pedir al usuario que seleccione un rango de celdas
3. Sumar los valores de todas las celdas en el rango
4. Mostrar el resultado en un mensaje
5. Terminar macro

Sub SumarRango()
  Dim rng As Range
  Dim suma As Double
  On Error Resume Next
  Set rng = Application.InputBox("Selecciona un rango para sumar:", Type:=8)
  If rng Is Nothing Then
    MsgBox "No se seleccionó ningún rango."
    Exit Sub
  End If
  suma = Application.WorksheetFunction.Sum(rng)
  MsgBox "La suma del rango es: " & suma
End Sub