Save workbook when user makes changes

[James12]

I wrote a code that is suppose to save the workbook every time a change is made but so far I have been unsuccessful at getting it to work. The workbook contians 7 worksheets.
This is the code I wrote to try and accomplish this task

Private Sub Workbook_Change(ByVal Target As Workbook)

    Dim icol As Long
     If Not Intersect(Target, Workbook) Is Nothing Then
    ThisWorkbook.save
     MsgBox "Workbook Saved At " & Format(Now, "m/d/yy"), vbInformation



End Sub