>.
>
With worksheets("Data")
set rng = .Range(.cells(1,2),.cells(1,2).End(xldown))
End With
Listbox2.ListFillRange = rng.address(external:=True)
--
Regards,
Tom Ogilvy
"MikeM" <mikem.de...@uic.edu> wrote in message
news:0a3701c3c3dc$4ee88ab0$a401...@phx.gbl...