Not sure this is what you want, but this macro will revert the file to the
last saved version.
Sub RevertFile()

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

Workbooks.Open FileName:=wkname

End Sub

Greg
"Frank Kabel" wrote in message
...
Hi
this would require quite some VBA code as you somehow have to store the
original values for example on a separate hidden sheet

--
Regards
Frank Kabel
Frankfurt, Germany

"Dawnybros" schrieb im
Newsbeitrag ...
I want to add a reset button to an excel spreadsheet that will
restore the
values of all changed cells to the original saved ones.

Any help would be appreciated.

Thanks

Dawn