Rename a Sheet and Hide

[Guzzlr]

Hello All,
Basically I'm trying to make a summary sheet, with the current date, and then hide.
I have:

Set ECD = Sheets("ECD")
ECD.Select
    Range("A1:AI3000").Copy
    Sheets.Add After:=ECD
With ActiveSheet
.Paste
.Name = Format(Date, "DD-MM-YYYY")
ActiveWindow.SelectedSheets.Visible = False

End With

the code copying onto a new sheet, but it is not renaming it and not hiding it.
Can someone tell me what I'm doing wrong please.
Thanks

 

[mrshl9898]

Does the sheet already exist? I'm not seeing any errors unless the sheet exists.

You also don't need select.

Dim ECD As Worksheet

Set ECD = Sheets("ECD")
ECD.Range("A1:AI3000").Copy
    Sheets.Add After:=ECD
With ActiveSheet
.Paste
.Name = Format(Date, "DD-MM-YYYY")
ActiveWindow.SelectedSheets.Visible = False

End With

 

[Guzzlr]

Does the sheet already exist? I'm not seeing any errors unless the sheet exists.

You also don't need select.

Dim ECD As Worksheet

Set ECD = Sheets("ECD")
ECD.Range("A1:AI3000").Copy
    Sheets.Add After:=ECD
With ActiveSheet
.Paste
.Name = Format(Date, "DD-MM-YYYY")
ActiveWindow.SelectedSheets.Visible = False

End With

the sheet does not already exist, it is created before the code to hide. It is also not giving the date name.
Thanks for the help