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