View Single Post
  #3  
Old August 18th, 2011, 08:27 AM
pctech33 pctech33 is offline
Banned
 
First recorded activity by OfficeFrustration: Jun 2011
Posts: 1
Default

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim pStr As String
If Val(Application.Version) 14 Then Main.SetDeveloperTabActive
pStr = ContentControl.Range.Text
If ContentControl.Type = wdContentControlDate Then
If Not IsDate(pStr) Then
MsgBox "You must enter a date", vbCritical, "Completion error"
Cancel = True
End If
End If
End Sub