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
Bookmarks