List all Open Workbooks in Combobox

Stephanie30

New Member
Joined
May 21, 2015
Messages
13
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

Active Member
Joined
Jun 4, 2015
Messages
441
Stage 1 - load open workbooks, including csv's to combobox:
Code:
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
 

Forum statistics

Threads
1,078,435
Messages
5,340,250
Members
399,361
Latest member
Linford

Some videos you may like

This Week's Hot Topics

  • Problem with Radio Button's format control
    I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
  • Last Display on userform to a Listbox
    [CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
  • Rename and move files to a new location
    Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
  • Help with True/False Formula
    Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
  • Clear extra characters from a provided range of cells
    Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
  • Help with Current and highest streaks
    Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...
Top