Excel総合相談所 91

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ

一枚の基本シートを１ヶ月分31枚コピーするマクロでこんな感じのを見つけました。
で、シートのB5に1日用シートなら１、10日用シートなら10と、
コピーするついでに数字を入れるように改造して頂けないでしょうか

Sub copysheet()
Dim i As Integer

i = 1
Worksheets(i).Name = i & "日"

Do

Worksheets(1).Copy After:=Worksheets(i)
i = i + 1
Worksheets(i).Name = i & "日"
Loop While i < 31
End Sub