For Loop + Date

[jhensler01]

Hello all,

I have a workbook that I will be storing each sheet as a date, however i convert the date to 7-21-11 since I can not use / inthe name of the sheet. Then I covert it back to a date and using the code below it will not pickup the if statement.

My goal is to delete a worksheet if it is X amount of days old.

Please Login or Register  to view this content.

[Mordred]

Hi jhensler01 and welcome to the forum. Please take a moment to read the forum rules located here and wrap your code with code tags as per Rule #3. Once you do that, someone will be able to help you.

[jhensler01]

Thank you! I will look them over.

[tigeravatar]

jhensler01,

Give the following a try. The Sub calls the Function 'isOld' to check if the worksheet name is a date and if that date is older than the DaysToKeep. If the function returns True, then the worksheet gets deleted, otherwise the macro moves to the next sheet until all sheets have been checked

Please Login or Register  to view this content.

Hope that helps,
~tigeravatar

[jhensler01]

---edit--
sorry your code did work for this.. thank you


Thanks for the help though!
Jason