Loop not working

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

Please take a few minutes to read the forum rules, and then edit your post to add code tags.

Thanks.

Yes, thanks.

Not sure if this is what you want:

Private Sub OK_Click()
    Dim ws      As Worksheet
    Dim i       As Long

    If IsNumeric(TextBox1.Value) And _
       IsNumeric(TextBox2.Value) Then

        Set ws = Worksheets("PACK VOUCHER")
        Application.ScreenUpdating = False

        For i = TextBox1.Value To TextBox2.Value
            ws.Range("K1").Value = i
            ActiveSheet.PrintOut Copies:=2
        Next i
        
        Sheets("PACKS LIST").Select
        Application.ScreenUpdating = True
        Unload Me
    End If
End Sub