Without the form to test it, this is just a guess but the followin
replacements may make a difference.

' The issues is below

' Transfer the phone numbers
If TextBoxHN1 Then Cells(NextRow, 2).value = TextBoxHN1.value
TextBoxHN2.value & TextBoxHN3.value ' added .value to define th
properties a bit better
If TextBoxCN1 Then Cells(NextRow, 3).value = TextBoxCN1.value
TextBoxCN2.value & TextBoxCN3.value


' Clear the name control for the next entry
TextBoxName.Text = ""
TextBoxName.SetFocus ' This line not necessary - can be deleted

' Clear the home number
TextBoxHN1.Text = ""
TextBoxHN1.SetFocus ' This line not necessary - can be deleted
TextBoxHN2.Text = ""
TextBoxHN2.SetFocus ' This line not necessary - can be deleted
TextBoxHN3.Text = ""
TextBoxHN3.SetFocus ' This line not necessary - can be deleted


' Clear the cell number
TextBoxCN1.Text = ""
TextBoxCN1.SetFocus ' This line not necessary - can be deleted
TextBoxCN2.Text = ""
TextBoxCN2.SetFocus ' This line not necessary - can be deleted
TextBoxCN3.Text = ""
TextBoxCN3.SetFocus ' This line not necessary - can be deleted
TextBoxName.SetFocu

--
Message posted from http://www.ExcelForum.com