.
And you might find these interesting as well (although I think you might already know them)...
Originally Posted by
Trebor76
intMonth = Evaluate("VLOOKUP(A1,{""January"",1;""February"",2;""March"",3;""April"",4;""May"",5;""June"",6;""July"",7;""August"",8;""September"",9;""October"",10;""November"",11;""December"",12},2,0)")
Much shorter...
intMonth = [MONTH(A1&1)]
Originally Posted by
Trebor76
intMonthDays = Day(DateSerial(Year(Now()), intMonth + 1, 1) - 1)
A smidgeon shorter...
intMonthDays = Day(DateSerial(Year(Now), intMonth + 1, 0))
By the way, your macro can be replaced with this shorter one (where I have chosen to output the day name instead of the day number in Column C)...
Bookmarks