I would change or remove this line:
VBA Date works the same as the TODAY() function, meaning it reads the current date/time per your current system/region settings in the OS.
The way you structured the code, you are specifying the Date to be whatever value is clicked in the calendar, which may be different from the current system date. Although, it's not clear to me how this could affect settings in the OS (if at all).
If your intention is for the calendar to have the current date selected, then
You can shorten the code in the button_click event to this. There is no need to activate the sheets in order to place a value into a cell or use for the With statements.
Bookmarks