BuiltIn Property Example

The following example prints the default references in the References collection:

Sub ReferenceBuiltInOnly()
    Dim ref As Reference

    ' Enumerate through References collection.
    For Each ref In References
        ' Check BuiltIn property.
        If ref.BuiltIn = True Then
            Debug.Print ref.Name
        End If
    Next ref
End Sub