FWIW:

Sub HaroonSid()
If Sheets("Entry").Range("P3") <> Date Then Call TheMacroName
End Sub