Array Q!

[Sastraxi]

You need to do this:

Dim nDelete As Long 
Dim i As Long
 
nDelete = 5 'The index you want to KILL! :)
For i = nDelete + 1 To UBound(MyArray)
    MyArray(i - 1) = MyArray(i)
Next i
Redim Preserve MyArray(LBound(MyArray) To UBound(MyArray) - 1)

It's pretty simple to work out what it does, I hope you'll ask again if you have any difficulties!