Formattering af datamærke i et diagram, bestemt af værdien

Jeg har lavet en vba kode, der laver et bestemt datamærke rødt, hvis værdien er 400 -  det virker.

Hvis jeg lader værdien i celle B3 styre gennem et rullepanel, så sker der ingen ting.
Jeg har prøvet at sætte følgende ind:
Private Sub scrollbar_selectionchange() istedet for - men det virker ikke.
Kan nogen løse den udfordring.

MVH

HHB

Private Sub worksheet_selectionchange(ByVal Target As Range)
If Range("b3").Value = 400 Then
ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points(2).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    Selection.Shadow = False
    Selection.InvertIfNegative = False
    With Selection.Interior
        .ColorIndex = 13
        .Pattern = xlSolid
    End With
    ActiveWindow.Visible = False
    'Windows("Mappe1").Activate
  Else
  ActiveSheet.ChartObjects("Diagram 1").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points(2).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    Selection.Shadow = False
    Selection.InvertIfNegative = False
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
    ActiveWindow.Visible = False
  ' ActiveSheet.Range ("c3")
    End If
   
End Sub