VBA выдает 91 ошибку при закрытие userform

[Composter]

Доброго времени суток уважаемые форумчане, есть вопрос по примеру...
форма выполняется,но при выходе выдает ошибку,подскажите что не так
код макроса

Sub FormsRun2()
    UserForm2.Show
End Sub

код формы

Public zzz As Range
Private Sub CommandButton3_Click()
    Unload Me
End Sub
Private Sub UserForm_Activate()
    Application.ActiveWorkbook.ActiveSheet.Activate
    Dim vars As Variant
    For Each vars In zzz
        UserForm2.ListBox1.AddItem (vars)
    Next vars
End Sub
Private Sub UserForm_Initialize()
    Application.ActiveWorkbook.ActiveSheet.Activate
    Set zzz = Application.InputBox( _
                                        Prompt:="zzz", _
                                        Title:="", Type:=8)
    UserForm2.Show
End Sub

ну и сам файл

[gsg]

Сообщение от Composter

Доброго времени суток уважаемые форумчане, Private Sub UserForm_Initialize()
Application.ActiveWorkbook.ActiveSh eet.Activate
Set zzz = Application.InputBox( _
Prompt:="zzz", _
Title:="", Type:=8)
'UserForm2.Show
End Sub
[/CODE]
ну и сам файл

Application.ActiveWorkbook.ActiveSheet.Activate

Активация активного листа? Не боитесь, что он станет гиперактивным

[doober]

Выделенное красным уберите,вы заставляете рожать ее саму себя

Public zzz As Range
Private Sub CommandButton3_Click()
    Unload Me
End Sub
Private Sub UserForm_Activate()
    Dim vars As Variant
    For Each vars In zzz
     ListBox1.AddItem (vars)
    Next vars
End Sub
Private Sub UserForm_Initialize()

    Set zzz = Application.InputBox( _
                                        Prompt:="Âûäåëèòå ÿ÷åéêó èëè äèàïàçîí", _
                                        Title:="", Type:=8)
   UserForm2.Show
End Sub

[Composter]

doober спасибо большое за помощь. пойду дальше изучать VBA