You should post the code you recorded for best response.  Just copy and paste
it to the newsgroup reply form.

Hi Sandy,

It would help if you showed us the code and which line produced the
error.

It might also be helpful to know more about the data your macro acts
on and which version of Excel you are using.

Thanks,

Dan

Thanks for the suggestion. Here's the code. I put a * next to the line that
vb highlights.

ActiveChart.SeriesCollection(1).Select
   With Selection.Border
       .Weight = xlThin
       .LineStyle = xlAutomatic
   End With
   Selection.Shadow = False
   *Selection.InvertIfNegative = False
   With Selection.Interior
       .ColorIndex = 32
       .Pattern = xlSolid
   End With
   ActiveChart.Axes(xlValue).Select
   ActiveChart.SeriesCollection(1).Select
   ActiveChart.SeriesCollection(1).ApplyDataLabels AutoText:=True,
LegendKey:= _
       False, ShowSeriesName:=False, ShowCategoryName:=False,
ShowValue:=True, _
       ShowPercentage:=False, ShowBubbleSize:=False
   ActiveChart.SeriesCollection(1).DataLabels.Select
   Selection.NumberFormat = "$#,##0.00"
   ActiveChart.Axes(xlValue).Select
   Selection.TickLabels.NumberFormat = "#,##0.00"
   Selection.TickLabels.NumberFormat = "#,##0"
   ActiveChart.ChartTitle.Select
   Selection.Characters.Text = "ACCOUNT MARKET VALUES"
   Selection.AutoScaleFont = True
   With Selection.Font
       .Name = "Arial"
       .Size = 10
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ColorIndex = xlAutomatic
       .Background = xlAutomatic
   End With
   Selection.Font.Bold = True
   ActiveChart.Axes(xlValue).MajorGridlines.Select
   ActiveChart.ChartArea.Select
End Sub