ListBox Display is empty - Help!

[Fred2525]

I am new to VBA... I have a combo list box that points to another workbook and worksheet. When I manually open the 2nd workbook and worksheet, my listbox works perfectly. Everything is great. However... writing VBA code to open the workbook automatically, the listbox is empty. The workbook is there and I can alt-tab to it, but the listbox does not recognize it. I expected opening a workbook or workbook(s), I would have access to the tabs, (Sheets), without any problems. Can anybody guide me to automatically open a 2nd workbook where the data exists for my listbox?

 

[Fred2525]

Further testing... I open a workbook. Automatically open a 2nd workbook (WBk2), using MsgBox display items from (WBk2). I then Activate the 1st Workbook I opened originally and display items from my original workbook (WBk1). I then attempt to display the details from WBk2 again, but now get a subscript out of range error. (As if the Workbook and Worksheets no longer exist. (But... I can Alt-Tab to both workbooks.) Code..... Sub Autpen()
Application.ScreenUpdating = False
ControlFile = ActiveWorkbook.Name
Workbooks.Open Filename:="\\ntserver5\NWI Reports\Departments\Sales\Quotation System\Control\Quote_Control.xlsx"

Msg = "B3: " & Sheets("File_Paths").Range("B3").Value & vbCrLf
Msg = Msg & "C3: " & Sheets("File_Paths").Range("C3").Value & vbCrLf
Msg = Msg & "D3: " & Sheets("File_Paths").Range("D3").Value & vbCrLf
MsgBox Msg

Windows(ControlFile).Activate

Msg = "B3: " & Sheets("Quote_Files").Range("B3").Value & vbCrLf
Msg = Msg & "C3: " & Sheets("Quote_Files").Range("C3").Value & vbCrLf
Msg = Msg & "D3: " & Sheets("Quote_Files").Range("D3").Value & vbCrLf
MsgBox Msg

Msg = "B3: " & Sheets("File_Paths").Range("B3").Value & vbCrLf
Msg = Msg & "C3: " & Sheets("File_Paths").Range("C3").Value & vbCrLf
Msg = Msg & "D3: " & Sheets("File_Paths").Range("D3").Value & vbCrLf
MsgBox Msg