DTpicker Date MsgBox

Something like this.....

Private Sub DTPicker1_Change()
If DTPicker1 >= Date Then
        MsgBox "You musht pick a date before today's date only.", vbCritical
        Exit Sub
End If
End Sub


Private Sub UserForm_Initialize()
DTPicker1.Value = Date - 1
End Sub

You're welcome.

If that takes care of your original question, please mark your thread as Solved by selecting Thread Tools (just above your first post) --> Mark thread as solved.