Macro as make a copy to a new sheet and rename it

[Navy36]

Hi
I looking for help with macro. I want a macro as make a knew sheet and rename it to current date and the knew sheet must make a copy of a master sheet.

Maybe my code is a good start?

Sub AddSheets_TodayDate()
Dim szTodayDate As String
szTodayDate = Format(Date, "mmm-dd-yyyy")
On Error GoTo MakeSheet
Sheets(szTodayDate).Activate
Exit Sub
MakeSheet:
Sheets.Add , Worksheets(Worksheets.Count)
ActiveSheet.Name = szTodayDate
End Sub

I need help

 

[Navy36]

How about

Sub Navy()
   Dim ShtName As String
  
   ShtName = Format(Date, "mmm-dd-yyyy")
   If Evaluate("isref('" & ShtName & "'!A1)") Then
      Sheets(ShtName).Activate
   Else
      Sheets("Master").Copy , Sheets(Sheets.Count)
      ActiveSheet.Name = ShtName
   End If
End Sub

Hi again
I've new question about this code..... Is't possible to rebuild this so when i run this macro it do the same but they rename the sheet to next week number or year and week (like this 2142) ?

 

[Fluff]

You can do that like

   ShtName = Format(Date, "yy") & DatePart("ww", Date + 7, vbMonday, vbFirstFourDays)

 

[Navy36]

You can do that like

   ShtName = Format(Date, "yy") & DatePart("ww", Date + 7, vbMonday, vbFirstFourDays)

You are awesome, big THANKS again

 

[Fluff]

Glad to help & thanks for the feedback.