Quiting Excel97 from a worksheet macro

Jeff,
In the This Workbook module write this line of code:
Private Sub Workbook_BeforeClose()
This Workbook.Saved=True
Jim

Jim: Cant get that code to work

Tried the 2 lines of code Jim, but the macro wouldnt run at all. Kept coming up with the error "Expect Sub"
Initially, I recorded the save macro, then added Active.Workbook.Close so the sheet would close.
Guess Im doing something stupid.

JEFF

Re: Jim: Cant get that code to (work 2 things)

Doing two things wrong

You need to put the code in the workbook module
you need to add a third line of code
end sub

Re: Jim: Cant get that code to (work 2 things)

Not having much luck. The extra code I insterted did have "End Sub" at the end, but the error was pointing at the beginining of the actual code.
The code below is what I had, which saved and closed the file OK - before I added the suggested code.
Im not sure what is meant by adding to the workbook module? When the xl file is open, I select tools/macro, then the "save" macro ( I recorded) to edit? The same macro file name seems to appear whether I select "macros in" all open workbooks, this workbook, or the actual filename.
Are we talking about two different macros here? I only can see the one associated with the open xl file. Sorry for being so thick, but the answer alludes me.
Thanks Guys,
JEFF

Sub save()
'
' save Macro
' Macro recorded 10/08/01 by authorised user
'

'
ActiveWorkbook.save
ActiveWorkbook.Close
End Sub

This should help (ALT+F11 select this workbook)

Heres what you do, right click on the X to the left of file and select view code. This will take you to the workbook module, you can also right click on the page tab to do worksheet modules. What your putting code in is a general module.

You can also push ALT+F11 to get to the VBa editor and see a list of modules to the left its the one labeled "thisworkbook"

Hope this helps, its very important to put code in the proper module.

steve w

Hi Jeff
In your code for the button
Put in;

Application.Quit

before the End sub

Ivan

Re: This should help (ALT+F11 select this workbook)

Making some progress here.
Found the thisworkbook module (thanks), and inserted the code.
Came up with a Compile error when I ran the macro.
Said:
"Event procedure declaration does not match description of event having the same name"

Tried adding and removing Application.Quit to the save macro, but this made no difference.
The code I have for the thisworkbook module is:
Private Sub Workbook_Open()
Private Sub Workbook_BeforeClose()
This Workbook.Saved = True
End Sub

regards,
JEFF