Sub TestMonTab()
Dim i As Integer
Dim MyTab() As Integer
Dim MyCount As Integer
Dim TabErased As Boolean
For i = 1 To 100
ReDim Preserve MyTab(0, i - 1)
MyTab(0, i - 1) = i
Next
For i = 0 To UBound(MyTab, 2)
MyCount = MyCount + MyTab(0, i)
Next
MsgBox MyCount
Erase MyTab
TabErased = True
If Not TabErased Then
For i = 0 To UBound(MyTab, 2)
MyCount = MyCount + MyTab(0, i)
Next
MsgBox MyCount
End If
End Sub