1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:
Sub AddSelection () Schemerige cel als Waaier Schemerige SumValue zoals lang Voor Elke cel in Selectie SumValue = SumValue + cel. Waarde Daarna MsgBox de „Som geselecteerde waarden is: “ & SumValue Sub van het eind