ListObject DataBodyRange Returns Object Variable Not Set Error

Hi all,

Using Excel 2010.


I would like to test a DataBodyRange of a ListObject and delete the DataBodyRange if the Rows.count >=1
My code is returning an error:

Run-time error '91':
Object variable or With block block variable not set

But I do not see a problem wi the code (Below)

thx
w

    'Clear previous data
        With ws
            Set tbl = .ListObjects("tblData")
            With tbl
                If .DataBodyRange.Rows.Count >= 1 Then
                    .DataBodyRange.Delete
                End If
            End With
        End With

The DataBodyRange object is Nothing when the table has no rows, so test for that.

        With ws
            Set tbl = .ListObjects("tblData")
            With tbl
                If Not .DataBodyRange Is Nothing Then
                    .DataBodyRange.Delete
                End If
            End With
        End With

Thanks Andy,

Your code is working perfectly!

thx
w