insert auto serial number in user form

[SamT]

Private Sub UserForm_Initialize()
Dim NewSerno As Long

NewSerno = [Sheet].Cells(Rows.Count, "A").End(xlUp).Value + 1
[Sheet].Cells(Rows.Count, "A").End(xlUp.Offset(1) = NewSerno
Text1.Value = NewSerno
End Sub