Wie wil deze code afmaken?

[CorVerm]

Beste mensen,

De volgende code staat onder een knop maar is niet af. Als ik in het schempje op annuleren klik krijg ik een foutmelding, wat ook logisch is. Alleen weet ik niet de code zo te maken dat het schempje verdwijnt als er op de knop annuleren gedrukt wordt.

Private Sub cmdrijverw_Click()
Application.InputBox("Selecteer een cel", , , , , , , 8).EntireRow.Delete
End Sub

Groeten,

 

[LucB]

Cor,

Dit zou kunnen helpen.

Private Sub cmdrijverw_Click()
On Error GoTo Cor
Application.InputBox("Selecteer een cel", , , , , , , 8).EntireRow.Delete
Cor:
End Sub

 

[CorVerm]

Luc,
Dit is het helemaal.
Bedankt.

Groeten,