Macro 2007 to Macro 2003

[blossomthe2nd]

Hi All

I am working on an Excel 2007 spreadsheet and my laptop only has 2003 - is there any way to convert the macro from 2007 speak back to 2003


Any help really appreciated

A

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, -12).Value
   Next Counter
End Sub
Sub ManagerAttachLabelsToPoints()
   '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, -13).Value
   Next Counter
End Sub