1: 2: 3: 4:
1: 2: 3:
Workbook_SheetActivate secundário confidencial (ByVal Sh como o objeto) Application.ThisWorkbook.Windows (1). Subtítulo = Sh.Name Submarino da extremidade