Originally Posted by
xld
Can you post your code, I am not seeing it.
sure here is a set of code for one of the boxes. they are all pretty much the same. does this help?
'******************************************************
Private Sub txtGross1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtGross1.Value = 0 Then
MsgBox ("You must key in some value other than multiple zeros")
txtGross1.Text = ""
txtNet1.Enabled = False
txtGross1.SetFocus
Exit Sub
End If
End Sub
'******************************************************
Private Sub txtGross1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' just checks to make sure user keys in proper values.
Select Case KeyAscii
Case 48 To 57 ' for number 0-9
txtUnl1.Enabled = True
Case Else
MsgBox "Only numericals are allowed"
KeyAscii = 0
End Select
End Sub
'******************************************************