Naming the created worksheet?

[VBA]ActiveWorkbook.Sheets("Sheet3").Copy Before:=Worksheets(Worksheets.Count)[/VBA]
How do I assign a name to the copied sheet?

Code:

---

ActiveSheet.Name = "The name of sheet"

---