Creating Multiple Workbooks Without Copying The Macro

For work I have to create copies of the same workbook for every day of the month. I have got the following to do it properly, which may not be the best way so I am open to suggestions, but I don't want it to save this macro in every workbook. There are however other macros that I do want it to take with it, just not this one.

Sub SaveByDate()
Dim a As Integer, b As Integer, c As Integer

' number of days in month + 1 (this is just a test; for Jan a = 32)
a = 6

' start date
b = 1

c = 0
For c = 1 To a
If c < a Then

MyMonth = "Jan"
MyDay = b
MyFileName = MyMonth & " " & MyDay & " 2008 daily report"
ActiveWorkbook.SaveAs Filename:=MyFileName
b = c + 1
End If
Next c
End Sub