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

 

[My Aswer Is This]

So you want to make a copy of the sheet named ??
And name the new sheet ??

 

[Navy36]

So you want to make a copy of the sheet named

I want the knew sheet should be a copy from a another sheet. It should be a daily document and every new day it should be a copy from a master sheet, but if it same date as before nothing should happen

 

[My Aswer Is This]

Try this:

Sub Copy_Sheet()
'Modified 10/9/2021  7:22:55 AM  EDT
Application.ScreenUpdating = False
Sheets("Master").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Bravo" & Format(Date, "mmm-dd-yyyy")
Application.ScreenUpdating = True
End Sub

 

[Navy36]

Try this:

Sub Copy_Sheet()
'Modified 10/9/2021  7:22:55 AM  EDT
Application.ScreenUpdating = False
Sheets("Master").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Bravo" & Format(Date, "mmm-dd-yyyy")
Application.ScreenUpdating = True
End Sub

I have tried a lot of codes... Your code works great, but if i run the macro to times it going to be error. Do you think if it is running same date nothing wont to happen? or it only open the sheet we already have maked?

 

[My Aswer Is This]

Try this:

Sub Copy_Sheet()
'Modified 10/9/2021  7:37:45 AM  EDT
Application.ScreenUpdating = False
On Error GoTo M
Sheets("Master").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Bravo" & Format(Date, "mmm-dd-yyyy")
Exit Sub
M:
MsgBox "That sheet already exist"
ActiveSheet.Delete
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

You still have never told me the name of the sheet you want copied and how you want the new sheet named I guess this is what you want:

Sub Copy_Sheet()
'Modified 10/9/2021  7:37:45 AM  EDT
Application.ScreenUpdating = False
On Error GoTo M
Sheets("Master").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Master" & Format(Date, "mmm-dd-yyyy")
Exit Sub
M:
MsgBox "That sheet already exist"
ActiveSheet.Delete
Application.ScreenUpdating = True
End Sub

 

[Navy36]

it is better but on error i want it goto the current date sheet and no messeges boxes

 

[My Aswer Is This]

I can do no more for you when your not giving me the information I'm asking for.
Like what is the name of the sheet your copying.

And how am I suppose to know what the current date sheet is?
Is the current date sheet the one your copying?

 

[My Aswer Is This]

So since you have a script already what is wrong with your script?