macro to change date

**daveyc18** · 04-12-2013, 10:53 AM

hello,

a macro that changes the date in , say, A1, but i want the date to be the PREVIOUS business day. so today is april 12, i press the macro so it shows april 11. Or say on Monday, April 15, when I press the button the date shows Friday, April 12.

Thanks!

**Sean Thomas** · 04-12-2013, 11:28 AM

Hi, try this

you might want to put some extra code in to make sure selection is no more than 1 cell

Please Login or Register  to view this content.

**daveyc18** · 04-12-2013, 11:35 AM

I get "run-time error '1004': application-defined or objected-defined error"

when i debug, "selection = ydate" is highlighted

**daveyc18** · 04-12-2013, 11:38 AM

I should also mention that it will adding one business day...but will be one business day before today, lol

so, for example, I open the file today...it shows "April 10"...and I want the date to change to April 11 (today is April 12, so one business day before)

format....MM/DD/YYYY

**Sean Thomas** · 04-12-2013, 12:05 PM

This works good for what you originally asked for

Please Login or Register  to view this content.

Make sure you have selected a cell before running macro.

the only way you can get the cell to contain todays date -1 when is to run another macro.
I would suggest placing one in this workbook module for workbook_open procedure

something like Sheet1.Range("A1"). value = today()

you cant use the worksheet function because the other macro will always overwrite it.