ArrSort_4Arr

Sort 4 1-dimension arrays
Actually sort 1st array (arrShort) based on values ascending or descending, then change items in arrSub, arrSub2 and arrSub3 to match order in arrShort
Sort can be in Ascending or Descending order.
Similar to ArrSort_2Arr and ArrSort_3Arr but fir 4 arrays.

CodeFunctionName

What is this?

Public

Tested

Original Work

Function ArrSort_4Arr(arrShort, ByRef arrSub, ByRef arrSub2, ByRef arrSub3, Order_1Asc_2Desc, Optional CaseSensative = 1)
    Ord1 = 1
    If Order_1Asc_2Desc = 2 Then Ord1 = 2
    For I = UBound(arrShort) - 1 To 0 Step -1
        For J = 0 To I
            If CaseSensative = 1 Then
                Cond1 = arrShort(J) > arrShort(J + 1)
                If Ord1 = 2 Then Cond1 = arrShort(J) < arrShort(J + 1)
            Else
                Arritem1 = UCase(arrShort(J))
                Arritem2 = UCase(arrShort(J + 1))
                Cond1 = Arritem1 > Arritem2
                If Ord1 = 2 Then Cond1 = Arritem1 < Arritem2
            End If
            If Cond1 Then
                temp = arrShort(J + 1)
                temp1 = arrSub(J + 1)
                temp2 = arrSub2(J + 1)
                temp3 = ArrSub3(J + 1)
                ArrSub3(J + 1) = ArrSub3(J)
                ArrSub3(J) = temp3
                arrSub2(J + 1) = arrSub2(J)
                arrSub2(J) = temp2
                arrSub(J + 1) = arrSub(J)
                arrSub(J) = temp1
                arrShort(J + 1) = arrShort(J)
                arrShort(J) = temp
            End If
        Next
    Next
    ArrSort_4Arr = arrShort
End Function

arrShort, ByRef arrSub, ByRef arrSub2, ByRef arrSub3, Order_1Asc_2Desc, Optional CaseSensative = 1