Worksheet_Change ( No Responese )

I run the coding, it was worked.
but it is not worked when I re-opened the file.
Use "F8" step to active the coding, it is also no responese

Code:

---

Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
If Target.Column = 1 Then
      If Target.Row >= 2 Then
          Target = Cstr(Format(Target,"DD MMM YYYY")
      End if
    End if
End Sub

---

Hi justuptou!
Worksheet events cannot be debugged with F8 unless interrupts (such as stop) are added to the code.

Code:

---

Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
  If Target.Row >= 2 Then
    Application.EnableEvents = False
    Target = Cstr(Format(Target,"DD MMM YYYY")
    Application.EnableEvents = True
  End if
End if
End Sub

---

The coding was worked when I set it, the coding will be autorun when I change anything in worksheet.
when I reopen the file, the code can't be run / autorun.

Show the workbook in an attachment that does not work.

Artik