Hello Again Everyone,
I thought "SetFocus" would put the cursor back in the text box and select the
text, but it does not. What would I use to put the user back in the text box and
select the offending date?

Private Sub txtDate1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim bolT As Boolean
On Error GoTo hell
bolT = NotAWorkDay(txtDate1.Value)
Exit Sub
hell:
If Err.Number = 13 Then
MsgBox "Not a Valid Date"
txtDate1.SetFocus
Else
MsgBox "Error # " & Err.Number & " Descr: " & Err.Description
End If
End Sub

Function NotAWorkDay(dtTheDay As Date) As Boolean
Dim intRes As Integer
Select Case WeekDay(dtTheDay)
Case 1
intRes = MsgBox(dtTheDay & " falls on Sunday.")
txtDate1.SetFocus
Case 7
intRes = MsgBox(dtTheDay & " falls on Saturday.")
txtDate1.SetFocus
End Select
End Function

Thank You,
-plh


--
I keep hitting "Esc" -- but I'm still here!

Just set the cancel argument of the exit event to True



' conditions not met
cancel = True

--
Regards,
Tom Ogilvy

"plh" wrote in message
...
Hello Again Everyone,
I thought "SetFocus" would put the cursor back in the text box and select
the
text, but it does not. What would I use to put the user back in the text
box and
select the offending date?

Private Sub txtDate1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim bolT As Boolean
On Error GoTo hell
bolT = NotAWorkDay(txtDate1.Value)
Exit Sub
hell:
If Err.Number = 13 Then
MsgBox "Not a Valid Date"
txtDate1.SetFocus
Else
MsgBox "Error # " & Err.Number & " Descr: " & Err.Description
End If
End Sub

Function NotAWorkDay(dtTheDay As Date) As Boolean
Dim intRes As Integer
Select Case WeekDay(dtTheDay)
Case 1
intRes = MsgBox(dtTheDay & " falls on Sunday.")
txtDate1.SetFocus
Case 7
intRes = MsgBox(dtTheDay & " falls on Saturday.")
txtDate1.SetFocus
End Select
End Function

Thank You,
-plh


--
I keep hitting "Esc" -- but I'm still here!