You can't just make up event procedure names. You must use the
event names provided by VBA. Assuming your button is named
Button14, change

Sub Button14_Click_Quit()
to
Sub Button14_Click()


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


wrote in message
oups.com...
I have a workbook with multiple sheets that I would like to Hide
before
close. I am using a macro attached to a "Quit" button, but it
does not
work.
I also have a Sub in ThisWorkbook, but I can't seem to call it

Sub Button14_Click_Quit()

Application.DisplayAlerts = False

Worksheets("A Detail").Visible = False
Worksheets("A Metrics").Visible = False
Worksheets("B DV Detail").Visible = False
Worksheets("B DV Metrics").Visible = False
Worksheets("B Detail").Visible = False
Worksheets("B Metrics").Visible = False
Worksheets("C Metrics").Visible = False
Worksheets("C Detail").Visible = False
Worksheets("D Detail").Visible = False
Worksheets("D Metrics").Visible = False

Workbooks("KeyCustomerMetrics.XLS").Close


End Sub


The code in ThisWorkbook:

Public Sub Workbook_BeforeClose(Cancel As Boolean)

Worksheets("A Detail").Visible = False
Worksheets("A Metrics").Visible = False
Worksheets("B DV Detail").Visible = False
Worksheets("B DV Metrics").Visible = False
Worksheets("B Detail").Visible = False
Worksheets("B Metrics").Visible = False
Worksheets("C Metrics").Visible = False
Worksheets("C Detail").Visible = False
Worksheets("D Detail").Visible = False
Worksheets("D Metrics").Visible = False
End Sub

If I click on File, Close, it works--not sure what i am doing
wrong....
any help would be much appreciated

J