Nubee with an AutoSave question.

[Nick54]

Would someone please explain how to upon selecting the "X" in the upper right corner of a worksheet or by selecting "File" - "Exit" force to the first tab in the workbook and then auto save?

 

[VoG]

Try this in the ThisWorkbook module

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1).Select
Me.Save
End Sub

 

[Craig1]

Peter,

I have just used the VBA you posted yesterday and it works fine.

How would I amend it to auto save sheet 1 & 2, I have tried a few combinations but none seem to work.

Craig.

 

[VoG]

That should save the entire workbook. Or do you mean save those sheets as a new workbook?

 

[Craig1]

Thanks for that Peter, I assumed wrongly that when you stated

Sheets(1).Select

in the code I thought it would only save sheet 1 and not the whole workbook.
Trying it shows me it just selects sheet 1 on saving. Am I correct in this thought?

Craig.

 

[VoG]

Yes, it selects sheet1 then saves the whole workbook (Me in the code).

 

[Craig1]

Thanks Peter.

 

[Nick54]

Here is what I did with the code you provided.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(INSTRUCTIONS).Select
Me.Save
End Sub

Sheet 1 was remaned to INSTRUCTIONS

I know I'm likely not using your code correctly but after colssing trhe spreadsheet and re-opening I am on the page I closed it from.

 

[VoG]

It should be

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("INSTRUCTIONS").Select
Me.Save
End Sub

 

[Nick54]

It should be

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("INSTRUCTIONS").Select
Me.Save
End Sub

I'll adjust it tomorrow at work, Thanks