Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Save
End Sub

I put this code into a shared workbook, so the workbook will be saved
whenever a person makes any change.

But this code always generate an error "code execution has been
interrupted" and it stops at the "End Sub".

Why?

H.Z.