Tabellenblatt speichern

Private Sub CommandButton69_Click()
Dim Dateiname As String
Dim Pfad As String
Dim Dname As String
Dim FolderPDF As String, File_PDF As String
Pfad = ActiveWorkbook.Path & Application.PathSeparator & "_15_Backup"
If Dir(Pfad, vbDirectory) = "" Then
VBA.MkDir Pfad
End If
Pfad = Pfad & Application.PathSeparator
Dname = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & " "
Dateiname = Pfad & Format(Date, "yymmdd") & "_" & "BUP" & "_" & Dname & ".xls"
'Wenn es nicht schon eine Sicherungskopie an diesem Tag gibt, wird eine erstellt
If Dir(Dateiname) = "" Then
ThisWorkbook.SaveCopyAs Dateiname
End If
Exit Sub
End Sub