Working with WorkBook Close event and Personal.xlsb files

[coreytroy]

If Workbooks.Count <2 Then Application.Quit Else ActiveWorkbook.Close

I have noticed that when i have added some VBA to my Personal file, that the above code when run now does not work as it view the Personal file as another workbook.

But if I simply change (<2) to (<3) then other users whoi dod not have a personal file may have other excel workbooks closed on them without wanting.


Is there a simply way around this?

Is there a line i can use to establish if the other WorkBook name is the Personal file?

[HaHoBe]

Hi, coreytroy,

you might take into consideration that there is both a personl.xls and a personal.xlsb available for a user:

Sub sample()
Dim wb As Workbook
Dim lngPers As Long
For Each wb In Workbooks
  If UCase(wb.Name) = "PERSONAL.XLSB" Then lngPers = 1
Next wb
If Workbooks.Count < 2 + lngPers Then
  Application.Quit
Else
  ActiveWorkbook.Close
End If
End Sub

Ciao,
Holger

[coreytroy]

Thanks HaHoBe.