http://support.microsoft.com/default...b;en-us;160647
XL97: How to Programmatically Create a Reference

Add the scripting runtime manually, then you query it for particulars. You
might want to use the addfromGUID so you don't have to search for it.

This code Sub CCTester()
Dim refs As References
Dim rf As Reference
Set refs = ThisWorkbook.VBProject.References
For Each rf In refs
Debug.Print rf.Name, rf.GUID
Next
End Sub

showed
Scripting {420B2830-E718-11CF-893D-00A0C9054228}

and a variation showed:
Scripting C:\WINNT\system32\scrrun.dll

--
Regards,
Tom Ogilvy


"Alan Beban" wrote in message
...
I have a procedure with code that requires that there be a reference to
Microsoft Scripting Runtime. Can that reference be accomplished
programmatically at the beginning of the procedure? If so, what is the
syntax?

Thanks,
Alan Beban