I have a table with varying columns and rows. I need to calculate the sum of the entire databodyrange. I tried the following without success:

Sub tblSum()
    Dim chkEmpty As Long
    Dim ws As Worksheet
    Dim lo As ListObject
            
    Set ws = ThisWorkbook.Worksheets("Summary")
    Set lo = ws1.ListObjects("tblSummary")

    chkEmpty = WorksheetFunction.Sum(lo1.DataBodyRange.value)
End Sub
Suggestions greatly appreciated!

tom