Copy worksheet and rename sheet

  • Thread starter Thread starter Ernst - EXE Graphics
  • Start date Start date
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top