ACC97: How to Loop Through References to View Their Properties

MORE INFORMATION

1. Create a module and type the following line in the Declarations section if it is not already there:

   Option Explicit
   					

2. Type the following procedure:

       Sub ReferenceInfo()
         Dim strMessage As String
         Dim strTitle As String
         Dim bytButtons As Byte
         Dim refItem As Reference
   
         On Error Resume Next
   
         For Each refItem In References
            If refItem.IsBroken Then
               strTitle = "MISSING Reference"
               strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
               bytButtons = 16 'critical symbol
            Else
               strTitle = "Displaying References and Their Locations"
               strMessage = "Reference: " & refItem.Name & vbCrLf & _
               "Location: " & refItem.FullPath
               bytButtons = 64 'information symbol
           End If
   
         MsgBox prompt:=strMessage, Title:=strTitle, buttons:=bytButtons
   
         Next refItem
   
       End Sub
   					

3. To test this function, type the following line in the Debug window, and then press ENTER:

   ReferenceInfo
   						

   Note that the message box opens for each reference.