Application.Caller when clicking a shape

[Av8tordude]

I have this code that I want to run that checks the days and times are within these parameters. I currently have it set when the sheet activates and when I click a shape button (Named: rStats)
When I click the button, it triggers a msgbox, which is to my expectation, however, when the sheet activates, the msgbox is triggered, which is not what I want.. I only want the msgbox to trigger if the shape is clicked.

On Error Resume Next
If ActiveSheet.Shapes(Application.Caller).Name = "sStats" Then MsgBox "Stop"
On Error GoTo 0

If Weekday(Now()) = vbSunday Or Weekday(Now()) = vbSaturday Or _
    TimeValue(Now) < TimeValue("09:30:00 AM") - TimeSerial(2, 0, 0) Or _
        TimeValue(Now) > TimeValue("04:00:00 PM") - TimeSerial(2, 0, 0) Then Exit Sub

 

[Av8tordude]

the code errors at If ActiveSheet.Shapes(Application.Caller).Name = "sStats" Then when activating the sheet

 

[Skyybot]

I suggest you assign a different Macro for your Shape click.