Custome Date Picker! Duplicate value

[SamT]

To Change an entered date, click the box to change, then use the DatePicker

This part goes at the top of the Form Code, before all subs

Dim FromSelected As Boolean
Dim ToSelected As Boolean

Private Sub TextBox1_Enter()
'As From TextBox
FromSelected = True
ToSelected = False
End Sub

Private Sub TextBox2_Enter()
'As To TextBox
FromSelected = False
ToSelected = True
End Sub

Sub Goes_In_Your_DatePicker_Code()

If TextBox1 = "" Then
  TextBox1 = SelectedDateIn
ElseIf TextBox2 = "" Then
  TextBox2 = SelectedDateIn
ElseIf FromSelected Then
  TextBox1 = SelectedDateIn
ElseIf ToSelected Then
  TextBox2 = SelectedDateIn
Else: MsgBox "Both Dates filled in. First select the Date you want to change... Etc."
End If

FromSelected = False
ToSelected = False

End Sub