Alternativ eksplisitt

' Deklarer områdevariabel.

Dim rng As Range

' Initialiser områdevariabel.

rng =Range("A1:A10")

' Initialiser sumvariabel.

Dim sum As Long

sum =0

' Beregn summen av verdier i området.

For hver celle I rng

sum =sum + celle

Neste celle

' Vis summen av verdier i området.

Debug.Print "Summen av verdiene i området A1:A10 er" &sum

```