ListBox'tan Seçerek Sayfasını ve Listeden Silmek

[htsumer]

Cari Karta Git dediğimde aranan ismine örnek A yazdığımda gelen isimlerden örneğin ali'ye ait açılan "ali" sayfasını ve bu sayfadaki ismini listeden silmek istiyorum.
Yalnız çift tıklama ile sayfaya gittiğinden bir butona sil atanması lazım. Sayfasını silmek için bir kod lazım.
Teşekkürler

 

[askm]

Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
On Error Resume Next
If ListBox1.ListIndex > -1 Then
    Sayfa = ListBox1.Column(1)
Set k = Range("B2:B65536").Find(Sayfa, , xlValues, xlWhole)
If Not k Is Nothing Then
    satir = k.Row
    Sheets(Sayfa).Delete
    Rows(satir).Delete
Else
MsgBox "Aranan sayfa bulunamadı...", vbInformation
End If
End If
End Sub

 

[htsumer]

Harika olmuş çok teşekkür ederim bir if sorgusu ekleyeceğim tamamdır..

 

[askm]

Rica ederim. Kolay gelsin.