List box of worksheets on excel useform 1

[SciBoy]

Can Anyone help me I want to add code to a userform in excel so that a list box on it will display a list of all of the worksheets in an active workbook, Any ideas?

 

[Loomah]

SciBoy
Try (adapting) this:

Private Sub UserForm_Initialize()
Dim iCount As Integer
For iCount = 1 To ThisWorkbook.Worksheets.Count
ListBox1.AddItem ThisWorkbook.Worksheets(iCount).Name
Next
End Sub

I've just learned today that by doing this it even lists the hidden sheet left over from my last reply to monk999 on hiding sheets.

I'm having a good day despite my cold having also discovered ms flexigrid