

' Prepare a3:g7 for dates with left/top alignment, size, height ' Prepare a2:g2 for day of week labels with centering, size, HorizontalAlignment = xlCenterAcrossSelection ' Center the Month and Year label across a1:g1 with appropriate ' Prepare cell for Month and Year as fully spelled out. StartDay = DateValue(Month(StartDay) & "/1/" & _ ' - if so, reset StartDay to first day of month. ' Check if valid date but not the first of the month ' Get the date value of the beginning of inputted month. ' Allow user to end macro with Cancel in InputBox. MyInput = InputBox("Type in Month and year for Calendar ") ' Use InputBox to get desired month and year and set variable ' Clear area a1:g14 including any previous calendar. ' Prevent screen flashing while drawing calendar. ' Unprotect sheet if had previous calendar to prevent error.ĪctiveSheet.Protect DrawingObjects:=False, Contents:=False, _ Sample Visual Basic procedure Sub CalendarMaker() In Excel 2010, the option is available on the Customize Ribbon menu. In Excel 2007, the option is available on the Popular menu. If the Developer ribbon is not visible, open Excel Options to enable it.


This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. Microsoft provides programming examples for illustration only, without warranty either expressed or implied.
