.Save / Not Working

[djrforb]

Anyone able to suggest why the following code does not result in an updated copy of the workbook being saved. The entries in cells A1 and A2 are not present when the file is re-opened.


Sub SaveAndClose()

Dim wbThis As Workbook

Set wbThis = ActiveWorkbook
OK = False
On Error GoTo NotAbleToSave
With wbThis
Application.StatusBar = "Saving . . . "
.Save
Cells(1, 1) = wbThis.Name
Cells(2, 1) = wbThis.Saved
OK = True
End With


NotAbleToSave:
Application.StatusBar = False
If Not OK Then
MsgBox "Backup Copy Not Saved!", vbExclamation, ThisWorkbook.Name
End If

wbThis.Saved = True
Application.Quit
End Sub


Thanks
Duncan

[Kieran]

Duncan,

ita appears taht the values are set after the save, not before.
try this small amendment

Sub SaveAndClose()

Dim wbThis As Workbook

Set wbThis = ActiveWorkbook
OK = False
On Error GoTo NotAbleToSave
With wbThis
.Activesheet.Cells(1, 1).value = wbThis.Name
.ActiveSheet.Cells(2, 1).value = wbThis.Saved
' note the reference to activesheet is used to indicate the correct sheet to set the values for, substitute with
' anything appropriate for your situation eg Sheets(2) or Sheets("data") etc
Application.StatusBar = "Saving . . . "
.Save
OK = True ' OK is not defined at the satrt of the macro, I do not know if this will have any effect.
End With


NotAbleToSave:
Application.StatusBar = False
If Not OK Then
MsgBox "Backup Copy Not Saved!", vbExclamation, ThisWorkbook.Name
End If

wbThis.Saved = True
Application.Quit
End Sub