Global list_number As Integer
Sub NextList()
MsgBox list_number
Dim n&, m&, s As Object
On Error Resume Next
For Each s In Sheets
  n = s.Name
  If n > m Then m = n
Next
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = m + 1
list_number = m + 1
End Sub
Sub Prettify()
With Worksheets(CStr(list_number))
    .Range("C1:H1").Merge
    .Range("C1:H1") = "Trimester"
    .Range("J1:O1").Merge
    .Range("J1:O1") = "Trimester"
    .Range("C2") = "Date"
    .Range("J2") = "Date"
    .Range("D2") = "Day"
    .Range("K2") = "Day"
    .Range("E2") = "Lesson"
    .Range("L2") = "Lesson"
    .Range("F2") = "HW"
    .Range("M2") = "HW"
    .Range("G2") = "Grade"
    .Range("N2") = "Grade"
    .Range("H2") = "Sign"
    .Range("O2") = "Sign"
    .Range("D3:D5").Merge
    .Range("D6:D8").Merge
    .Range("D9:D11").Merge
    .Range("D3:D5") = "Monday"
    .Range("D6:D8") = "Tuesday"
    .Range("D9:D11") = "Wednesday"

    .Range("D3:D5").Orientation = xlUpward
    .Range("D6:D8").Orientation = xlUpward
    .Range("D9:D11").Orientation = xlUpward
    .Range("K3:K5").Merge
    .Range("K6:K8").Merge
    .Range("K9:K11").Merge
    .Range("K3:K5") = "Thursday"
    .Range("K6:K8") = "Friday"
    .Range("K9:K11") = "Saturday"

    .Range("K3:K5").Orientation = xlUpward
    .Range("K6:K8").Orientation = xlUpward
    .Range("K9:K11").Orientation = xlUpward
    .Range("E3") = "ICT"
    .Range("E4") = "Maths"
    .Range("E5") = "CS"
    .Range("L3") = "ICT"
    .Range("L4") = "Maths"
    .Range("L5") = "CS"
End With
End Sub
Function get_month(day As Integer) As String
If day <= 30 Then
get_month = "Sep"
ElseIf day <= 61 Then
get_month = "Oct"
ElseIf day <= 92 Then
get_month = "Nov"
ElseIf day <= 123 Then
get_month = "Dec"
ElseIf day <= 154 Then
get_month = "Jan"
ElseIf day <= 183 Then
get_month = "Feb"
ElseIf day <= 214 Then
get_month = "Mar"
ElseIf day <= 244 Then
get_month = "Apr"
ElseIf day > 244 Then
get_month = "May"
End If
End Function
Function get_trem(day As Integer) As String
MsgBox get_month(day)
If get_month(day) = "Sep" Or get_month(day) = "Oct" Or get_month(day) = "Nov" Then get_trem = "I"
If get_month(day) = "Dec" Or get_month(day) = "Jan" Or get_month(day) = "Feb" Then get_trem = "II"
If get_month(day) = "Mar" Or get_month(day) = "Apr" Or get_month(day) = "May" Then get_trem = "III"


End Function

Sub G()
list_number = 1
Dim WeekDays() As Variant
Dim months(9)
Dim day As Integer
Dim trim As Integer
Dim month As Integer
Dim counter As Integer

Dim days(275) As Integer
day = 0
WeekDays = Array("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")
months(0) = 30
months(1) = 31
months(2) = 31
months(3) = 31
months(4) = 31
months(5) = 29
months(6) = 31
months(7) = 30
months(8) = 31
counter = 0
For month = 0 To 8
    For day = 1 To months(month)
     days(counter) = day
     counter = counter + 1
     Next day
Next month
For day = 1 To 5
    Call NextList
    Call Prettify
Next day



End Sub