Copy worksheet and rename sheet

[Ernst - EXE Graphics]

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

 

[Gary''s Student]

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

 

[John]

If I got you right! just do a "Save-As"
HTH
John

 

[Don Guillett]

OP said sheet

 

[John]

Thanks Don, I knew I needed more coffee this morning.
John