Option Explicit
Sub ScrollBar_Change()
Const SB1_NAME As String = "Scroll Bar 1"
Const SB2_NAME As String = "Scroll Bar 2"
Dim objSB1 As Object
Dim objSB2 As Object
Set objSB1 = Shapes(Application.Caller)
Select Case objSB1.Name
Case SB1_NAME: Set objSB2 = Shapes(SB2_NAME)
Case SB2_NAME: Set objSB2 = Shapes(SB1_NAME)
Case Else
Exit Sub
End Select
If objSB1.Type <> msoFormControl Then Exit Sub
If objSB1.FormControlType <> xlScrollBar Then Exit Sub
If objSB2.Type <> msoFormControl Then Exit Sub
If objSB2.FormControlType <> xlScrollBar Then Exit Sub
Set objSB1 = objSB1.OLEFormat.Object
Set objSB2 = objSB2.OLEFormat.Object
Dim dblF1 As Double
dblF1 = (objSB1.Value - objSB1.Min) / (objSB1.Max - objSB1.Min)
objSB2.Value = Int((objSB2.Max - objSB2.Min + 1) * dblF1 + objSB2.Min)
End Sub