I have 4 buttons assigned to a userform within a frame. I have four shapes
that are not visible, and want the usere to be able to select a button and
make one of the shapes visible. When I click any of the buttons the shape
becomes visible. But when i select two or more they all become visible.
below is the code for one of the buttons. How do I modify the code to only
allow for one shape to be visible upon slection of the button?

Joel Mills

Sub PLANNEDLegend()
ActiveSheet.Shapes("LEGEND PLANNED").Visible = True
End Sub