List all Open Workbooks in Combobox

[Stephanie30]

Hi

I am trying to create a userform in a MASTER workbook where I want help in listing all Open workbooks including CSV files listed in a Userform combo box.

This combobox should include all open workbooks including the ones which are not saved in the local drive.

The master WB should be excluded in the combobox and the code should list only the other open workbooks.


After the workbooks are listed in the combobox, the user should be able to select, unprotect the workbook and then be able to copy data from all tabs within the selected WB and then paste it in Master Workbook by creating extra worksheets.
The code should be able to name the extra worksheets in the Master WB as per the tab names in the source file

I hope the above is clear and it will be great if any one could help me on this

 

[Paul Ked]

Stage 1 - load open workbooks, including csv's to combobox:

Private Sub UserForm_Activate()
    Dim i&
    For i = 1 To Application.Workbooks.Count
        If Not Application.Workbooks(i).Name = ActiveWorkbook.Name Then ComboBox1.AddItem Application.Workbooks(i).Name
    Next
End Sub

 

[Paul Ked]

Stage 2 -> To big an ask for me, sorry.