Use UBound to get the upper bound : LBound UBound « Data Type Functions « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Data Type Functions
3. LBound UBound

Use UBound to get the upper bound

 

Sub Array2()
  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 "Upper Bound = " & UBound(Data) & vbCr
End Sub

 

Related examples in the same category