Listboxes - populate with all worksheet names

[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?

 

[bluegnu]

I have worked this out now. I used:


Code
-------------------
Dim wbs As Worksheet

For Each wbs In Worksheets
If wbs.Name <> "ignore_sheet" Then
ListBox1.AddItem wbs.Name
End If
Nex