Hi,

i have sheet's code which works perfecly in Excel 2007, but nothing happens in excel 2003. No error occurs. what may be the cause?

Private Sub Worksheet_Calculate()

With Workbooks("chart").Sheets("tmp").Shapes("Wykres 1").DrawingObject.Chart
For i = 1 To 7
.SeriesCollection(1).Points(i).DataLabel.Font.Colo rIndex = 0
Next i
For i = 1 To 7
If .SeriesCollection(1).Points(i).DataLabel.Text = "#N/D!" Then
.SeriesCollection(1).Points(i).DataLabel.Font.Colo rIndex = 2
End If
Next i
End With

End Sub

regards