Only closing active sheet Code Mod

[alexdurc09]

Hello,
I have the below code which is attached to a button on aspreadsheet. Its function is to close the spreadsheet down and also savechanges. However, when the button is clicked, it closes down all open spread sheetswhich is no good if my colleagues are working other spread sheets too. Is thereany way so that when clicked, it just shuts down the active spreadsheet and notany other open spread sheets?
TIA,
Alex

Private Sub SaveClose_Click()
ThisWorkbook.allowed = True
Application.Quit
ThisWorkbook.Save
End Sub

 

[mumps]

You can't shut down only one worksheet but you can hide it so it's not visible.

 

[alexdurc09]

So to clarify, there isn't any VBA code which will close down the sheet that the button is on and were the vba is written and leave all other sheets open?

 

[mumps]

You can't close down the sheet, you can only hide it from view.

ActiveSheet.Visible = False

 

[Fluff]

If you just want to save & close the workbook containing the code try

Private Sub SaveClose_Click()
ThisWorkbook.Close True
End Sub