Optie Expliciet

'Declareer bereikvariabele.

Dim rng als bereik

' Initialiseer de bereikvariabele.

rng =Bereik("A1:A10")

' Initialiseer de somvariabele.

Dimsum zo lang

som =0

' Bereken de som van de waarden binnen het bereik.

Voor elke cel in rng

som =som + cel

Volgende cel

'Toon de som van waarden binnen bereik.

Debug.Print "De som van de waarden in bereik A1:A10 is" &som

```