Listbox with Worksheets List to display in reverse order

Hi all,

i have the code below which displays the list correctly but i want it in reverse order i.e. from Right to Left if possible?

VBA Code:
Private Sub CommandButton2_Click()

Dim i As Integer, sht As String
Dim ws As Worksheet

'Show/Go to selected worksheet'
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
sht = ListBox1.List(i)
End If
Next i
Sheets(sht).Activate
ActiveSheet.Visible = xlSheetVisible
ActiveWindow.DisplayGridlines = False
Range("D5").Activate

'Hide all other sheets.'
For Each ws In Worksheets
If ws.Name <> ActiveSheet.Name Then
ws.Visible = xlSheetHidden
End If
Next ws

Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim N As Long
'the n=3 hides the 1st sheet!'
For N = 3 To ActiveWorkbook.Sheets.Count
ListBox1.AddItem ActiveWorkbook.Sheets(N).Name
Next N
ListBox1.ListIndex = 0
End Sub

END OF CODE.

any help appreciated.

thanks in advance.

Al

Thanks Andy and apologies.

here is the code again. hopefully the right way?

Please Login or Register  to view this content.