How to open files from an AxitiveX combobox list that is populated by a macro?

[mflury]

Hello,

Long time answer searcher, first time poster. Still limited macro knowledge but I have usually been able to solve my macro-writing problems with a few searches and sometimes cobbling together different answers that I find online. No such luck this time.

I have the macro below (found the outline for it online) that runs when the workbook opens. "PATH" is shortened for convenience. The macro below works great. Any files in the "Individual Workbooks" folder are shown in the ActiveX combobox drop-down list. Perfect for what I need.

What is not perfect is that I also need a user to be able to click on their individual file in the drop-down list and have that file open. I have been unable to find anything online that will work.

Any assistance will be appreciated!

Thanks!

Private Sub Workbook_Open()



Sheet1.ComboBox1.Clear


Sheet1.ComboBox1.List = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir ""PATH\Individual Workbooks"" /b /a-d /on").stdout.readall, vbCrLf), ".")


End Sub

 

[MickG]

Try:-
Change file Path in code as required:-
Place code in Combobox1 code module

Private Sub ComboBox1_Change()
Workbooks.Open "C:\Users\USER1\Desktop\old Stuff\" & ComboBox1.Value
End Sub

 

[mflury]

Thank you, MickG! That works great!

 

[MickG]

You're welcome