Create a calendar in a range of cells

[Ricker090]

I'm creating a virutal calendar using VBA and putting the dates into a range of cells. I've written a macro that starts off alright but it won't end the loop on the last day of the month. BTW, I know that I can create a userform that would perform these functions for me, but (as strange as it sounds) I'm doing this for fun. I've written the code myself, but can't figure out what I'm doing wrong.

I've attached a sample sheet.

Please Login or Register  to view this content.

... and as always, any tips for how I can write the code more efficiently is appreciated. I'm open to all forms of constructive criticism. It helps me write more robust macros.

[Ricker090]

Nevermind, I solved it by changing the formula in cell B1 to show the last day of the month as a date instead of the "day" and corrected the last if statement accordingly.

In case anyone was interested, here's the new code:

Please Login or Register  to view this content.

Additionally, if anyone has any suggestions on how I may improve upon this code please feel free to post a response.