Microsoft Excel - How to remove this error Method 'VBProject' of object '_workbook' failed in VBA

I have a macro which is shows error.This error maybe reference error.
The error shows in Line no. 6 and already colored in red.

The Code is given below:

Public Sub CheckReferences()
    Dim i As Integer
  
    For i = 1 To ThisWorkbook.VBProject.References.Count
      If ThisWorkbook.VBProject.References(i).IsBroken Then
        ThisWorkbook.VBProject.References.Remove _
        ThisWorkbook.VBProject.References(i)
        Exit For
      End If
    Next i
  
    If Application.Version = "9.0" Then
      ThisWorkbook.VBProject.References.AddFromFile _
      "C:\Program Files\Microsoft Office\Office\msoutl9.olb"
    Else
      ThisWorkbook.VBProject.References.AddFromFile _
      "C:\Program Files\Microsoft Office\Office10\msoutl.olb"
    End If
End Sub

In the Trust Center, Macro Settings, check the "Trust access to the VBA project object model"...

Thanks