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

 

[Skyybot]

Sub sStats_Click()
'Whatever code you want to run
End Sub

 

[Av8tordude]

Not sure I understand what you're suggesting. The timeframe needs to check when either the button is clicked or the sheet is activated. However, the msgbox should only trigger when I click the button. It should not trigger the msgbox when the sheet is activated.

 

[Skyybot]

From you OP
" I only want the msgbox to trigger if the shape is clicked."
If you have other conditions that weren't expressed please let me know. It would also help to post the whole subroutine.

Sub sStats_Click()
MsgBox "Stop"
End Sub

 

[Av8tordude]

Maybe I gave a bad explanation. When the sheet is activated, the code will run (Name: Sub Macro) to check if the current time is within the set parameters. If so, it will run the rest of the code, if not, do nothing (no msgbox). Like wise, if I click the button that is on the sheet (which has the same Sub Macro code assigned to the button), it too will use the same code to check the time is within parameters. Only difference is, if I click the button, it should check the time parameters and if the current time is not the parameters run the rest of the code. If not, a msgbox should trigger when I click the button, and the code stops.

 

[Skyybot]

You have to assign the macro

 

[Skyybot]

Maybe I gave a bad explanation. When the sheet is activated, the code will run (Name: Sub Macro) to check if the current time is within the set parameters. If so, it will run the rest of the code, if not, do nothing (no msgbox). Like wise, if I click the button that is on the sheet (which has the same Sub Macro code assigned to the button), it too will use the same code to check the time is within parameters. Only difference is, if I click the button, it should check the time parameters and if the current time is not the parameters run the rest of the code. If not, a msgbox should trigger when I click the button, and the code stops.

Show full code for more assistance.

 

[Skyybot]

I don't know man... try this.

On Error Resume Next
If ActiveSheet.Shapes(Application.Caller).Name = "sStats" Then
 MsgBox "Stop"
Exit Sub
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]

Kinda crude, but I put something...

On Error GoTo here
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
    If ActiveSheet.Shapes(Application.Caller).Name = "rStats" Then MsgBox "Stop"
here:
Exit Sub
End If

 

[Skyybot]

I try not to use On Error statements unless I'm expecting an error. I would suggest removing those statements and seeing where the code errors.