How to uncheck checkboxes with Date Macro

I am new to VBA and this Forum. I am trying to create a bit of a tricky Excel Spreadsheet. I currently have a spreadsheet that records our battery recharging information(Crate #, Date last charged, Date for Recharge). This spreadsheet currently has a Macro that when opened sends an email to certain employees as to which crate requires charging. I would like to change it so that instead of manually entering the dates you check a checkbox and the next date automatically comes up. That part is easy. The difficult part is getting the checkbox to uncheck when the date for recharge passes. The code below unchecks the checkboxes but how do I modify it to uncheck when date is less than today?

Please Login or Register  to view this content.

Any help would be appreciated!

Thanks,

Ash

Hello Ash,

Welcome to the Forum!

Your post title should convey a brief description of what you need help with. Please do not use general words and phrases like "Help!", "Code doesn't work", "Urgent!", "Should be an easy question", "Is this possible?", etc. Your present title doesn't tell anyone what your question is or what type of problems you are experiencing.
A better title would be "How to uncheck a CheckBox after a certain date ".

To make your posts easier to read, copy, and edit please wrap your code. I did it for you this time. Here is how you can do it next time.

How to wrap your Code using the # icon
1. Select all your code using the mouse.
2. Click on the # icon on the toolbar in the Message window. This will automatically wrap the text you selected with the proper Code tags to create a Code Window in your post.

To manually wrap your code, use these Bulletin Board Code Tags
[code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] at the end of the last line.

As a new member, please take the time to read over the Forum Rules .

... how do I modify it to uncheck when date is less than today?

When what date is less than today? If it's in some cell adjacent to the checkbox, we'd need to see the layout. And if that's true, a Forms checkbox is overkill; you could just use Marlett checkboxes, which are on the same layer as the cells.

There's no checkboxes, Ashnette. Want to back up a step and explain?

In the workbook you just posted, delete the checkboxes, and change the font in col A to Marlett. Then insert a formula in A1 and copy down:

=IF(TODAY() >= E1, "a", "")

Well done, Ashnette.