Foutmelding

[CorVerm]

Beste mensen,
Onderstaande code is bedoeld om een te selecteren rij te verwijderen. Werkt goed maar als ik, in het scherm, op de knop Annuleren klik komt er een foutmelding. Hoe is dat te voorkomen?
Sub DeleteRow()
Application.InputBox("Selecteer een cel", , , , , , , 8).EntireRow.Delete
End Sub
B.v.d.

 

[LucHeyndrickx]

Hallo,

zo misschien:

Sub DeleteRow()
On Error Resume Next
Application.InputBox("Selecteer een cel", , , , , , , 8).EntireRow.Delete
End Sub


Luc

 

[CorVerm]

Luc,
Dit is het helemaal.
Bedankt.