Adler, gracias por el ejemplo, pero he de hacerlo con el que he puesto yo. He estado mirando otros códigos de calendarios, y veo que para hacer que empieze por lunes en vez de dominog, y que los días del mes aparezcan correctamante hay que añadir un -2 para hacer que los números del mes se retrasen una posición. Algo así:
Cita: FirstDayOfMonth = WeekDay(DateSerial(MyYear, MyMonth, 1)) -2
Pero no consigo aplicarlo a mi calendario. A ver si me podeis ayudar.