Close one of two open workbooks leaving other open.

I was wondering if Anyone has any code to auto save a specific workbook leaving any other workbook open. We have two to three workbooks open at one time. I tried the below listed code but I get an error code that says it can't run the macro. Any help is app

'ThisWorkbook Module code!
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
End Sub

reciated!

Maybe:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Thisworkbook.Close True
End Sub