AutoShapes

Got a workbook with two sheets. Under Sheet1: I create two Autoshape Bevel's. One is to display the two pictures, one is to hide the two pictures. If I hit a Bevel 1 or Bevel 2, I want the code to be written into the Workbook so when I open it up again it will remember what settings I had.

Under Sheet2: In the VBA code I have. I want to put a Two IF statments in here to make the logical decisions for me. I have tried it but they can't recognize the AutoShapes. I was using "ActiveSheet.AutoShape("Autoshape##")_Click", but it was not picking up a variable.

Private Sub Worksheet_Activate()
ActiveSheet.Shapes("Picture 32").Visible = True
ActiveSheet.Shapes("Picture 33").Visible = True
ActiveSheet.Shapes("Picture 32").Visible = False
ActiveSheet.Shapes("Picture 33").Visible = False
End Sub

I link the two bevel's on Sheet1 to run the Macro on Sheet2!Worksheet_Activate. How do I find the name of the Bevel's? Can I use If Statements, so make decisions on which Bevel was pressed, and retain the settings for the next time I open the Workbook ?