Show UserForm from ComboBox

Hmm doesn't seem to work for me..

I have copied this code in the worksheet:

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
    Case 0
      UserForm1.Show
    Case 1
      UserFormSecurity.Show
    End Select
End Sub

and this in the workbook:

Private Sub Workbook_Open()
    For Each cp In ThisWorkbook.VBProject.VBComponents
        If cp.Type = 3 Then c01 = c01 & "|" & cp.Name
    Next
    Sheets(5).ComboBox1.List = Split(Mid(c01, 2), "|")
End Sub

Hi john55,

I'm getting an error on this line:
[code]
Sheets(5).ComboBox1.List = Split(Mid(c01, 2), "|")
[code]

Would I need to enter the sheet number or name?

Thanks snb and john55,

Finally works great! What I wasn't doing was saving the worksheet as macro-enabled!!

Thanks!!