Detect webpage refreshed before proceeding

[tiredofit]

How can I ensure the extraction of data from a webpage has finished before proceeding to the next sub?

 

[tiredofit]

I found this code:

Public WithEvents qt As QueryTable
Private Sub qt_AfterRefresh(ByVal Success As Boolean)
    Call The_Sub_To_Run_After_Refresh
End Sub

from here:

https://www.tek-tips.com/viewthread.cfm?qid=651723

but can't get it to work.

For example, this line goes in a standard module, as stated:

Dim X As New Class1

but where does this go?

Sub Initialize_Class()
  Set X.qt = Sheets("Sheet_With_Querytable").QueryTables(1)
End Sub

Thanks