Ya he posteado otro código para este mismo cometido, pero el que expongo a continuación me ha parecido mucho más sencillo:
Function fHayTabla(sNombreTabla As String) As Boolean
Dim i As Integer
For i = 0 To CurrentDb.TableDefs.Count – 1
If CurrentDb.TableDefs(i).Name = sNombreTabla Then
fHayTabla = True
Exit Function
End If
Next
End Function
Fuente: Foro de access y vba