Worksheet_Change ( No Responese )

[justuptou]

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

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