How can I copy and paste multiple sheets at once while keeping my row/column formatting?

kvhpkh 

Try this version:

Sub CreateSheets()
    Dim y As Long
    Dim w As Long
    Dim d As Date
    Dim i As Long
    Dim s As Worksheet
    y = InputBox(Prompt:="Enter the year", Default:=Year(Date) + 1)
    w = Weekday(DateSerial(y, 1, 1), vbSaturday)
    d = DateSerial(y, 1, 1) + 14 - w
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For i = Worksheets.Count To 2 Step -1
        Worksheets(i).Delete
    Next i
    Set s = Worksheets(1)
    For i = 1 To 25
        s.Copy After:=Worksheets(Worksheets.Count)
        Worksheets(Worksheets.Count).Name = Format(d + 14 * i, "mmm d")
    Next i
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub