Quote Originally Posted by VBClassicRocks View Post
Perhaps something like
Private Sub DTPicker1_Change()
Calendar1.Value = DTPicker1.Value
End Sub
Thanks allot men. I just couldn't figure it out yet it was that simple