Function ReferenceFromFile(strFileName As String) As Boolean Dim ref As Reference On Error GoTo Error_ReferenceFromFile ' Create new reference. Set ref = References.AddFromFile(strFileName) ReferenceFromFile = True Exit_ReferenceFromFile: Exit Function Error_ReferenceFromFile: MsgBox Err & ": " & Err.Description ReferenceFromFile = False Resume Exit_ReferenceFromFile End Function
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
15 Experts available now in Live!