Automating create copy of current tab with date

[JumboCactuar]

Hi,
i have a current tab with mondays date in cell A1 like 13/08/18 and the tab is named 13.08.18

how can i with VBA, create a copy into new tabs for every week in the year (or a specified amount)

i.e next tab will have 20/08/2018 with tab name 20.08.18

thanks for any help

 

[My Aswer Is This]

If you wanted to keep adding more sheets at a later time. And all your sheets had dates for sheet names you could use this script. It looks at the last sheet in the workbook and uses it's date name as a starting point to add more sheet names giving them a date 7 days greater then the last sheets name.

Sub Sheet_Copy()
'Modified  8/15/2018  10:55:32 PM  EDT
Application.ScreenUpdating = False
Dim ans As Variant
Dim sn As String
sn = Sheets(Sheets.Count).Name
ans = InputBox("Make how many copies")
If ans = "" Then MsgBox "You did not enter a number": Exit Sub
    For i = 1 To ans
        Sheets(sn).Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = Format(DateAdd("d", i * 7, sn), "DD-MM-YYYY")
    Next
Application.ScreenUpdating = True
End Sub