P
PSM
I'm using the date code below to close the file but just figured that i
the file is renamed this will fail. Is there code that will close th
workbook no matter what the filename to overcome this ?
Dim exdate As Date
exdate = "07/12/2009"
If Date > exdate Then
MsgBox ("Sorry this spreadsheet has expired please use lates
version")
Application.DisplayAlerts = False
Workbooks("Master 09 17.50 VAT.XLS").Close
Exit Sub
End I
the file is renamed this will fail. Is there code that will close th
workbook no matter what the filename to overcome this ?
Dim exdate As Date
exdate = "07/12/2009"
If Date > exdate Then
MsgBox ("Sorry this spreadsheet has expired please use lates
version")
Application.DisplayAlerts = False
Workbooks("Master 09 17.50 VAT.XLS").Close
Exit Sub
End I