Add auto number

[CampbellC]

on my order form i have order number textbox
can someone help me with the code on opening the form
i need to find the last order number and add 1 to it

so the order text box show next number
eg order 1 next order 2 and so on
thanks in advance

 

[CampbellC]

Found solution in early post
by rickXL

Code:
Private Sub CommandButton1_Click()
    With ThisWorkbook.Worksheets("Sheet1")
        .Cells(.Rows.Count, "A").End(xlUp).Offset(1) = TextBox1.Value
        TextBox1.Text = Application.Max(.Range("A:A")) + 1
    End With
End Sub

Private Sub UserForm_Initialize()
    With ThisWorkbook.Worksheets("Sheet1")
        TextBox1.Text = Application.Max(.Range("A:A")) + 1
    End With
End Sub