Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Visible Then
YourComboBox.Items.Add(wkb.Name)
End If
Next wkb
Set wkb = Nothing
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Visible Then
cbOpenFiles.Items.Add (wkb.Name)
End If
Next wkb
Set wkb = Nothing
End Sub
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
cbOpenFiles.Items.Add win.Parent.Name
End If
End If
Next Window
Set win = Nothing