validation in useforms help

hi there i have 2 userforms that i have made, both on seperate worksheets they work but allow anything to be typed in. i set up validation on the worksheet but when i store the data from the user form to the worksheet, the validation on the worksheet cells is erased. so im thinking somehow i need to set up validation in the code of the forms in visual basics. can anyone help.

hi mate if i supply u the code and the validation criteria will u be able to do it please i really am a noob at this. i beeen trying all morning and its not happening

customer user form

Number, validation between 1-9999
Title validtion list mr,miss,mrs,sir
Surname validation text between 0-25 chars
Age validation number between 18-80
Address validation text between 0-80 chars
Post Code validation text betweeb 0-chars
Discount validation list yes/no

code for form

Private Sub cmdClearForm_Click()
TxtNumber.Text = ""
TextTitle.Text = ""
TextSurname.Text = ""
TextAge.Text = ""
TextAddress.Text = ""
TextPostcode.Text = ""
ComboBox1.Text = ""

End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton3_Click()
Dim varNbRows As Double
Sheets("customer database").Select
Range("A1").Select
varNbRows = Selection.CurrentRegion.Rows.Count
If Selection.Value = "" Then
Exit Sub
ElseIf Selection.Offset(1, 0).Value = "" Then
Selection.Offset(1, 0).Select
Else
Selection.Offset(varNbRows, 0).Select
End If
Range("A1")(ActiveCell.Row).Value = TxtNumber.Text
Range("B1")(ActiveCell.Row).Value = TextTitle.Text
Range("C1")(ActiveCell.Row).Value = TextSurname.Text
Range("D1")(ActiveCell.Row).Value = TextAge.Text
Range("E1")(ActiveCell.Row).Value = TextAddress.Text
Range("F1")(ActiveCell.Row).Value = TextPostcode.Text
Range("G1")(ActiveCell.Row).Value = ComboBox1.Text



End Sub


Private Sub Frame1_Click()

End Sub

Private Sub TextTitle_Change()

End Sub


Private Sub UserForm_Click()

End Sub

the match field thing is that for all of them or jus the combo box mate

by the way the tiltle box at the moment is a text box and no list shows do i make it into al ist box for the list to show>?

thanks alot mate it works now, very much appreciated