Need your input on how to run an Event whenever the date on cell A1 changes. The current formula in cell A1 is =Today().

This code doesn't work on me:

```
Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Address = "$A$1" Then

    MsgBox "Another day has come!"

  End If

End Sub

```

Ex. What will happen should be, if it's 11:59 PM (Jun 11, 2019) and goes to the next day, 12:00 AM (Jun 12, 2019) a procedure will automatically run. 

Thanks guys.