```
Mulighed Eksplicit
' Deklarer intervalvariabel.
Dim rng As Range
' Initialiser intervalvariabel.
rng =Range("A1:A10")
' Initialiser sumvariabel.
Dim sum As Long
sum =0
' Beregn summen af værdier i området.
For hver celle I rng
sum =sum + celle
Næste celle
' Vis summen af værdier i området.
Debug.Print "Summen af værdierne i området A1:A10 er" &sum
```
