Solved: Get selected Date

[justdriving]

On opening this workbook, how can I select any date and pass on the selected value from Userform to a variable DateTaken using VBA. Please help.

[Bob Phillips]

Add this to the form



Private Sub Calendar1_Click()
DateTaken = Calendar1.Value
End Sub


and in the module use



Public DateTaken As Date

Sub Calen11()
With Calendar2011

.Show
MsgBox DateTaken
End With
End Sub