Run-time error '91': Object variable or With block variable not se

C

Chrissy

Does anyone know why this error occurs? It is preventing all of our users
from closing Excel unless they end the task.

Further, Excel is integrated with Hummingbird DM and Adobe.

The VB destails are as follows:

Cancel = False
wasSaved = False

'First of all, close the personal.xls if it exists
If (ClosePersonalXLS = False) Then
Exit Sub
End If

count = Workbooks.count

For x = 1 To count

Set Wb = ActiveWorkbook
ret = ODMA.DocClose (Wb)
If ret = False THEN
OLK.RemoveDocFromList (Wb.FullName)
IntegratedClose WB
Else
Cancel = True
Exit For
End If

Next

If Cancel = False Then
' Put Excel back the way we found it
RestoreKeys
ResetControls
ODMA.UnRegisterAppWithODMA (ODMHandle)
' Don't display any native Excel dialog boxes on the way out
Application.DisplayAlerts = False
Application.Quit
End If

End Sub

Public Sub HummInsertFile ()
 
Top