Problems loading and AddIn

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Below is a snippet of my code thanks to this forum. I am getting an Error =9
on the line marked *1, so I try and load the Addin, the below code completes
without error, but the AddIn didnot load. This code has been working for
about 10months now, I can't understand why it is not working now, any ideas?

Dim WBName As String
On Error Resume Next ' turn off error checking
*1 WBName = Workbooks(DCMaster2).Name ' Check to see if AddIn is loaded
and should return an error if the file is not loaded
LastError = Err
On Error GoTo 0 ' restore error checking
If LastError <> 0 Then
' the add-in workbook isn't currently open. Manually open it.
' On Error Resume Next
Application.DisplayAlerts = False
With AddIns.Add(Filename:=Application.UserLibraryPath & DCMaster2)
.Installed = True
End With
 
One thing, Err is an Object with various properties etc
I think you are looking for
LastError = Err.Number

NickHK
 
This is why it's a good practice to Dim all your variable (preferably using
Option Excpicit).
At compile time the error would have come to light.

NickHK
 
NickHK,

All of my modules are marked with "Option Explicit". I have used the Err to
get the Error number for years and it has always work for me. Besides if I
completely shutdown Excel and start again it works fine.
 
Back
Top