因为你已经声明了Dim tables As ListObject，所以你必须使用SET，而且你还必须告诉你要使用哪个表。
变更

tables = Sheets(x).ListObjects

到

Set tables = Sheets(x).ListObjects(1)

然后像tables.Name一样使用它
举个例子

Dim tables As ListObject

Set tables = Sheets(1).ListObjects(1)

Debug.Print tables.Name & "[EntityID]"

高亮显示缺失

• 代码应该被复制到一个标准的模块中，例如Module1，但是你可以将它复制到ThisWorkbook模块中。然后，在你的Open事件过程中（在ThisWorkbook module中），只使用HighlightMissingDefinitions行。

Option Explicit

Sub HighlightMissingDefinitions()
    
    Dim wb As Workbook: Set wb = ThisWorkbook ' workbook containing this code

    ' Source
    Dim sws As Worksheet: Set sws = wb.Worksheets("Data Dictionary")
    Dim stbl As ListObject: Set stbl = sws.ListObjects("Dictionary")
    Dim srg As Range
    Set srg = stbl.ListColumns("CombinedStringName").DataBodyRange
    Dim sCell As Range
    
    ' Destination
    Dim dws As Worksheet
    Dim dtbl As ListObject
    Dim drg As Range
    Dim dCell As Range
    Dim d As Long
    Dim dWorksheetName As String
    Dim dSearchString As String
    Dim dCombinedString As String
    
    Application.ScreenUpdating = False
    
    ' Highlight
    For d = 3 To wb.Worksheets.Count
        Set drg = Nothing
        On Error Resume Next
        Set dws = wb.Worksheets(d)
        Set dtbl = dws.ListObjects(1)
        Set drg = dtbl.ListColumns("EntityID").DataBodyRange
        On Error GoTo 0
        If Not drg Is Nothing Then
            drg.Interior.Color = xlNone
            For Each dCell In drg.Cells
                dSearchString = CStr(dCell.Value)
                dWorksheetName = dws.Name
                dCombinedString = dWorksheetName & " " & dSearchString
                ' You could just do:
                'dCombinedString = dws.Name & " " & CStr(dCell.Value)
                ' No need for the extra two variables.
                Set sCell = srg.Find( _
                    What:=dCombinedString, _
                    After:=srg.Cells(srg.Cells.Count), _
                    LookIn:=xlFormulas, _
                    LookAt:=xlWhole, _
                    SearchOrder:=xlByRows) ' 'xlNext' and 'False' are default
                If sCell Is Nothing Then
                    dCell.Interior.Color = vbRed ' vbYellow, vbGreen
                End If
            Next dCell
        End If
    Next d
    
    Application.ScreenUpdating = True
        
End Sub

可选

Sub MatchInsteadOfFind()
    ' Instead of 'Dim sCell As Range' use:
    Dim srIndex As Variant
    ' Instead of 'Set sCell...' use:
    srIndex = Application.Match(dCombinedString, srg, 0)
    ' Instead of 'If sCell...' use:
    If IsError(srIndex) Then
        dCell.Interior.Color = vbRed ' vbYellow, vbGreen
    End If
End Sub