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