问在VBA中:创建工作表而不激活它

EN

Sub Test()
    Dim ws As Worksheet, sh As Worksheet
    
    Rem Store The Active Sheet Into The Variable [ws] To Activate Later
    Set ws = ActiveSheet
    
    Rem Copy Your Worksheet And The New Worksheet Will Be Active
    ActiveWorkbook.Sheets("XXX").Copy After:=ActiveWorkbook.Sheets("YYY")
    
    Rem You Can Set Another Variable For The New Active Sheet
    Set sh = ActiveSheet
    
    Rem Rename The New Copied Worksheet With Any Name You Desire
    sh.Name = "New Copy"
    
    Rem Finally Activate The First Worksheet Which Was Active
    ws.Activate
End Sub