It sounds like the ScrRun.dll got its registration with Windows messed up. I
would do the following.

Close all open applications.
Go to the Windows Start Menu and choose Run.
Enter the following, including the quotes, and click OK.
RegSvr32 "C:\Windows\System32\ScrRun.dll" /u
Then go back to the Run dialog and enter the following
RegSvr32 "C:\Windows\System32\ScrRun.dll"

This will un-register the component with Windows (the /u switch means
un-register) and then re-registser the componet. You should get success
dialogs for each of the calls to RegSvr32. This assumes that ScrRun.dll does
in fact reside in "C:\Windows\System32". I assume you have checked that the
file does in fact exist.



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com
(email address is on the web site)



"Dennis" wrote in message
ups.com...
2003

I am getting an runtime-error with
ThisWorkbook.VBProject.References.Item(i).FullPath
the error message claims not registered. That said, my routine obtains
the following fine:

.Item(i).Name (OK)
.Item(i).Description (OK)
.Item(i).FullPath (fails)

First, I am failing in my attempt to trap the error via: (Please help
on this also)

[ThisWorkbook.VBProject.References]

If IsError(.Item(i).FullPath) Then
Cells(i + 1, 3).Value = "Not in Registery Properly!!"
Else
Cells(i + 1, 3).Value = .Item(i).FullPath
End If

Second, using ToolsReferences, I have "Browsed" to
C:\WINDOWS\System32\scrrun.dll clicked OK to no avail.

How can I force a clean recognition in the Registry so that I do not
get the error in the first place?

TIA EagleOne