Public Function GetRefs() '==================================================================== ' Name: GetRefs ' Purpose: Get a list of the current database references ' ' Author: Arvin Meyer ' Date: April 10, 1999 ' Comment: ' '==================================================================== On Error GoTo Err_GetRefs Dim i As Integer For i = 1 To Application.References.Count Debug.Print Application.References(i).FullPath Next i Exit_GetRefs: Exit Function Err_GetRefs: Debug.Print "Missing Reference" Resume Next End Function