01-27-2014, 03:49 PM
Hi,
Here is one more method:
Try this...
Here is one more method:
Code:
Sub Reverse( ByRef myArray )
Dim i, ArrCount , HalfArrCount , strHolder
ArrCount = UBound(a)
HalfArrCount = Int(ArrCount/2)
For i = 0 to HalfArrCount Step 1
strHolder= a(i)
a(i) = a(ArrCount-1)
a(ArrCount-1) = strHolder
Next
End Sub
Try this...