Inserting a consecutive date in multiple spreadsheets

[Mona S.]

Hello

I would like to add a consecutive date to each spreadsheet (approx 250), each spreadsheet would be the weekdays only for 2011.

eg.

Spreadsheet 1 - Jan 1
Spreadsheet 2 - Jan 2
.
.
.
Spreadsheet 250 - Dec 30

Can anyone help me?

Thank you.

 

[cjcobra]

You can use this code to name your tabs. Make a list of your tab names starting in Cell A1 down to A250.


Sub Macro1()
Dim G As Long
Dim R
Dim Q

Range("a1").Select
Q = [A1]

R = 250

For G = 1 To R
Sheets.Add
ActiveSheet.Select
ActiveSheet.Name = Q
Sheets("Sheet1").Select
ActiveCell.Offset(1, 0).Select
Q = ActiveCell.Value
Next G

End Sub

 

[Mona S.]

Thank you. I will try this!