cellen leegmaken met behulp van een knop

[wally1968]

Als ik op de knop "Nieuw spel" druk om aangegeven cellen leeg te maken, krijg ik telkens een fout melding.
Kunnen jullie eens kijken wat er hier fout aan is

 

[AHulpje]

Probeer het eens zo:

Sub Knop1_Klikken()
    Application.EnableEvents = False
    Range("A4:A23").ClearContents
    Application.EnableEvents = True
End Sub