Closing Excel With VBA

Jeremyvnc · Oct 25th 2004

I'm trying to add a exit button on my spread sheet that closes excel if no other workbooks are open or if others are open, it closes just my spreadsheet.

Any thoughts would be very helpful,
Jeremy

wkalo · Oct 25th 2004

[Code]
Sub ShutDown()

Workbooks("filename.xls").Save
Workbooks.Application.Quit

End Sub

[\Code]

fifijazz · Oct 25th 2004

Here you go

Code

Sub Byebye()
'add code to save your workbook here, if you wish
' note that the count of open workbooks will
'include any hidden workbooks, such as Personal.xls


If Application.Workbooks.Count = 1 Then
Application.Quit
Else
ActiveWorkbook.Close
End If
End Sub

Display More

Jeremyvnc · Oct 25th 2004

Thanks Fifijazz, works great perfectly.

Closing Excel With VBA

Participate now!

Share