Hi,

The following code was very helpful. Is there any way to exclude certain
Worksheets from being in the Combo Box?


Private Sub UserForm_Initialize()
Dim WS As Worksheet
For Each WS In Worksheets
ComboBox1.AddItem WS.Name
Next
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.Text = "" Then
Exit Sub
End If
Worksheets(ComboBox1.Text).Activate
Unload Me
End Sub