Im making a daily procedures list in excel but need to print it off a month in advance to go around the work place. I want the date at the top but dont want to type it in everytime then hit print. Is their a way similiar to a mail merge in Word where you can hit merge to printer and print a month in advance so the date comes out automatically? thanks for anyone that can help

I'm not sure what you are trying to do. Do you want a cell that will always show a date that is one month from the current date? Look up EDATE() in Excel help. =EDATE(TODAY(),1)

Yes you can do this with a macro. You'll have to change the sheet name (anywhere it says "Sheet1"), and the range (anywhere it says "A1") where you have the date inputted. Also I don't know if you need it or not, but I've set this to only print out weekdays (Mon-Fri) assuming you're using the standard 1900 windows date system. If you don't want it to do this (i.e. you want a printout for every day, including Saturdays and Sundays), you need to remove the lines I've put 'OPTIONALLY REMOVE at the end of. To enter a macro, you need to press ALT-F11 in your spreadsheet, which brings up the VBA editor. Then go to Insert/Module and copy paste the code below. To run the macro, from a spreadsheet press ALT-F8, highlight "plusdate" and click "Run". Sub plusdate() Sheet1.PrintOut For i = 1 To 31 Worksheets("Sheet1").Range("A1").Formula = Worksheets("Sheet1").Range("A1").Value + 1 If Worksheets("Sheet1").Cells(1, 1).Value Mod 7 > 1 Then 'OPTIONALLY REMOVE Worksheets("Sheet1").PrintOut End If 'OPTIONALLY REMOVE Next i End Sub

oops you need to change the bit that says Cells(1,1) to Range("A1") as well. Full code: Sub plusdate() Sheet1.PrintOut For i = 1 To 31 Worksheets("Sheet1").Range("A1").Formula = Worksheets("Sheet1").Range("A1").Value + 1 If Worksheets("Sheet1").Range("A1").Value Mod 7 > 1 Then 'OPTIONALLY REMOVE Worksheets("Sheet1").PrintOut End If 'OPTIONALLY REMOVE Next i End Sub