Copy Sheet & Rename

[erock24]

I want to copy a sheet to the end and give it a new name. The following code will copy the sheet but errors out before it names it saying object required.

Sheets("copySheet").Copy(After:=Worksheets(Worksheets.Count)).Name = shtName & "svd"

 

[kpark91]

So is the data pasted onto the worksheet?

You might need to name it separately or create a worksheet before copying

 

[AlphaFrog]

Try something like this...

Sheets("copySheet").Copy After:=Worksheets(Worksheets.Count)
Sheets(Worksheets.Count).Name = shtName & "svd"