Delete Rows from List Objects based on Conidtion

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

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

--
Regards,
Tom Ogilvy


"george-v" wrote:

> 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