If Target.Address = "$C$5" Then Range("E5") = "" werkt niet

[PeterCorn]

Graag nog een keer jullie hulp!

Ik heb twee bestanden, Helpmij vraag 2.xlsm en Helpmij vraag 2a.xlsm

In beide heb ik onderstaande formule geplaatst

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub

Bij document Helpmij vraag 2.xlsm werkt het wel en bij Helpmij vraag 2a.xlsm werkt het niet.

Iemand een idee waaraan dit kan liggen?

Bekijk bijlage Helpmij vraag 2.xlsmBekijk bijlage Helpmij vraag 2a.xlsm

 

[ExcelAmateur]

In vraag 2 staat de code achter het blad en werkt. (Private Sub Worksheet_Change(ByVal Target As Range))
In vraag 2a heb je die code in een Module gezet, terwijl die achter het blad moet.

Private Sub Verwijder()
    If Blad1.Target.Address = "$C$5" Then Blad1.Range("E5") = ""
End Sub

en volgens mij achter het Blad

Private Sub Worksheet_Change(ByVal Target As Range)
    Verwijder
End Sub

Ik hoop dat ik het goed gedaan heb.

 

[PeterCorn]

Hoi, bedankt voor je reactie!

Ik heb de code achter het Blad gezet, en nu werkt het! TOP!

(raar dat ik dat niet gezien heb, Mmmm. . . altijd fijn dat er iemand mee wil kiijken)