Listboxtan kayıt silmede hata

[osmanfenerli1907]

iyi akşamlar
Ben listboxtan verileri silmek için aş. kodları kullanıyorum.Ama sil butonuna tıklayınca listboxtan kayıtı siliyor.Ve de listbox1 i aşağıya doğru uzatıyor.Bu neyden olabilir?

KOD----------------------------------------------
Private Sub CommandButton3_Click()
If ActiveCell.Address = "$A$1" Then
MsgBox "Lütfen kayıt silmek için listeden seçim yapınız.", vbExclamation, "DİKKAT !"
Exit Sub
End If
Selection.Delete Shift:=xlUp
End Sub

 

[osmanfenerli1907]

Sayın arkadaşlarım bu neyden kaynaklanır.Yardımcı olurmusunuz?

 

[zafer]

Merhaba

Kodlarınızı denedim .Bende olmadı.

Zaten kodlarınızda Aktif hücre A1 se mesaj ver kodlardan çık.
değilde seçili olan hücreyi sil olarak işlem görüyor.

Başka bir yerde listbox'a ait bir kod varmı.Listbox change olayı gibi..