|This code will add a sheet for every Monday - Friday in 2010.|
It will write data into Sheet1 Columns A & B, so make sure you add a new sheet (or at least columns) so that you don't lose any data.
After the new sheets are created, you can delete any extra sheets from the beginning of the workbook.
As always, this code should be tested in a backup copy of your workbook.
P.S. This could all be done without writing data to a worksheet, but it worked as visual check, so I just left it in. For a one time workbook creation, it's fine.
Dim dateRow, myDate, myDay, newSht
'Initialize dateRow Variable
dateRow = 1
'Loop to put Dates and Days in Columns A & B
'(40179 = 1/1/2010)
For myDate = 40179 To 40179 + 365
myDay = WeekdayName(Weekday(myDate))
If myDay = "Sunday" Or myDay = "Saturday" _
Then GoTo WeekEndDay
dateRow = dateRow + 1
'Populate cells (the weekday names aren't used
'other than for a "visual" check
Sheets(1).Cells(dateRow, 1) = myDate
Sheets(1).Cells(dateRow, 2) = myDay
'Loop to Add sheets and Rename them
For newSht = 2 To dateRow
'Rename them based on Dates in Column A
'Format = mm-dd-yyyy
ActiveSheet.Name = _
Month(Sheets(1).Cells(newSht, 1)) & _
"-" & Day(Sheets(1).Cells(newSht, 1)) & _
"-" & Year(Sheets(1).Cells(newSht, 1))