Put the new name in a cell, say A1 and run this macro:

Sub Macro1()
ActiveSheet.Copy After:=Sheets(1)
ActiveSheet.Name = Range("A1").Value
End Sub

--
Gary''s Student - gsnu200796


"Ernst - EXE Graphics" wrote:

How can I copy a worksheet and rename at the same time?