Calendar Macro

I have the following Calendar Macro. I want this to pop up when cell A5 is active vs assigning a Macro Button. How do I do? Thanks

 Sub OpenCalendar()
    frmCalendar.Show
End Sub