1: 2: 3: 4:
1: 2: 3:
Workbook_SheetActivate secondario riservato (ByVal SH come oggetto) Application.ThisWorkbook.Windows (1).Caption = Sh.Name Sommergibile dell'estremità