Private Sub UserForm_Initialize()
On Error Resume Next
TextBox3.Text = Evaluate(ThisWorkbook.Names("NumTrans").RefersTo) + 1
If Err Then TextBox3.Text = "1"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ThisWorkbook.Names.Add "NumTrans", CLng(TextBox3.Text)
End Sub