Sub RunMe()
Dim fldname As String
Dim fld As Object
Dim tbl As Object
Dim qry As Object
'Set Field Name to look for in the database objects
fldname = "Field1"
For Each tbl In CurrentDb.TableDefs
If tbl.Attributes = 0 Then
For Each fld In tbl.fields
If fld.Name = fldname Then
MsgBox fld.Name & " resides in """ & tbl.Name & """"
End If
Next fld
End If
Next tbl
For Each qry In CurrentDb.QueryDefs
For Each fld In qry.fields
If fld.Name = fldname Then
MsgBox fld.Name & " resides in """ & qry.Name & """"
End If
Next fld
Next qry
End Sub