Active X Calendar date in specific cell

[tedc]

I have placed the active X calendar on a sheet and need tho have a selected date displayed in cell C14.
Could some kind coder tell me the appropriate code.

Thanks
Ted Cullen

 

[dk]

Hello Ted,

Assuming that your calendar control is called Calendar1 this code should do the trick:-

Private Sub Calendar1_Click()
Me.Range("C14") = Me.Calendar1.Value
End Sub

 

[tedc]

Thanks Dan
Works like a charm
Ted