I need VBA code to make each combobox option on a userform open an excel workbook ...

Inactive and unresponsive mean two completely different things. Do you mean that the file opens but does not have focus? Or do you mean that the file opens but does not respond to any user input?

I have not tested this but this form of the command may solve it:

Formula:

 Workbooks.Open(Filename:="Workbook A").Activate

If you continue to have problems I will try to set up a test.

I appreciate your time and effort but that didn't work.

I have "Workbook 1" which has a userform (combobox) on it. The userform opens other "Workbooks A to H" depending on what is selected in the userform and after open file is clicked.

By unresponsive I mean that when the new "Workbook A" initially opens, no items on the menu bar work (File, Home, Insert, Page Layout, etc).
But if I click back onto the original "Workbook 1" with the userform the menu items on that workbook work OK...
I then click back onto the new "Workbook A" again and the menu items now work Ok as well.

I've tried it with Unload Me in the code and without Unload Me in the code but that makes no difference.

I hope I've explained my problem clearly now.
I've pasted the code I have so far below ...



Private Sub cbFiles_Change()

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & cbFiles.Value & ".jpg")

End Sub

Private Sub cmdOpen_Click()

If cbFiles.Value = "" Then
If MsgBox("You have not selected anything yet. If you continue this selection box will close. Do you want to continue?", vbQuestion + vbYesNo) <> vbYes Then
Exit Sub
End If
End If

Select Case Me.cbFiles
Case "QTR1"
Workbooks.Open(Filename:="C:\Users\Paul\Documents\Workbook A.xlsx").Activate
Case "QTR2"
Workbooks.Open(Filename:="C:\Users\Paul\Documents\Workbook B.xlsx").Activate
Case "QTR3"
Workbooks.Open(Filename:="C:\Users\Paul\Documents\Workbook C.xlsx").Activate
Case "QTR4"
Workbooks.Open(Filename:="C:\Users\Paul\Documents\Workbook D.xlsx").Activate
Case "Daily Audits Completed QTR1"
Workbooks.Open(Filename:="C:\Users\Paul\Documents\Workbook E.xlsx").Activate
Case "Daily Audits Completed QTR2"
Workbooks.Open(Filename:="C:\Users\Paul\Documents\Workbook F.xlsx").Activate
Case "Daily Audits Completed QTR3"
Workbooks.Open(Filename:="C:\Users\Paul\Documents\Workbook G.xlsx").Activate
Case "Daily Audits Completed QTR4"
Workbooks.Open(Filename:="C:\Users\Paul\Documents\Workbook H.xlsx").Activate
End Select

Unload Me

End Sub

Private Sub cmdClose_Click()

Unload Me

End Sub