Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Target = Format(DateSerial(1, Target, 1), "mmm")
Application.EnableEvents = True
End Sub