Abandon invoice

[Pat]

I want to have the ability to abandon an invoice and return it to its former
state. I thought if I closed the workbook without saving it and then reopen
it this would do the trick. I ran the following code but the workbook did
not open.

Application.DisplayAlerts = False
ActiveWorkbook.Close
Workbooks.Open Filename:=" "
Application.DisplayAlerts = True


Apart from just simply manually closing/reopening the workbook has anyone
got another method I should consider?

Ta

 

[Guest]

The Open method requires a filename parameter, and by specifying "" you are
not giving it a file to open. Application.RecentFiles(1).Open should open
the last workbook used. But this seems to me to be an awkward method of
"undoing" changes. If possible, I would create a copy of the invoice (before
changes), hide it, and then have a routine that restores it.

 

[GregR]

Pat try this routine:

Sub RevertFile()

wkname = ActiveWorkbook.path & "\" & ActiveWorkbook.Name
ActiveWorkbook.Close savechanges:=False

Workbooks.Open FileName:=wkname

End Sub

It will revert the file to the last saved change.

Greg