Sub Кнопка1_Щелчок()
   ActiveWorkbook.Connections("Запрос — 1").Refresh
End Sub

Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
    Select Case ElementID
    Case xlSeries
        If Arg2 > 0 Then
            x = ActiveChart.SeriesCollection(Arg1).XValues
            For i = LBound(x) To UBound(x)
                If i = Arg2 Then
                    MsgBox "Point :" & i & "and X Value = " & x(i)
                    Exit For
                End If
            Next i
       End If
    End Select
End Sub

Sub ActiveWorkbook()
  [B1].ListObject.QueryTable.refresh
  [B1] = [B1] + 1
End Sub