Summenum i utvalget -

Summerer opp alle tallene i den valgte regionen og plasserer summen i "A1"

Sub sum_selection () Dim cell As Range Dim sum As Double 'Iterate through each cell in selection For Every cell In Selection' Legg verdien til den variable summen = sum + celle. Verdi Neste celleceller (1, 1) = sum End Under