Private Sub Worksheet_Change(ByVal Target As Range)
Dim DD, MM, YYYY As Integer
On Error Resume Next
MM = Month(Target)
YYYY = Year(Target)
If Day(Target) <= 14 Then
DD = 14
Else
DD = 14
MM = MM + 1
If MM > 12 Then
MM = 1
YYYY = YYYY + 1
End If
End If
Target = CDate(DD & "-" & MM & "-" & YYYY)
End Sub