i have one sheet that has some imported pictures, as well as some autoshapes. the idea is the autoshapes will get dragged onto the photographs by the user

there is one autoshape type (arrow, box, etc) for each category, and the categories have up to 12 autoshapes in them

what i'm trying to do is hide autshapes based on checkboxes (for example, if the user only requires 8 out of 12 autoshapes, they will click the checkboxes and the other 4 autoshapes will disappear from view, so when the file is printed the empty autoshapes aren't just floating on the page)

so far i've tried a few different routes, this is my current effort (the idea being that if a1 is false (connected to the checkbox) the shape goes away from view

Private Sub Worksheet_Activate()
> If Range("A1").Value = "false" Then
> ActiveSheet.Shapes("Arrow1").Visible = False
> Else
> ActiveSheet.Shapes("Arrow1").Visible = True
> End If
> End Sub
please help! i have been posting it in the worksheet code rather than the global modules....i have about 20 other macros running that are all working fine except this one

thanks so much