
Private Sub Calendar1_Click()
Sheets(1).[A1] = Calendar1.Value
End Sub
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ActiveSheet.Shapes("calendar1").Visible = False
Else
ActiveSheet.Shapes("calendar1").Visible = True
End If
End Sub
|
