1: 2: 3: 4:
1: 2: 3:
Приватное Sub Workbook_SheetActivate (ByVal Sh как предмет) Application.ThisWorkbook.Windows (1).Caption = Sh.Name Подводная лодка конца