Excel Forum

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range) 

If Not Intersect(Target, Range("A1")) Is Nothing Then 

' forms scrollbar 
ActiveSheet.Shapes("Scroll Bar 2").ControlFormat.Max = Target.Value 

' ActiveX scrollbar 
ActiveSheet.Shapes("ScrollBar1").OLEFormat.Object.Object.Max = Target.Value 

End If 

End Sub 

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

'If Not Intersect(Target, Range("B1")) Is Nothing Then
If Target.Address = Range("c1").Range("a1").Address Then
' forms scrollbar
ActiveSheet.Shapes("Scroll Bar 23").ControlFormat.Max = Target.Offset(0, -1).Value

' ActiveX scrollbar
' ActiveSheet.Shapes("ScrollBar1").OLEFormat.Object.Object.Max = Target.Value

End If

End Sub