Use count function to sum array
Sub Array4() Dim Data(10) As Integer Dim Message As String, i As Integer For i = LBound(Data) To UBound(Data) Data(i) = i Next i MsgBox "Sum Elements = " & WorksheetFunction.Sum(Data) End Sub