putting dates on multiple sheets

[ramona]

We are using Excel 2003. I have a workbook for each month so that each sheet
is a different day. These sheets need to be dated. I know that I can enter
the following formula on each sheet so that only the first sheet needs to be
manually dated. For Sheet2 =Sheet1!A1+1; for Sheet3 =Sheet1!A1+2 OR
=Sheet2!A1+1; etc. Is there some way this can be done without having to go
back to each previous sheet or keying in this entire formula? I guess I'm
looking for a simple copy that won't make me have to go back to previous
sheets. I know we will only have to make one workbook (template) but there
will be other times this could be very handy.

Thanks in advance. I love this site!!!

 

[Gary''s Student]

This little macro will setup all your sheets:

Sub sheetdater()
For i = 2 To Sheets.Count
Sheets(i).Range("A1").Formula = "=Sheet" & i - 1 & "!A1+1"
Next
End Sub

 

[ramona]

Thanks, Gary"s Student. It took me a little bit to figure out this macro
since I've not created one before, but this will do nicely. Thank you again
for your time.

 

[Gary''s Student]

If you experience any problems, update this post.