Try this:

Private Sub Worksheet_Deactivate()
ActiveWorkbook.Save
End Sub

Right click sheet1 sheet tab, view code and paste this in

Mike

"OM" wrote:

Hi there

I am new to this VBA, but i will try to give it a go.

I would like the workbook to be saved when the user shifts away from Sheet1
to be certain that content of Sheet1 is always saved.

I suppose that the piece of code should be placed in a VBA module under the
workbook

Thanks Ole