Private Sub Worksheet_Change(ByVal Target As Range) Dim wks As Worksheet Set wks = ActiveSheet If Target.Row = 1 And Target.Column = 1 Then wks.QueryTables(1).Refresh End If Set wks = Nothing End Sub
You need to create an account or log in to post comments to this site.