xxxxxxxxxx
Dim myArray() As String
ReDim myArray(1 to 4)
Debug.Print UBound(myArray) '4
myArray(1) = "one"
myArray(2) = "two"
myArray(3) = "three"
myArray(4) = "four"
' removes the last 2 items, keeping the first 2 items
ReDim Preserve myArray(1 to 2)
Debug.Print myArray(1)
Debug.Print myArray(2)