Try the below..

Sub Macro1()
Dim dtTemp As Date
dtTemp = Range("G7")
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Format(DateAdd("d", 7, dtTemp), "dd-mm-yyyy")
Range("G7") = dtTemp + 7
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"aussiegirlone" wrote:

I have a Master Workbook which I want to be able to create copies of as a
Weekly Workbook based on the initial date in cell G7 of the index page which
is the start-up page. Then having the copies automatically renamed as the
following weeks date
if this is possible does anyone have such a code