Function myFunction(ParamArray myNumbers() As Variant) Dim mySum As Single Dim myValue As Variant For Each myValue In myNumbers mySum = mySum + myValue Next myFunction = mySum End Function Sub arrayPara() MsgBox myFunction(1, 2, 3) End Sub