Try this code
Sub Add_Object_Library_Reference_By_GUID()
Dim strGUID As String
strGUID = "{00020905-0000-0000-C000-000000000046}" 'Microsoft Word
Rem strGUID = "{00020813-0000-0000-C000-000000000046}" 'Microsoft Excel
Rem strGUID = "{91493440-5A91-11CF-8700-00AA0060263B}" 'Microsoft PowerPoint
Rem strGUID = " {4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}" 'Microsoft Access
Rem strGUID = " {00062FFF-0000-0000-C000-000000000046}" 'Microsoft Outlook
On Error Resume Next
ThisWorkbook.VBProject.References.AddFromGuid strGUID, 0, 0
On Error GoTo 0
End Sub