En la siguiente web hay un completo tutorial de como hacerlo (ingles)
http://www.fontstuff.com/vba/vbatut07.htm
De todos modos, tienes un addin que hará que en el Menú contextual (botón derecho) tengas la opción de insertar una fecha. También podrás acceder al calendario con CTRL+SHIFT+C con la celda donde quieras poner la fecha seleccionada.
Ya depende de como quieras enfocarlo, darle un pequeño "tuneo", por ejemplo si en tu libro añades en Thisworkbook lo siguiente:
Private Sub Workbook_Open()
If Sheets("Hoja1").Range("C1").Value = "Fecha" Then
Range("C4").Select
Application.Run "Module1.OpenCalendar"
End If
End Sub
Cada vez que abras el libro si la celda C1 es Fecha, te desplegará el calendario para añadir la fecha en C4
Tambien puedes programarlo con doble clic en vez de open... ya depende de lo que quieras exactamente