I have this array myarray(3) with these values:
myarray(1)="Y"
myarray(2)="Other"
myarray(3)="N"

Now I need to have the array in the following order:
myarray(1)="N"
myarray(2)="Y"
myarray(3)="Other"

What's the code for that? Thanks

--
~~ Message posted from http://www.ExcelForum.com

"clui" wrote in message
...

I have this array myarray(3) with these values:
myarray(1)="Y"
myarray(2)="Other"
myarray(3)="N"Sub Main()
Dim myArray(1 To 3)
myArray(1) = "Y"
myArray(2) = "Other"
myArray(3) = "N"

SwapTwo myArray(3), myArray(2)
SwapTwo myArray(1), myArray(2)

For i = 1 To 3
Debug.Print "myarray(" & i & ") = " & myArray(i)
Next
End Sub

produces:
myarray(1) = N
myarray(2) = Y
myarray(3) = Other

--
Regards,
Tom Ogilvy



Now I need to have the array in the following order:
myarray(1)="N"
myarray(2)="Y"
myarray(3)="Other"

What's the code for that? Thanks!


---
~~ Message posted from http://www.ExcelForum.com/

Tom, what is you SwapTwo code? Thanks!


---
~~ Message posted from http://www.ExcelForum.com/

Well that got all jumbled up:

Sub SwapTwo( item1, item2 )
Dim temp as Variant
temp = item1
item1 = item2
item2 = temp

End Sub

Sub Main()
Dim myArray(1 To 3)
myArray(1) = "Y"
myArray(2) = "Other"
myArray(3) = "N"

SwapTwo myArray(3), myArray(2)
SwapTwo myArray(1), myArray(2)

For i = 1 To 3
Debug.Print "myarray(" & i & ") = " & myArray(i)
Next
End Sub

--
Regards,
Tom Ogilvy


clui wrote in message
...

Tom, what is you SwapTwo code? Thanks!


---
~~ Message posted from http://www.ExcelForum.com/