Code für die ganze Arbeitsmappe

'Code fuer die Arbeitsmappe

Option Explicit

Private Sub Workbook_NewSheet(ByVal Sh As Object)
  RemoveSheetName Me, Sh
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  AddSheetName Me, Sh
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
  RemoveSheetName Me, Sh
End Sub