Forgot to mention.....when I use data on the same sheet I can use:

Private Sub ListBox1_Click()

ListBox1.ListFillRange = ActiveSheet.Range("A4:A14").Address

End Sub

and it works fine

--
Message posted from http://www.ExcelForum.com