Summanummer i urvalet

Sammanfattar alla siffror i den valda regionen och placerar summan i "A1"

Sub sum_selection () Dim cell As Range Dim sum As Double 'Iterate through each cell in selection For Every cell In Selection' Lägg till värdet till den variabla summan = summa + cell. Värde Nästa cellceller (1, 1) = summa Slut Sub