1: 2: 3: 4:
1: 2: 3:
Privata underWorkbook_SheetActivate (Sh ByVal som anmärker) Application.ThisWorkbook.Windows (1). Förse med text = Sh.Name Avsluta suben