Soma dos números na seleção -

Soma todos os números da região selecionada e coloca a soma em "A1"

Sub sum_selection () Dim cell As Range Dim sum As Double 'Iterar por cada célula na seleção Para cada célula na seleção' Adicionar o valor à variável soma soma = soma + célula.Valor Próxima célula Células (1, 1) = soma Fim Sub