Активность ListBox - VBA

Формулировка задачи:

Добрый день! Написал для Excel кое-какую обработку, содержащую ListBoxы, но вот проблемка: Первый раз всё срабатывает нормально - выбор пункта ListBox, обработка в п/п, но возвращаясь обратно ListBox появляется неактивный. И выбор другого пункта приходится начинать, "выбираясь" вообще из этого меню. Вот такой код:

                    Листинг программы
                
 
                        
                          
                    
Private Sub UserForm_initialize()
'Заполняем ListBox
    With ListBox
        .MultiSelect = fmMultiSelectSingle      'выбор только одного варианта
        .ForeColor = RGB(60, 60, 220)
        .Font.Size = 13
        .AddItem "1" 'условно
        .AddItem "2"
        .AddItem "3"
    End With
 End Sub
 
Private Sub ListBox_Click()
Select Case ListBox2.ListIndex
        Case 0
          Call pp1 'условно
        Case 1
          Call pp2
        Case 2
          Call pp3
 
End Sub

Прошу подсказать чайнику...

Решение задачи: «Активность ListBox»

textual
                            Листинг программы 
                        
Private Sub PP()
    MsgBox ("pp1")
    Unload Me
    UserForm1.Show
End Sub