A destroying the old values by using the Preserve keyword
Sub redimDemo() Dim MyArray() As Integer ReDim MyArray(12) ReDim Preserve MyArray(12) End Sub