Your question, your audience. Choose who sees your identity—and your question—with question security.
My goal is to use QueryTable_AfterRefresh(Su
Public WithEvents qtQueryTable As QueryTable Sub InitQueryEvent(QT as Object) Set qtQueryTable = QT End Sub Dim clsQueryTable as New ClsModQT Sub RunInitQTEvent clsQueryTable.InitQueryEvent _ QT:=ActiveSheet.QueryTables(1) End Sub
Private Sub QueryTable_AfterRefresh(Success As Boolean) If Success Then ' Query completed successfully Else ' Query failed or was cancelled End If End Sub
Join the community of 500,000 technology professionals and ask your questions.