Bom dia, @cimerio

Sub SomaRange()
  Dim Resultado
  Resultado = [SUM(sheet1!A1:A100)]
End Sub

 Ou ainda:

Sub SomaRange()
  Dim Resultado
  Resultado = Application.WorksheetFunction.Sum(Worksheets("sheet1").Range("A1:A100"))
End Sub

Obrigado Edson. O segundo metodo retorna 0, mas deve ser alguma formatação da célula. vou testar o primeiro. Me diga, os colchetes tem alguma função específica?

@cimerio,

Boa tarde!

Segue outra sugestão:

Sub Somar()
     Dim i as Long
     'Se todos os números da coluna A forem inteiros. Se tiver decimais, mude o tipo para Double
     Dim Resultado As Long
     
     For i = 1 To 100
          'Se todos os números da coluna A forem inteiros. Se tiver decimais, mude a função que converte (Clng) para CDbl
          Resultado = Resultado + CLng(Range(Range("A" & i).Value)
     Next i
End Sub

Postado por: @cimerio

Me diga, os colchetes tem alguma função específica?

Sim, os colchetes são uma maneira taquigráfica de se referir ao poderoso método Application.Evaluate ou Worksheet.Evaluate.

Isso significa, por exemplo, que

 [A1:A100].Value = "Teste"

é uma maneira abreviada da expressão

 Evaluate("A1:A100").Value = "Teste"

Este vídeo esclarece sobre os colchetes:

https://youtu.be/ocDKl7ihVsw

obrigado, amigos