Datum uit cel vergelijken met een woord.

[Koos Timmer]

Hallo Wigi.

Hartelijk dank voor de medewerking.

Volgens mij moet het nu werken.

ik heb even een paar MsgBox regeltjes gemaakt om het verloop te kunnen zien.

ik heb de file bijgevoegd.

Sub Workbook_BeforeClose(Cancel As Boolean)

Application.DisplayAlerts = False

Dim MyFile, MyPath
Dim naam As String

On Error GoTo verder:
MkDir "OIP"
verder:

MyPath = "OIP"

If Worksheets("Blad1").Range("a40").Value = "0" Then GoTo Quit:

MsgBox "Ik sla nu de Hoofd file op.", vbInformation, "Save Hoofd File"

ActiveWorkbook.Save

MsgBox "Ik sla nu de backup file op.", vbInformation, "Maak Backup File"


MyFile = MyPath + "\" + "OIP " + Worksheets("Blad1").Range("F35").Value + ".xls"

ActiveWorkbook.SaveAs Filename:=MyFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
 
Quit:

MsgBox "Ik verlaat nu het programma zonder verder iets op te slaan.", vbInformation, "Verlaat programma"
ThisWorkbook.Saved = True
Application.Quit
Application.DisplayAlerts = True

End Sub