السلام عليكم
اليك مثالين
اعدل كما تريد
قم بزياده عدد الاوراق من الكود الى اكثر من 20 حسب الطلب
x = 1 / 1 / 2008
For i = 1 To 20
Application.Worksheets.Add
ActiveSheet.Name = Format(x, "mm-dd-yy")
x = x + 1
Next i
For i = 1 To 20
Application.Worksheets.Add
ActiveSheet.Name = i
Next i
add_sheets.rar