Will the last saved date and time work for you?
If yes, then
Code:
Sub LastSaved()
Dim x As Date
x = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
MsgBox (x)
End Sub
Also, have you looked at this link-->
https://techcommunity.microsoft.com/...a-cell/3690222