Hi

Calendar1.Value = Date
In the first control

In the second
Calendar1.Value = DateSerial(Year(Date), Month(Date) + 1, Day(Date))

in the third
Calendar1.Value = DateSerial(Year(Date), Month(Date) + 2, Day(Date))



--
Regards Ron de Bruin
http://www.rondebruin.nl


"crew3407 " wrote in message ...
I have 3 object calendars. the first one is activated by a command
button, and then the 2nd is activated by selecting a date on the first
calendar, and so on. I would like for the 1st calendar when activated,
to start on the current date. then the 2nd calendar a month later.
and then the 3rd calendar a month later from the 2nd date. how do you
do this? thanks


---
Message posted from http://www.ExcelForum.com/