Aynı makroları iki çalışma kitabında çalıştırın

Aynı kodu iki çalışma kitabında çalıştırmak istiyorum. Kod, veri etiketlerini xy dağılım grafiğine yerleştirir. İşte kod:

Sub AttachLabelsToPoints()

   'Dimension variables.
   Dim Counter As Integer, ChartName As String, xVals As String

   ' Disable screen updating while the subroutine is run.
   Application.ScreenUpdating = False

   'Store the formula for the first series in "xVals".
   xVals = ActiveChart.SeriesCollection(1).Formula

   'Extract the range for the data from xVals.
   xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
      Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
   xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
   Do While Left(xVals, 1) = ","
      xVals = Mid(xVals, 2)
   Loop

   'Attach a label to each data point in the chart.
   For Counter = 1 To Range(xVals).Cells.Count
     ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
         True
      ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
         Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
   Next Counter

End Sub

Bunu düzeltmenin bir yolu var mı?

Bu kodu bir VSTO eklentisine (xla veya xlax) kaydedin ve istediğiniz sayıda çalışma kitabına referans ekleyin. Lütfen VSTO (Excel eklentisi) hakkında bilgi edinmek için aşağıdakilere bakın: https://msdn.microsoft.com/en-us/library/cc668205.aspx