Sicherungskobie beim schliesen anlegen

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ActiveWorkbook.Saved = False And _
Range("C2").Value  "" Then
sbSaveCopy
If pboSaveOK = True Then Cancel = True
pboSaveOK = False
End If
End Sub

Private Sub Workbook_Save(Cancel As Boolean)
ActiveWorkbook.SaveCopyAs Filename:= _
("J:\Finishing\Sicherung Eingabe Fahrdaten/Sicherung " & " Fahrdaten  " & Format(Now, "dd-MM- _
yyyy_HH-MM") & ".xls")
Application: Sheets("Blanco").Activate
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application: Sheets("Blanco").Activate
Worksheets("Blanco").Range("C2,C4,G4,C7,C8,G7,G8,G10,G11,G12,G13,G15,G16,G17,G18,G19,G20,G22, _
G23,G24,G25,G26,G28,G29,G31,G32,G33,G34,C37,E37,I31,I32,I33,I34,I35,I36,I37").ClearContents
End Sub