Creating 5 year Monthly Budget - need sequential dates formula/function/vba

Let's start with this.

Sub RenameSheets()
    Dim c As Range
    Dim J As Integer

    J = 0
    For Each c In Range("C2:C61")
        J = J + 1
        With Sheets(J)
            If .Name = "Control" Then J = J + 1
            .Name = c.Text
            .Range("B3") = Format(c.Value, "dd-mmm-yyyy")
        End With
    Next c
End Sub