Předpokládám, že jde o povuníky formulářové (nikoliv ActiveX), kdy se mluví o propojení s buňkou.
Posuvnik1 je navázaný na buňku A1 (a k němu přiřazené makro onChangePosuvnik1)
Posuvnik2 je navázaný na bunku A2 (a k němu přiřazené makro onChangePosuvnik2)
Sub onChangePosuvnik1()
ActiveSheet.Range("A2") = 10 - ActiveSheet.Range("A1")
End Sub
Sub onChangePosuvnik2()
ActiveSheet.Range("A1") = 10 - ActiveSheet.Range("A2")
End Subcitovat