Run time error 1004; Application defined or object defined error. Set varaible to querytable

[Johnis2Deezy]

I am trying to set a variable to a querytable as this macro will be run on multiple spreadsheets that are created for each new day. So the macro needs to refer to the activesheets listobject(1). I used the example on the msdn website, but i still get this error. Here is the code, can someone help me get around this? Thanks!!

Sub querytable

Dim ws As Worksheet
Dim Table As Variant

Set ws = ActiveSheet
Set Table = ws.ListObjects(1).QueryTable



End Sub

 

[Johnis2Deezy]

I am using Excel 2010, on Windows 7.