indique fecha casilla

Buenas, ahí voy con otra duda. Hasta ahora cuando tenia que insertar calendarios, metia un calendario por boton con esta macro: Private Sub Calendar2_Click() Calendar2.Visible = False Range("f9").Value = Calendar2.Value End Sub ...