Format multiple Excel sheet names

[travelinaddy]

Hello! I've been trying to figure out how to rename multiple sheet names for all of today.... I've never done Macros or anything like that before and I've been trying to but nothing is working the way I want to. I'm in charge of creating schedules for work and each day is a different sheet and we go by 3 month groups (work days not whole weeks) There must be a way that i can get each sheet to say Oct 1, Oct 2, Oct 3...... through December 31st, or even later if possible. without going in and adding a new sheet and renaming it 90 times I know there's been lots of questions asked around this topic, but I'm not even sure of how to search for what I'm asking.... Please help?!

 

[Fluff]

Hi & welcome to MrExcel
How about

Sub ShtNames()
   Dim d As Variant, i As Long
   d = InputBox("Please enter start date like dd/mm/yyyy")
   If d = "" Then Exit Sub
   d = CDate(d)
   For i = CLng(d) To CLng(Application.EoMonth(d, 2))
      If Weekday(i, 2) < 6 Then Sheets.Add(, Sheets(Sheets.Count)).name = format(CDate(i), "mmm d")
   Next i
End Sub