Cellen leegmaken lukt niet

[Basbrommer]

Hallo,

Ik heb een macro gemaakt die ik wil gebruiken bij het afsluiten van het bestand. Daarin geef ik aan dat bepaalde cellen leeg gemaakt moeten worden. Alleen dat lukt niet omdat hij een foutmelding geeft. Wat klopt er niet en kan iemand mij hierbij helpen?

Groet Bas

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    Worksheets("Start").Activate
    Activesheets.Range ("D13"), ClearContents
End Sub

 

[RB_online]

Private Sub Workbook_BeforeClose(Cancel As Boolean)     
Application.DisplayAlerts = False     
Worksheets("Start").Activate     
Activesheets.Range ("D13")[COLOR=red],[/COLOR] ClearContents 
End Sub

komma vervangen door een .

Kan eventueel ook zo:

Worksheets("Start").range("D13").ClearContents

 

[Basbrommer]

Het werkt! dank je wel.

Groet Bas