Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Sum the elements in a range

Public Sub Array1()   Dim Data(10) As Integer   Dim Message As String, i As Integer   For i = LBound(Data) To UBound(Data)     Data(i) = i   Next i   Debug.Print "Lower Bound = " & LBound(Data)   Debug.Print "Upper Bound = " & UBound(Data)   Debug.Print "Number of Elements = " & WorksheetFunction.Count(Data)   Debug.Print "Sum of Elements = " & WorksheetFunction.Sum(Data) End Sub