Como passar um array para uma função VBA - VBA Excel para iniciantes

' Função que recebe um array e retorna a soma de seus elementos
Function SomarElementosArray(vetor As Variant) As Integer
  ' para guardar a soma dos elementos
  Dim soma As Integer
  Dim i As Integer
  
  ' inicializa a soma como zero
  soma = 0
  
  ' percorre todos os elementos do array
  For i = 0 To UBound(vetor)
    soma = soma + vetor(i)
  Next i
  
  ' retorna a soma
  SomarElementosArray = soma
End Function


' Macro que mostra como passar um aray para uma função em VBA
Sub PassarArrayFuncao()
  ' vamos declarar um array de inteiros
  Dim valores As Variant
  Dim s As Integer
  
  ' vamos inicializar os valores do conjunto