Как изменить название активного листа в закрытой книге?

Sub SantaSpb()
'   устанавливаем название листа,
'   который появляется при открытии книги
 
Dim FSO, Fil, FolderPath
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'   папка с книгами:
FolderPath = "D:\VBA\_XXX\"
 
For Each Fil In FSO.getfolder(FolderPath).Files
    'Debug.Print Fil.Name
    '   отфильтровываем файлы с расширением ".xlsx":
    If Fil.Name Like "*" & ".xlsx" Then
        '   открываем книгу:
        Workbooks.Open (Fil)
        With ActiveWorkbook
            
            '   если делать активным первый лист книги:
            .Worksheets(1).Activate
            
            '   или если знаем название листа и такое же
            '   название находится во всех книгах в папке:
            '.Worksheets("Лист1").Activate
            
            Application.EnableEvents = False
                '   сохраняем:
                .Save
            Application.EnableEvents = True
            '   закрываем:
            .Close
        End With
    End If
Next
End Sub

Private WithEvents xlApp As Application
 
Private Sub Workbook_Open()
    Set xlApp = Application
End Sub
  
Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook)
    Wb.Worksheets(1).Activate
End Sub

ActiveWorkbook.ActiveSheet.Name

    If ActiveSheet.Name <> "1" Then        ' если активный лист неназывается как хотим, тогда ему название поменяем ActiveSheet.Name = "1"
    End If

' ПОПРАВКА
' если активный лист неназывается как хотим, тогда ему название поменяем 
If ActiveSheet.Name <> "1" Then        
    ActiveSheet.Name = "1"
End If

' ПОПРАВКА
' если активный лист неназывается как хотим, тогда ему название поменяем 
If ActiveSheet.Name <> "1" Then        
    ActiveSheet.Name = "1"
End If
В данном макросе? 
Sub SantaSpb()
'   устанавливаем название листа,
'   который появляется при открытии книги
 
Dim FSO, Fil, FolderPath
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'   папка с книгами:
FolderPath = "C:\Users\Desktop\TEST"
 
For Each Fil In FSO.getfolder(FolderPath).Files
    'Debug.Print Fil.Name
    '   отфильтровываем файлы с расширением ".xlsx":
    If Fil.Name Like "*" & ".xlsx" Then
        '   открываем книгу:
        Workbooks.Open (Fil)
        With ActiveWorkbook
            
            '   если делать активным первый лист книги:
            .Worksheets(3).Activate
            
            '   или если знаем название листа и такое же
            '   название находится во всех книгах в папке:
            '.Worksheets("Лист1").Activate
            If ActiveSheet.Name <> "1" Then
    ActiveSheet.Name = "1"
End If
 
            
            Application.EnableEvents = False
                '   сохраняем:
                .Save
            Application.EnableEvents = True
            '   закрываем:
            .Close
        End With
    End If
Next
End Sub