I cannot understand what fails to my code for creating a reference to the Microsoft Object library.it seems to me that the code is all right, the path is the same
but my code does not produce a reference to this library.
Could someone help me ?
Function AddOffice9() As Boolean
Dim ref As Reference, strFile As String
strFile = "C:\Program Files\Microsoft Office\Office\MS09.DLL"
On Error GoTo Error_AddOffice9
Set ref = References.AddFromFile(strFile)
AddOffice9 = True
'MsgBox Err & ": " & Err.Description
AddOffice9 = False