Private Sub Calendar1_Click()
Selection = Calendar1.Value
Unload Me
End Sub
Private Sub CommandButton1_Click()
Calendar1.Value = Date
Selection = Calendar1.Value
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
If IsDate(ActiveCell.Value) Then
Calendar1.Value = DateValue(ActiveCell.Value)
Else
Calendar1.Value = Date
End If
End Sub