Saving a workbook for each day of the month

[baldi]

ChDir "S:\Table Games\Pit Managers\TG FV SUNRISE\HEADCOUNT"
ActiveWorkbook.SaveAs Filename:= _
"S:\Table Games\Pit Managers\TG FV SUNRISE\HEADCOUNT\11.01.11.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False

I'am using this macro to create a workbook for each day of the month and then the year. How do I make it simple. Right now I have 30 to 31 of these in a macro. Is there a way i can put it into one.

 

[GTO]

You should be able to loop it, but I have a question: Do you really want the code to go with the new workbooks? For instance, you may want the code to run against a template workbook.

 

[baldi]

You should be able to loop it, but I have a question: Do you really want the code to go with the new workbooks? For instance, you may want the code to run against a template workbook.

i don't understand what you mean "you may want the code to run against a template workbook"
we start fresh with the same workbook each day. Right now i have the code in the marco 30 times. I want to know if there is a simpler way of writing it
thanks for the reply

 

[GTO]

i don't understand what you mean "you may want the code to run against a template workbook"
we start fresh with the same workbook each day. Right now i have the code in the marco 30 times. I want to know if there is a simpler way of writing it
thanks for the reply

Are you saying that you open the same base workbook and SaveAs the wb based upon the current date?

 

[baldi]

Are you saying that you open the same base workbook and SaveAs the wb based upon the current date?

Yes
we run the macro a couple of day before so we have them