VB needed to go to the closest 'Monday' date

[af25]

Hey all,

So I have this bit of code to scroll through dates using two shapes.

Please Login or Register  to view this content.

How would I go about changing these to look for the closest Monday? (forward and backwards)

Thanks in advance for your help.

[zbor]

Previous:

Please Login or Register  to view this content.

Next is same only +8 instead of +1

[af25]

Next works great!
However the previous doesn't change if the date is already on a Monday?

[zbor]

If you want to achieve that use:

Please Login or Register  to view this content.

[af25]

Spot on! That makes sense.

Thank you for your help.