Delete Rows from List Objects based on Conidtion

[Guest]

Only a part of code.

Set wrksht = ActiveWorkBook.WorkSheets("Query6")
Set objListobj=wrksht.ListObjects(1)
Set objListRows=objListobj.ListRows

I am getting an error message which says "subscripts out of range", Run time
error '9' at the second line of code shown above

 

[Guest]

Set wrksht = ActiveWorkBook.WorkSheets("Query6")
if wksheet.ListObject.count = 0 then
msgbox "No ListObject"
exit sub
end if
Set objListobj=wrksht.ListObjects(1)
Set objListRows=objListobj.ListRows