|
' Element to delete
iDelete = 5 ' Number of elements before deletion nElements = UBound(Array) ' Replace iDelete with last item in array Array(iDelete) = Array(nElements) ' Use ReDim Preserve to shrink array by one ReDim Preserve Array(LBound(Array) To nElements - 1) |