Malcolm,
Here is a new copy of my code. The problem I have discovered appears to be that the cursor is not present. I believe that the focus is still at the TextBox130 after the MsgBox appears and you hit OK but there is no cursor indication. If you type, nothing appears in any box. If you click anyplace else, you get the MsgBox for the TextBox130.
I placed a breakpoint at the If statement and the MsgBox and after the MsgBox nothing happens when you type. The cursor is not blinking any place on the UserForm. So that is why I feel I have lost focus.
I am using Excel 2000. I did have the TexBox130 = "" after the MsgBox and I also had TextBox130.SetFocus but it did not help.
If you remove the MsgBox code, the code works fine. If you put in a character, it is erased and the cursor is at the TextBox ready for input. The MsgBox appears to be causing the problem.
Any suggestions?
Private Sub TextBox130_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyPrompt As String
MyPrompt = "Please input a Number!"
If IsNumeric(TextBox130.Value) Then
TextBox130.Value = Round(TextBox130.Value, 0)
JobArea(0).SqFt = TextBox130.Value
Call UpdateSqFtTotal
Else
Cancel = True
TextBox130.Text = ""
MsgBox MyPrompt, vbInformation, "Pro Paver Installer Data Input"
End If
End Sub