Worksheet_SelectionChange fout

[wiki]

Ik heb de volgende code in een excel bestand staan.
De losse opdrachten werken wel als ik ze direct activeer, maar niet bij Worksheet_SelectionChange. Wie weet raad?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("k6").Value = ONWAAR Then
Application.Run ("OB_onzichtbaar")
    
If Range("k6").Value = WAAR Then
Application.Run ("OB_zichtbaar")

End Sub

Sub OB_zichtbaar()

    ActiveSheet.Shapes("Option Button 6").Visible = True
    ActiveSheet.Shapes("Option Button 7").Visible = True
End Sub
Sub OB_onzichtbaar()

    ActiveSheet.Shapes("Option Button 6").Visible = False
    ActiveSheet.Shapes("Option Button 7").Visible = False
End Sub

gr wim

 

[snb]

Hou het simpel; dit volstaat

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ActiveSheet.Shapes("Option Button 6").Visible = Range("k6").Value 
  ActiveSheet.Shapes("Option Button 7").Visible = Range("k6").Value 
End sub

 

[wiki]

Bedankt werkt prima, maar ik sta iedere kleer verbaast hoe jij je codes zo kort krijgt:thumb:

gr Wim

 

[snb]

Het kan helaas nog korter:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Shapes.Range(Array("OptionButton6", "OptionButton7")).Visible = [k6] 
End Sub