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