Loop not working

[blankus]

HI

So i have a user form asking for a From and To and the text boxes are currently name textbox1 and textbox2. A sheet called Pack Voucher picks up information from an other sheet called Packs List. I am basically asking the user to enter which pack voucher needs printing and print 2 copies of each Pack voucher.

I came up with the following code by it is not working can someone help me..

Private Sub OK_Click()
    Dim ws As Worksheet
    Set ws = Worksheets("PACK VOUCHER")

    
    Application.ScreenUpdating = False
    sono = TextBox1.Value
    ws.Range("K1").Value = sono.Value
    
    Do Until sono = TextBox2.Value
    
    ws.Range("K1").Value = sono.Value
    ActiveSheet.PrintOut Copies:=2
    sono = sono + 1
    Loop
    Sheets("PACKS LIST").Select
    Application.ScreenUpdating = True
    
Unload Me
End Sub

I am quite sure that i have to define the "sono" but don't know where....can u help me out plssssssssss...


Franco