Can't call shape from Macro?

[BBrandt]

I've drawn a shape that I'd like to use to trigger a macro, and have another shape beneath it (same size, same shape, slightly different properties to simulate a pressed button). Just to test, I wanted to use a macro to shift around the order of the shapes, so I modified code I'd used for a similar purpose... but it doesn't work.

The shapes are named "RISAButtonState1" and "RISAButtonState2", here's the macro I want to trigger when I click the button:

Private Sub RISAButt*******()
[COLOR=seagreen]'Bring "pressed button" shape to front[/COLOR]
Shapes("RISAButtonState2").ZOrder msoBringToFront
 
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2
waitTime = TimeSerial(newHour, newMinute, newSecond) [COLOR=seagreen]'Wait 2 seconds[/COLOR]
Application.Wait waitTime
 
[COLOR=seagreen]'Return "unpressed button" shape to front[/COLOR]
Shapes("RISAButtonState1").ZOrder msoBringToFront
End Sub

When I run it it highlights the first line and gives me a "Sub or Function undefined" error.

Any idea what's causing that? Any help is greatly appreciated!

[edit: The sub is called RISA_Button_Click (with no underscores)... apparently o n c l i c k with no spaces gets censored? What?]

 

[VoG]

I think that you need to qualify the sheet, something like

ActiveSheet.Shapes("RISAButtonState2").ZOrder msoBringToFront

 

[BBrandt]

Yep, that did the trick, thanks! In the worksheet that I'd adapted the code for, the code was part of a Worksheet_Change event, so I guess the ActiveSheet part was implied in that case. Good to know.