Solved: Sort data in a listbox

[mikerickson]

With Sheets("Sheet1")
   ListBox1.RowSource = Range(.Range("a1"),.Range("D65536").End(xlUp)).Address
End With