Microsoft provides programming examples for illustration only,
without warranty either expressed or implied. This includes, but is not limited
to, the implied warranties of merchantability or fitness for a particular
purpose. This article assumes that you are familiar with the programming
language that is being demonstrated and with the tools that are used to create
and to debug procedures. Microsoft support engineers can help explain the
functionality of a particular procedure, but they will not modify these
examples to provide added functionality or construct procedures to meet your
specific requirements.
To work around this issue, change your macro
code so that the QueryTable does not trigger a change event by disabling events
before refreshing the QueryTable.
Private Sub WorkSheet_Change(ByVal Target as Range)
Application.EnableEvents = False
ThisWorkbook.Worksheets(1).Range("A2").QueryTable.Refresh BackgroundQuery:=False
Application.EnableEvents = True
End Sub