help with macro to sequential dates across worksheets

[defender]

Hi All,

I need to a macro that will sequential date my worksheets with text and then a sequential number at the end.

i.e 06/01/18Page1, 07/01/18page2, 08/01/18Page3, 09/01/18Page4........

I probably be need to to end of year

Also, at the same time i need sheet2 from my workbook to be copied across to all the dates.

Can anyone help?

Thanks.

P.S VB novice here

 

[defender]

i'm not sure, i found this coding elsewhere

 

[Fluff]

Try

Sub MakeCopiesofSheet()
Dim wsSrc As Worksheet
Dim x As Long

Set wsSrc = Sheets("Sheet2")
With wsSrc
   x = Sheets(Sheets.Count) + 1
   .Copy After:=Sheets(x)
   ActiveSheet.Name = "Sheet" & x
End With
End Sub

This will number the sheet based on the total number of sheets in the workbook