Check DateDiff on Each Worksheet

[borasko34]

Hello everyone, I am attempting to create a macro that will check each worksheet in a workbook to see if the expire date in field B2 is less than 30 days away. The problem that I am having is the with each worksheet section. If any of the worksheets are within 30 days, it activates every single worksheet in the entire workbook and gives the MsgBox, instead of just activating the one(s) that are within 30 days. Thanks for any help you can provide and if you need more information, just let me know!

Please Login or Register  to view this content.

[Jakobshavn]

Consider:

Please Login or Register  to view this content.

[borasko34]

Thanks Jak, I never thought to move DateDiff into For Each! Had to change it up a little because I was getting a type mismatch error on ws.Range("B2") but here is the code that ended up working for me:

Please Login or Register  to view this content.

[Jakobshavn]

Good Job! ........................................