Как при открытии Excel проверить нет ли уже открытых окон с Excel? - VB

Формулировка задачи:

Посоветуйте пожалуйста, как при открытии Excel проверить нет ли уже открытых окон с Excel и если есть , то тогда добавить новый лист в уже открытую книгу.

Решение задачи: «Как при открытии Excel проверить нет ли уже открытых окон с Excel?»

textual
                            Листинг программы 
                        

                            Private Sub AddSheet()
Dim obj As Object
On Error Resume Next
' Проверка открыт ли excel
Set obj = GetObject(, "excel.application")
If obj Is Nothing Then
Set obj = CreateObject("excel.application")
End If
If obj Is Nothing Then Exit Sub
 
' Если нет открытой книжки - откроем новую
If obj.Workbooks.Count = 0 Then
   obj.Workbooks.Add
Else
   ' Если есть открытая книжка - добавим новый лист
   obj.Sheets.Add
End If
 
obj.Visible = True
Exit Sub
 
ExcelError:
Err.Raise Err.Number, Err.Source, Err.Description
End Sub
                        