```
Opção Explícita

'Declara variável de intervalo.
Dim rng como intervalo

' Inicializa a variável de intervalo.
rng =Faixa("A1:A10")

' Inicializa a variável soma.
Dim sum enquanto
soma =0

'Calcula a soma dos valores no intervalo.
Para cada célula em rng
soma =soma + célula
Próxima célula

'Exibe a soma dos valores no intervalo.
Debug.Print "A soma dos valores no intervalo A1:A10 é" e soma
```