Dim DOW As Variant
UserForm2 is a Form Calendar
If UserForm2.ActiveControl < Day(DOW) Then MsgBox "Not a Tuesday"
Ctm....

Interesting out come for me.
Found that no matter what format i tried with the textbox, i could not
revert it from "mm dd yyy" to "dd mm yyy",
So i tried replacing the textbox with a label, and found the label
instantly displayed the date in a "dd mm yyy" format.

The dishes are now doen with this topic.

Now where is that next problem going to come from ....

"Corey ...." wrote in message
...
Dim DOW As Variant
UserForm2 is a Form Calendar
If UserForm2.ActiveControl < Day(DOW) Then MsgBox "Not a Tuesday"
Ctm....