Macro to store a table name as a variable

Hi,
I have a workbook that is linked to different SharePoint sources and each one is stored in a different worksheet.
I have to create a formula that is based on a table row on all the sheets however, since the table name is different, the table name must change on all the sheets.
Is there a way for me to capture the table name as a variable so I can change it for the different worksheets?
On the following code I would like to change the table name “Table_owssvr_413” to the different tables on the worksheets.

Sub Update_tables()
    
    Dim wSheet          As Worksheet
    
    For Each wSheet In Worksheets
    
    ActiveSheet.Activate
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "=MONTH(Table_owssvr_413[[#This Row],[Created]])"
    
    Next wSheet

Thanks!

Sub Update_tables()
    
    Dim wSheet          As Worksheet
    
    For Each wSheet In Worksheets
    
        With wSheet
        
            .Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
            .Range("E2").Formula = "=MONTH(" & .ListObjects(1).Name & "[[#This Row],[Created]])"
        End With
    Next wSheet
End Sub

You need to initiate the worksheet if you don't wanna use the loop.

Sub Update_tables()

Dim wSheet As Worksheet
Dim argh As String

Set wSheet = Worksheets("Sheet1")

    With wSheet
        MsgBox .ListObjects(1).Name
        argh = .ListObjects(1).Name
        .ListObjects(argh).Range.AutoFilter Field:=9, Criteria1:= _
        "=New", Operator:=xlOr, Criteria2:="=Open"
    End With

End Sub

Thank you Bob!
It really helps me!!