Удаление строки из листбокса и таблицы?

[Гыгыка]

Помогите пожалуйста написать код для удаления записи из листбокса и таблицы excel при нажатии кнопки удалить? Заранее благодарен.

[SAS888]

В данном случае можно так:

Private Sub CommandButton5_Click() 'удаление
    If ListBox1.ListIndex < 0 Then Exit Sub
    Cells(ListBox1.ListIndex + 2, 1).Resize(, 3).Delete xlUp
    CommandButton2_Click
End Sub

Пример во вложении.

[Гыгыка]

Спасибо!!!!