"Sequential dates across tabs"

All,

How does a person label tabs with the days of the month (Sept 1, 2014-Sept 30,2014) with out typing them one at a time?

Not sure how to incert the code, I mean, i created a module and inputted the code, but now what?
thanks

Got it!

I was sent this by a co-worker

Sub SeqTab()
strtno = Val(InputBox("what is the starting number", Default:=1500))
For i = 0 To 31
Sheets(i + 1).Name = "Nov_" & strtno + i
Next i
End Sub