Display Current Date With Specific Formatting In Cell Only Once

Merged cells are nasty but this should do it:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("L3")) Is Nothing Then Exit Sub
    With Range("AA1")
        .Value = Date
        .NumberFormat = "mmm dd, yyyy"
    End With

End Sub

Dom