Scroll Bar and Current Value. Min and Max Values

I added a table of values with corresponding min/max.
The resulting min/max values are in to named ranges.

when C7 changes the code should update the scroller.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("C7")) Is Nothing Then
        
            With Target.Parent.Shapes("Scroll Bar 2").ControlFormat
                .Min = [SCROLL_MIN]
                .Max = [SCROLL_MAX]
            End With
            
        End If
    End If
End Sub