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" .gbl...
One thing, Err is an Object with various properties etc
I think you are looking for
LastError = Err.Number

NickHK

"Trefor" wrote in message
...
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

--
Trefor