Add worksheet name (Tab) to list for search

[DThib]

I can't seem to find this particular problem here.

I need to add the tabs in a workbook to a userform ListBox to use as the first result in a search string.

What will happen, hopefully, is the user will activate the userform and have a listbox with all tabs (worksheets) showing, When selected the next Box (text or combo) will give the user a chance to reduce the number of components in that worksheet.

My problem is finding the right code to query for tabs(worksheets) in the workbook to be in that list and the selection from the list to prompt for selecting it.

Any ideas?


Excel 2003, Wondows XP Professional

 

[VoG]

Try this in the userform's code module

Private Sub UserForm_Initialize()
Dim i As Long
With ListBox1
    For i = 1 To Worksheets.Count
        .AddItem Worksheets(i).Name
    Next i
End With
End Sub

 

[DThib]

Brilliant!
Thank you, sir

Debbie