Sub Make_Copies_Of_Sheet()
'Modified 7/13/2022 9:30:52 PM EDT
Application.ScreenUpdating = False
Dim i As Long
Dim x As Long
x = 0
Dim ans As Long
Dim y As String
y = Format(Date, "YYYY")
Dim M As String
M = Format(Date, "MMMM")
Dim D As String
D = Format(Date, "M")
ans = InputBox("Enter Month Number", M, D)
Select Case ans
Case 9, 4, 6, 11: x = 30
For i = 1 To x
Sheets("TEMPLATE").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ans & "." & i & "." & y & "." & "MD"
Sheets("TEMPLATE").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ans & "." & i & "." & y & "." & "FE"
Next
Case 1, 3, 5, 7, 8, 10, 12: x = 31
For i = 1 To x
Sheets("TEMPLATE").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ans & "." & i & "." & y & "." & "MD"
Sheets("TEMPLATE").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ans & "." & i & "." & y & "." & "FE"
Next
Case 2: x = 29
For i = 1 To x
Sheets("TEMPLATE").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ans & "." & i & "." & y & "." & "MD"
Sheets("TEMPLATE").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ans & "." & i & "." & y & "." & "FE"
Next
End Select
Application.ScreenUpdating = True
End Sub