calendario pandreap corre un dia de la semana

Hola amigos en especial MacroAntonio miren ya adapte este calendario a mi ya famoso formato de Todofiesta cosolea y si funciona pero el unico errorsito que me da es la fecha de un dia antes por ejemplo hoy es viernes 17 de agosto de 2012 y en el calendario a la hora de llamarlo aparece viernes 18 de agosto de2012. espero alguien me pueda ayudar.saludos

- - - - - Mensaje combinado - - - - -

Private Sub LlenarCalendario(fecha)If Saltar = True Then Exit Sub

ifecha = fecha - Weekday(fecha, vbMonday) + 1

ffecha = ifecha + 41

aqui esta el mal, hay que quitar el +1 en esta parte de la macro (ifecha = fecha - Weekday(fecha, vbMonday) + 1). gracias saludos tema resuelto