Hilfe Makorfehler !!

Mit unten angeführten Makro kann ich mit jeweils ein neues
Arbeitsblatt anlegen lassen. Leider sind nur 14 Tabellen
möglich. Danach streickt das Makro.Brauche aber 30 Tabellen.

Sub NeuenTaganlegen()
'
'neues Tabellenblatt als Zwischenspeicher anlegen'
ws = InputBox("Welches Tag (Vortag) soll kopiert werden ?")
Dim X As New Worksheet
Sheets(ws).Copy Before:=Sheets(1)
ActiveSheet.Name = InputBox("Bitte aktuellen Tag eingeben !")

'
End Sub