[URL=#]?[/URL]       1            [URL=#]?[/URL]       1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19  20  21  22  23        Sub     NewNameSheets()      Dim     sPathFolder     As     String    , sBookName     As     String    , sThisName     As     String               With     Application: .ScreenUpdating =     False    : .DisplayAlerts =     False    :     End     With            sThisName = ThisWorkbook.Name          sPathFolder =   "путь к папке\"                   sBookName = Dir(sPathFolder &   "  *.xls*  "  )             Do   While   sBookName <>   "  "              If   sBookName <> sThisName   Then                  With   Workbooks.Open(Filename:=sPathFolder & sBookName)                      .Worksheets(1).Name =   "  Люди  "                      .Save: .Close                  End   With              End   If                          sBookName = Dir          Loop             With   Application: .ScreenUpdating =   True  : .DisplayAlerts =   True  :   End   With          MsgBox   "  OK  "  , 64,   "  "      End     Sub