If WorkbookIndex < 1000 And WorkbookIndex > 99 Then
    ' Namen des Index-Dokuments erstellen und speichern
    objWorkbook.SaveAs (ActiveWorkbook.Path & "\" & ActiveWorkbook.Name _
      & " Index 0" & WorkbookIndex & ".xlsm")
    ' Namen des Index-Dokuments merken
    objFileName = ActiveWorkbook.Name & " Index 000" & WorkbookIndex _
      & ".xlsm"
  End If
  If WorkbookIndex < 10000 And WorkbookIndex > 999 Then
    ' Namen des Index-Dokuments erstellen und speichern
    objWorkbook.SaveAs (ActiveWorkbook.Path & "\" & ActiveWorkbook.Name _
      & " Index " & WorkbookIndex & ".xlsm")
    ' Namen des Index-Dokuments merken
    objFileName = ActiveWorkbook.Name & " Index 000" & WorkbookIndex _
      & ".xlsm"
  End If
 
 
  ' Namen des aktiven Dokuments unter die letzte verwendete
  ' Zelle von "IndexCount" in Spalte "A" einfügen.
  ' Grund 1: Um den kommenden Index vorzumerken
  ' Grund 2: Um beim kommenden Speichern den Namen abzugleichen
  ' (sofern geändert tritt der obere Abschnitt in Kraft und löscht
  ' den Ihalt von Spalte "A", womit der Index auf 1 zurückgesetzt
  ' wird.)
  ActiveSheet.Cells(WorkbookIndex + 1, 1) = ActiveWorkbook.Name 
 
  If WorkbookIndex > 9999 Then
    ' Benachrichtigung, dass die Indexgrenze von 9.999
    ' überschritten wurde
    MsgBox "You have reached Index 10.000. Please set a new " _
      & "Name for your file.", vbCritical, "IT`S OVER 9999!!!"
  End If                                                                      
 
  ' Verstecken des Arbeitsblatt "IndexCount", sodass nur noch
  '  über VBA zugänglich ist um Manipulationen zu vermeiden
  Worksheets("IndexCount").Visible = xlVeryHidden
 
  ' Speichern des Aktiven Dokuments
  ActiveWorkbook.Save
 
  ' Rückmeldung unter welchem Namen das Index-Dokument gespeichert wurde
  MsgBox "Gespeichert unter dem Namen: " & objFileName, vbInformation, _
    "Gespeichert unter:"                                                        
 
  ' Meldungen aktivieren
  objExcel.DisplayAlerts = True
  objExcel.Quit
End Sub