Macro is executed just during seven days (VBA-Excel)

Sub Your_macro()

If DateSerial(Year(Date), Month(Date), Day(Date)) - DateSerial(2014, 3, 7) < 7 Then

'your code here

End If

End sub