Print incremental dates in a cell on each new sheet printed

I created a print button to ask for the date, then change the value of 2 cells and print, this works well. Now I want to ask for the number of worksheets to print and then add 7 days to the date for each new worksheet.


Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
Range("B1", "D1").Value = InputBox("Enter Date")
End If
End Sub

Put this code into yours and it should do the trick

Please Login or Register  to view this content.

Still receive error after entering

Please Login or Register  to view this content.

Thank You! This code works to advance the date ahead the 3 sheets I asked for, but it only prints one sheet with the very last date that it advanced to. How do I get it to print the other sheets as well?

I'm using a print button with this code entered:

Please Login or Register  to view this content.

and then this code added before print

Please Login or Register  to view this content.