Here is one I have assigned to a custom toolbar button

Sub KillActiveWorkbook()
With ActiveWorkbook
mb = .Name
.Close
End With
MyAnswer = MsgBox("Do you want to KILL this file?", vbYesNo)
If MyAnswer = vbYes Then Kill mb
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"dmhehir" wrote in message
...
How does one Delete an Entire Workbook as opposed to a Worksheet
--
Don