1: 2: 3: 4:
1: 2: 3:
Workbook_SheetActivate secundario privado (ByVal Sh como objeto) Application.ThisWorkbook.Windows (1).Caption = Sh.Name Submarino del extremo