VBA close Excel if no other workbooks open

[sericom]

I have an exit button on a userform with the following code

Private Sub cmdExit_Click()
Application.DisplayAlerts = False
ThisWorkbook.Close
End Sub

I would like it to check to see if any other workbooks are open and if there is then just close the current one only without saving, but if there isn't any other workbooks open I'd like it to close excel.

 

[sericom]

Worked it out

Private Sub cmdExit_Click()
Application.DisplayAlerts = False
If Workbooks.Count < 2 Then
Application.Quit
Else
ThisWorkbook.Close
End If
End Sub

 

[unggulexcel]

Thanks MrExcel. It works..

 

[Firehawk41]

In my case, Excel seemed to be counting personal.xlsb as an active workbook so this code wasn't working. I modified to the below and it now works a treat.

If Application.Workbooks.Count = 2 Then
Application.Quit
Else
ThisWorkbook.Close
End If

 

[DipDip]

Worked it out

Private Sub cmdExit_Click()
Application.DisplayAlerts = False
If Workbooks.Count < 2 Then
Application.Quit
Else
ThisWorkbook.Close
End If
End Sub

Genius! Love this place! Just what I needed for my project

 

[CatyH]

Me Too! And TOTALLY agree!

Genius! Love this place! Just what I needed for my project

 

[Elgaucholoco]

Worked it out

Private Sub cmdExit_Click()
Application.DisplayAlerts = False
If Workbooks.Count < 2 Then
Application.Quit
Else
ThisWorkbook.Close
End If
End Sub

Maaaaaan thank you sooooo much, you saved my day! I even subscibe to the site just to say it!