vba excel помогите девушке

Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

Public AutoSet As Boolean
 
' При двойном щелчке на ListBox1 открывается лист с выбранным студентом
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If UserForm1.ListBox1.ListIndex >= 0 Then
        Worksheets(UserForm1.ListBox1.Text).Activate
    End If
End Sub
 
' Регистрируем ввод символа в TextBox1
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    AutoSet = True
End Sub
 
' Обрабатываем введенную в TextBox1 строку
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim i As Integer
    Dim n As Integer
    If Not AutoSet Then
        Exit Sub
    End If
    n = Len(UserForm1.TextBox1.Text)
    For i = 0 To UserForm1.ListBox1.ListCount - 1
        If n > 0 Then
            If UCase(Left(UserForm1.ListBox1.List(i), n)) = UCase(UserForm1.TextBox1.Text) Then
                UserForm1.TextBox1.Text = UserForm1.ListBox1.List(i)
                UserForm1.ListBox1.ListIndex = i
                UserForm1.TextBox1.SelStart = n
                UserForm1.TextBox1.SelLength = Len(UserForm1.TextBox1.Text) - n
                Exit For
            End If
        End If
    Next i
    AutoSet = False
End Sub
 
' При появлении формы обновляем список студентов в ListBox1
Private Sub UserForm_Initialize()
    Dim MyArray() As String
    Dim n, i As Integer
    n = 0
    While Worksheets("Список_студентов").Cells(n + 1, 1).Value <> ""
        n = n + 1
    Wend
    ReDim MyArray(n - 1)
    For i = 0 To n - 1
        MyArray(i) = Worksheets("Список_студентов").Cells(i + 1, 1).Value
    Next i
    UserForm1.ListBox1.ColumnCount = 1
    UserForm1.ListBox1.List() = MyArray
    UserForm1.TextBox1.SetFocus
End Sub