If UCase(myArray(i)) > UCase(myArray(j)) Then 'Sort the Array A-Z For i = LBound(myArray) To UBound(myArray) - 1 Function SortArrayAtoZ(myArray As Variant) This function takes an array as its variable and outputs the same array sorted in alphabetical order. The function is a reusable piece of code, it can form part of your ‘Core’ module, which you can copy into any VBA project. I like to use a Function, rather than a Sub for sorting an array. 'Output the Array through a message box For i = LBound(myArray) To UBound(myArray) 'myArray variable set to the result of SortArrayAtoZ function You only need this first piece of code if you are following it through as an example. It creates an array, calls the function to sort the array and then outputs the sorted array. Unfortunately, VBA doesn’t have a function for sorting arrays automatically, but with a little bit of coding we can create a reusable function which would achieve something similar. At some point in your VBA life it will be necessary to display or re-order an array/list alphabetically (or reverse alphabetically).

Visual basic for excel array