Automatisk opdatering af slidebar

Jeg har et excel ark med en scrollbar. Min og max for denne bar er sat via VBA. Koden ser således ud.

Private Sub ScrollBar1_Change()
ScrollBar1.Min = Sheets("data").Range("A5").Value
ScrollBar1.Max = Sheets("data").Range("A6").Value
End Sub

I en dropdownliste har jeg 2 valgmulighedder er skriver værdien
(1 eller 2) i en given celle.

På baggrund af værdien 1 sættes A5 og A6 til  5 og 10
på baggrund af værdien 2 sættes A5 og A6 til  8 og 15

Problemet er bare at slidebaren ikke opdateres automatisk når der vælges en nu værdi i dropdown menuen. Hvordan kan jeg sætte den til at opdatere slidebaren automatisk.