Fill Combobox with sheet names from another workbook

[peteruson]

Hi

I have a combobox in userform in workbook1 and i want to fill it with sheets names from workbook2

please help.

 

[My Aswer Is This]

Try this:

Put this script in your UserForm

You need to modify the workbook name to meet your needs.
Both Workbooks must be open.
Workbook name must include extension Like: Me.xlsm

Private Sub CommandButton2_Click()
'Modified  11/12/2018  10:46:18 PM  EST
Dim i As Long
Dim ans As Long
ans = Workbooks("Book2").Sheets.Count
ComboBox1.Clear
For i = 1 To ans
    ComboBox1.AddItem Workbooks("Book2").Sheets(i).Name
Next
End Sub