Turning shapes on and off VBA

[dannyok90]

Im trying to turn some shapes on and off, this is the code im using.

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Range("J9").Value
Case "GREEN"
With Me.Shapes("GREEN_TIME")
.Visible = Not .Visible
End With
Case "RED"
With Me.Shapes("RED_TIME")
.Visible = Not .Visible
End With
Case "AMBER"
With Me.Shapes("AMB_TIME")
.Visible = Not .Visible
End With
End Select

End Sub

It works but I have to turn the shapes on and off.

I just want to be able to select one of the shapes from the drop down list and its that one that's visible?

any ideas?

 

[gallen]

If I've understood you correctly:

Private Sub Worksheet_Change(ByVal Target As Range)


    Me.Shapes("GREEN_TIME").Visible = Range("J9").Value = "GREEN"
    Me.Shapes("RED_TIME").Visible = Range("J9").Value = "RED"
    Me.Shapes("AMB_TIME").Visible = Range("J9").Value = "AMBER"


End Sub

 

[dannyok90]

That's it, perfect!

I knew it would be something simple and I was just taking the longest way round haha!

thanks so much!

 

[gallen]

Welcome. Anyone who has ever used vba regularly has been guilty of overthinking