Un solo calendario que indique la fecha en la casilla seleccionada

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

de manera que pulsandolo, se abre el calendario 2, seleeciono la fecha
y se introduce en la celda que quiero.

El problema es que me gustaria poder asignar fechas a un monton de
celdas y con tanto calendario es un follon y pesa un monton.

¿Hay alguna manera de hacer que todos los botones llamen a un solo
calendario que me introduzca la fecha en la casilla que este
seleccionada?

GRACIAS