ValueInTable.vbs

Function ValueInTable(ByVal column_number As Long, ByVal tbl As ListObject, ByVal LookupValue As String) As Boolean

  Dim FoundCell As Range
  
  'Attempt to find value in Table's first Column
    On Error Resume Next
    Set FoundCell = tbl.DataBodyRange.Columns(column_number).Find(LookupValue, LookAt:=xlWhole)
    On Error GoTo 0
  
  'Return Table Row number if value is found
    If Not FoundCell Is Nothing Then
      ValueInTable = True
    Else
      ValueInTable = False
    End If

End Function