Excel/VBA – populate listbox

I would like to populate my listbox with the names of all .xls workbooks currently open. My objective would be to capture the name of the .xls so that i can copy from one workbook and paste link into another workbook. This is the only way that i can think to do this. If you have a better idea, please share it with me.