---

Private Sub Удалить_Click()

    Dim i As Integer

    Sheets("Список").Select

    i = ListBox1.ListIndex + 2

    Rows(i).Delete

    ListBox1.RowSource = "Список!A2:A100"

End Sub