Foutmelding objectvariabele

[Excelvbas01]

Als ik een regel wil deleten dan krijg ik foutmelding:
objectvariabele of blokvariabele with is niet ingesteld
Ik heb op internet gezocht en kan gaan antwoord vinden. Hopelijk weet iemand hier de oplossing.
Hier zit ergens een fout: Sheets("Blad1").Range("A:A").Find(ListBox1.Text).Activate

Private Sub Delete_Click()
   Dim sil As Long
   Dim X
   If ListBox1.ListIndex = -1 Then
   MsgBox "Kies een item", vbExclamation
   Exit Sub
   End If
   If ListBox1.ListIndex >= 0 Then
    X = MsgBox("Weet u het het zeker will be deleted. ... Are you sure ?", vbYesNo)
If X = vbYes Then
  Sheets("Blad1").Range("A:A").Find(ListBox1.Text).Activate
sil = ActiveCell.Row
   Sheets("Blad1").Rows(sil).Delete
    End If
    End If
End Sub
[CODE]

 

[snb]

Ik ga ervan uit dat de knop niet zichtbaar is als er geen selectie in de Listbox is gemaakt.
Ik ga ervan uit dat je weet dat je objecten geen voor VBA verwarrende namen moet geven, zoals bijv. 'delete'.
Ik geef de 'delete' knop de naam 'C_01'

Private Sub Listbox1_Change()
   C_01.visible=Listbox1.listindex>-1
End Sub

Private Sub C_01_Click()
   Blad1.rows(Listbox1.listindex+1).delete
End Sub

 

[Excelvbas01]

Bedankt,
Ik heb geprobeerd en soms werkt het wel en soms ook niet. Ik krijg dezelfde foutmelding.
Waar het aanlegt weet ik niet.

 

[VenA]

Plaats het bestand eens.