Public Function TableExtant(TableName As String, sheetName As String) As Boolean

'       Check to see if a table exists on a worksheet

Dim MyTarget As Worksheet
Set MyTarget = Worksheets(sheetName)
Dim MyTables As ListObject
TableExtant = False
With MyTarget
    For Each MyTables In .ListObjects
        If MyTables.Name = TableName Then TableExtant = True
    Next MyTables
End With
End Function