If statement if Table2 exists in the ActiveSheet or in WorkBook

[Klash Ville]

I need a simple if statement to check if a certain table exists.

I have this code but it's not working...

    Dim Table2 As ListObject


    If Table2 Is Nothing Then
    (...)
    End If

 

[jonathann3891]

Try something like this...

Dim ListObj As ListObject
    On Error Resume Next
    Set ListObj = ActiveSheet.ListObjects("Table2")
    
    If ListObj Is Nothing Then
      (...)
    Else
      (...)
    End If

 

[Klash Ville]

Try something like this...

Dim ListObj As ListObject
    On Error Resume Next
    Set ListObj = ActiveSheet.ListObjects("Table2")
    
    If ListObj Is Nothing Then
      (...)
    Else
      (...)
    End If

Thanks, worked like a charm =)

 

[jonathann3891]

You're Welcome