Changed to this. Solved the problem.

Private Sub Cont_Click()
Nmth.Hide


Dim CurSheet As String
CurSheet = Format(Date, "MMMM-YY")
Sheets(CurSheet).Select
If ActiveSheet.Name = Format(Date, "MMMM-YY") Then
Rename.Show
Else
Sheets("Empty").Copy Before:=Sheets(1)
ActiveSheet.Name = Format(Date, "MMMM-YY")
Cells(45, "A") = Format(Date, "MMMM")
Dim i As Integer
Dim counter As Integer
Dim days As Integer
days = Cells(44, "A")
counter = 0
i = 1
Cells(1, "D").Select
Do While counter < Cells(44, "A").Value
ActiveCell.Value = Cells(45, "A").Value & i
ActiveCell.Offset(0, 1).Select
counter = counter + 1
i = i + 1
Loop
End If
End Sub