Reverse ComboBox range?

[Big Lar]

ComboBox is populated with this sub<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

Private Sub UserForm_Initialize()<o:p></o:p>
Dim x&<o:p></o:p>
With Sheets("Sheet1")<o:p></o:p>
For x = 2 To .Cells(Rows.Count, "A").End(xlUp).Row<o:p></o:p>
ComboBox1.AddItem (.Range("A" & x).Value)<o:p></o:p>
Next x<o:p></o:p>
End With<o:p></o:p>
End Sub<o:p></o:p>

<o:p>

</o>
How can I reverse the range?<o></o>

 

[JamesW]

Hi,

Try:

For x = .cells(rows.count, "a").End(xlUp).row to 2 step -1

 

[Big Lar]

Nice!

Thanks, JamesW