Auto Calendars in VBA
 

Need to create a monthly schedule for work.To enter the dates (Numbers) into
every other cell this is what I have so far

Activecell.Select
Activecell.Offset(0,2)=Activecell+1

I'm wondering is there an easier way to do this.Right now I have one module
for the Year 2006 with sub's for each month.These will get called when form
dropdown list show's that month.
if frmMonth.cboMonth.Value="January" & frmMonth.cboYear.value="2006" then
Call Year2006.Jan06
end if

Is there an easier way to determine the today's date then creating Next
month's calendar??
hope this is some what clear

Thanks for any and all response in advance