Scroll Bar and Current Value. Min and Max Values

named range scroll_info_3 is not the correct area.
the contents of scroll_info_3 are incorrect as they exceed controls limits.

the event code has not be changed to match the change in you sheet layout.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim CtlFmt As ControlFormat
    Dim ScrollData As Range
    
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B1")) Is Nothing Then
            Set CtlFmt = Target.Parent.Shapes("Scroll Bar 2").ControlFormat
            Set ScrollData = [SCROLL_INFO_1]
            With CtlFmt
                .Min = ScrollData.Cells(2, 1)
                .Max = ScrollData.Cells(3, 1)
                .SmallChange = ScrollData.Cells(4, 1)
                .LargeChange = ScrollData.Cells(5, 1)
                .Value = ScrollData.Cells(6, 1)
            End With
        
            Set CtlFmt = Target.Parent.Shapes("Scroll Bar 4").ControlFormat
            Set ScrollData = [SCROLL_INFO_2]
            With CtlFmt
                .Min = ScrollData.Cells(2, 1)
                .Max = ScrollData.Cells(3, 1)
                .SmallChange = ScrollData.Cells(4, 1)
                .LargeChange = ScrollData.Cells(5, 1)
                .Value = ScrollData.Cells(6, 1)
            End With
        
            Set CtlFmt = Target.Parent.Shapes("Scroll Bar 9").ControlFormat
            Set ScrollData = [SCROLL_INFO_3]
            With CtlFmt
                .Min = ScrollData.Cells(2, 1)
                .Max = ScrollData.Cells(3, 1)
                .SmallChange = ScrollData.Cells(4, 1)
                .LargeChange = ScrollData.Cells(5, 1)
                .Value = ScrollData.Cells(6, 1)
            End With
        
        End If
    End If
End Sub