Then use cells clear the cells holding and not leap year
Select-Case construct
Calling procedures within a procedure
Create the Worksheets
Run the saved macro on 11 new worksheets.
Insert button from Form Controls which will run a public sub-procedure named AdjustCalendar
Within AdjustCalendar sub:
Particular cases should call Private Sub HasThirty
Another case should call Private Sub LeapYear
The variable should be used to determine if it is a leap year
If it is a leap year, then use Cells(R,C) to clear the cells holding 30 and 31.