Im still not getting it to work!!

In classmodule named ClsModQT:
Public WithEvents qtQueryTable As QueryTable
Sub InitQueryEvent(QT As Object)
Set qtQueryTable = QT
End Sub

In module:
Dim clsQueryTable As New ClsModQT
Sub RunInitQTEvent()
clsQueryTable.InitQueryEvent _
QT:=ActiveSheet.QueryTables(1)
End Sub

Keep getting runtime error 9 at

clsQueryTable.InitQueryEvent _
QT:=ActiveSheet.QueryTables(1)

Even when change table name from (1) to ("Tabell_INSPI_ytor")

Am I misunderstanding something else fundamental. Query is from
another Excel table if that makes a difference....

HELP!! Feel like such an idiot