List open workbooks except source workbook in a combobox

[Ahmed Hashish]

Hello,

I am using this code, to add open workbooks as items in a combobox, but I don't need the source file to be visible through that list.
Thanks

Dim wkb as Workbook
With me.combobox1
For each wkb in Application.Workbooks
.Additem wkb.name
Next wkb
End with

 

[Georgiboy]

Maybe the below:

    Dim wkb As Workbook
    With Me.ComboBox1
        For Each wkb In Application.Workbooks
            If wkb.Name <> ThisWorkbook.Name Then
                .AddItem wkb.Name
            End If
        Next wkb
    End With