Kod:
Sub AyEkle()
Dim byt As Byte
ay = Application.InputBox("Hangi ay için çalışma sayfası açılacak?", "Ay rakam olarak yazılnmalıdır.", 5, , , , , 1)
yil = Application.InputBox("Hangi yıl için çalışma sayfası açılacak?", "Yıl rakam olarak yazılnmalıdır.", Year(Now), , , , , 1)
For byt = 1 To Day(CDate(("01." & ay + 1 & "." & yil)) - 1)
Worksheets.Add(After:=Sheets(Sheets.Count)).Name = CDate(byt & "." & ay & "." & yil)
Next byt
End Sub