Opción explícita
' Declarar variable de rango.
Rango de atenuación según rango
' Inicializa la variable de rango.
rng =Rango("A1:A10")
' Inicializa la variable de suma.
Dim sum siempre y cuando
suma =0
' Calcula la suma de los valores en el rango.
Para cada celda en rng
suma =suma + celda
Siguiente celda
'Muestra la suma de los valores en el rango.
Debug.Print "La suma de los valores en el rango A1:A10 es" &suma
```