Find Missing VBA Project References Code

[snb]

Sub M_snb()
    On error resume next

    For Each rf In ThisWorkbook.VBProject.References
        c00 = c00 & vbCr & rf.Name & "_" & rf.Description & "_" & rf.fullpath & "_" & rf.GUID
    Next
    
    With Sheets.Add
        .Cells(1).Resize(UBound(Split(c00, vbCr))) = Application.Transpose(Split(Mid(c00, 2), vbCr))
        .Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, "_"
        .Columns(1).Resize(, 4).AutoFit
    End With
End Sub