HI All. What I have is a userform with 20 textboxs to fill out. The data is going on one sheet all in the same row. What I was wondering is if you have to enter the code below in each box,and change the cell reference's or is there a shorter way. The code works fine, I just have 200 boxs's total to complete. Thx Dan
Private Sub txtname_AfterUpdate()
Sheets("Customer").Range("E5").Value = TxtName.Text
End Sub
Private Sub txtname_AfterUpdate()
Sheets("Customer").Range("E5").Value = TxtName.Text
End Sub