Thanks for the reply, and sorry for the delay (this project got put on hold)...
So I tried your code... I put it under the Sheet selection Change event, added a Control ComboBox to the sheet, and named it cbOpenFiles (I adjusted the code for this):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Visible Then
Set wkb = Nothing
But, I'm getting a Run-time Error 438, Object doesn't support this property or method, and the debugger is highlighting the If wkb.Visible line.
Also, I meant to ask that the name of this current workbook be excluded from the ComboBox list...
Any ideas on what I'm doing wrong or need to do to fix? Thanks again!
Sorry, you have to iterate the Windows collection instead of the Workbooks collection. I usually work with the Sheets collection and I always forget this .
Dim win As Window
For Each win In Windows
If win.Visible = True Then
If win.Parent.Name <> ActiveWorkbook.Name Then
' Do your processing here
Set win = Nothing