Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
ciao
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1") = Range("A1") + ActiveCell.Value
End Sub
questa somma le celle man mano che le selezioni in A1
ma non penso sia una buona idea
dovresti limitare ad una colonna o ad un range altrimenti sai che caos