VBA 형식으로 시트 복사

Question

워크 시트를 복사하고 이름을 바꾸려면 다음 코드를 실행 중이지만 어떤 이유로 인해 이름이 바뀌지 않습니다. 어떤 아이디어?

미리 감사드립니다.

하위 복사()

Sheets("TV Indicators").Copy After:=Sheets(Sheets.Count) 
Sheets(Sheets.Count).Cells.Copy 
Sheets(Sheets.Count).Cells.PasteSpecial xlPasteValues 
Sheets(Sheets.Count).Name = Sheets("TV Indicators").Range("A3").Value 

최종 하위

Answer 1

이 시도 :

Sub copier() 

    Sheets("TV Indicators").Copy After:=Sheets(Sheets.Count) 
    With ActiveSheet 
     .Cells.Copy 
     .Cells.PasteSpecial xlPasteValues 
     .Name = Sheets("TV Indicators").Range("A3").Value 
    End With 
    Application.cutcopymode = false 
    range("A1").Select 

End Sub 

괜찮아인가요?