Assign scrollbar value to B3
Private Sub ScrollBar1_Change() Range("B3").Value = ScrollBar1.Value End Sub