Dave Peterson wrote:
> There are lots of sort routines that you can find via google.
>
> This is one:
>
> Option Explicit
> Sub testme()
>
> Dim myArr1 As Variant
> Dim iCtr As Long
> Dim jCtr As Long
> Dim Temp As Variant
>
> myArr1 = Array("S", "E", "A", "R", "C", "H")
>
> For iCtr = LBound(myArr1) To UBound(myArr1) - 1
> For jCtr = iCtr + 1 To UBound(myArr1)
> If myArr1(iCtr) > myArr1(jCtr) Then
> Temp = myArr1(iCtr)
> myArr1(iCtr) = myArr1(jCtr)
> myArr1(jCtr) = Temp
> End If
> Next jCtr
> Next iCtr
>
> For iCtr = LBound(myArr1) To UBound(myArr1)
> MsgBox iCtr & "--" & myArr1(iCtr)
> Next iCtr
>
> End Sub
>
> It actually sorts the original array--is that a problem?
>
> kenrock wrote:
>
>>Hi, I have some queries about the use of strings and arrays:-
>>1. Is there a simple way to use VBA Code to sort a string eg "SEARCH" to
>>"AECHRS" ie is there a worksheet function which can be called?
>>2. If text is in an array eg myArray1(6) = ("S","E","A","R","C","H"),
>>how can I produce myArray2(6) = ("A","E","C","H","R","S")?
>>Any thoughts would be greatly appreciated.
>>Regards. Kenrock
>>
>>*** Sent via Developersdex http://www.developersdex.com ***
>
>
Hi Dave,
Many thanks for your reply and apologies for the delay in coming back to
you. I have been distracted by other things but now I have the time to
get to grips with your response.
Regards, Kenrock