Private Sub CommandButton8_Click()
Dim WB As Workbook
Dim strFName As String
Dim Datei As String
Dim Arbeitsmappe As String
Dim PFAD As String
PFAD = "C:\Users\sde\Desktop\TelefonService Test\"
Datei = Dir(PFAD & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While Datei <> ""
Application.Workbooks.Open Datei
Worksheets.Add After:=Worksheets(Worksheets.Count)
With Worksheets(Worksheets.Count)
.Name = Format(Date, "mmmm" & " " & "yyyy")
End With
ActiveWorkbook.Close True
Datei = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub