Copy and paste Master 31 times

[callen12]

I have a master spreadsheet what i would like to do is once all the changes have been made that i can copy the master to new tabs and label them 1 through 31 (depending on the days of the Month)

Thanks

 

[JoeMo]

Try this:

Sub CopyMaster()
Dim mSht As Worksheet
Const numShts As Integer = 31  'Change number to suit

Set mSht = Sheets("Master")  'Change sheet name to suit
With mSht
    For i = 1 To numShts
        .Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = i
    Next i
End With
End Sub

 

[callen12]

It returns "Variable not defined"

 

[callen12]

ya umm duh!

dim i as integer.


Thanks so much for your help! Obviously i needed it. haha.