[vba]

Sub Date_Entry()
Dim Request As String
Dim ReportTitle As String
Dim DefValue As Date
Dim ReportDate As Date

Request = "Please enter the Week Commencing Date"
ReportTitle = "CEC Weekly Performance Report"
DefValue = Date - 7
ReportDate = CDate(InputBox(Request, ReportTitle, DefValue))
With Sheets("Performance_Report").Range("K12")

.Value = ReportDate
.NumberFormat = "dd mmmm yy"
End With
End Sub
[/vba]