Try changing:

..Range("D1").EntireColumn.Delete
to
..Range("D1").EntireColumn.hidden = true

cornman wrote:

Sorry, what I needed to say was hide the old column. I need to keep the
older information, so I have columns on the left that are not in the print
range, then columns that are in the print range, and among them some hidden
columns. I want to be able to print 7 consecutive days. The columns to the
right, out of the print range, have consecutive dates in them, so that cells
in the columns can remind about about future events.
THanks

"cornman" wrote:

I would like to have a macro to print a daily activity sheet. The macro
needs to delete the column that is seven days old, then reset the print range
to include an additional day(today). The print range includes several
columns on the left that are printed each time.

--

Dave Peterson