Ben bunun buraya geleceğini biliyordum. Fakat sorunca cevap vereyim istedim.
aşağıdaki fonksiyon ile listeletebilirsiniz.

Public Function kuralreferans()

Dim ad, acik As String

Dim refim As Variant

For Each refim In Application.References

ad = refim.Name

acik = refim.FullPath

Debug.Print ad, acik, refim.Major, refim.Minor, refim.Guid

Next

End Function