Get name of all xls file open and put in a listbox?

[jxb]

To all

I want to create a simple GUI with a listbox and ‘process’ button (done!). In that listbox I want to add the name of all the xls files currently open (in my excel session)

On the processbutton.click I then want to take get the name selected and pass it to a function

1. How do I do that?
2. Is it possible get to the same with multiple selection? Something like that

For Each sFileName As String In asFileNameSelected
Processthedata(sFileName)
Next

Thanks
Regards

 

[gallen]

This simple code will get all open workbooks and enter them into a list box named Listbox1:

    Dim wb As Workbook
    
    For Each wb In Workbooks
        ListBox1.AddItem wb.Name
    Next wb

Then this code will loop through all items in the list and check if they are selected:

    For i = 0 To ListBox1.ListCount - 1
        'Check if item is selected
        If ListBox1.Selected(i) Then
            'Run Your code here
        End If
    Next i

 

[jxb]

Thanks. Appreciated