Listbox - populate with sheetnames 1

[bluegnu]

Hello,

I would like to populate a forms listbox with all the sheetnames in my workbook. I would also like to exclude certain sheet names from the list.

As I add sheets, I would like this to be picked up by the code and added to the listbox.

Is this possible?

 

[jrbarnett]

Yes, you can use a For Each Next loop to enumerate the worksheets in the current workbook. For example:

    Dim wbs As Worksheet
    
    For Each wbs In Worksheets
        If wbs.Name <> "somesheet" Then
            Debug.Print wbs.Name
        End If
    Next

Adapt the if wbs.Name line to exclude any sheets you don't want included.
Replace the "Debug.Print" line with code to add the sheet name to your listbox.

John

 

[bluegnu]

Thanks, that's worked a treat.