Display Current Date With Specific Formatting In Cell Only Once

Right click on the sheet tab and paste this onto the code page that appears.

Private Sub Worksheet_Change(ByVal Target As Range)

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

End Sub

Dom