Forms VisualBasic Script

Private Sub ScrollBar1_Change()
         Range("B3").Value = ScrollBar1.Value
     End Sub