Application.ScreenUpdating = False prevents any changes to the screen
until it is reset to True. So just wrap your code between False & True.

The only way that I know to have each legend entry on a separate line is
to have the legend position formatted Left, Right, or Corner. Top and
bottom try to put them on a single line.
Of course you can use Left, Right, or Corner and than move it. (I dragged
it and it worked. But the plot area got 'squished')

--
sb
"n/a" wrote in message
om...
Hi

I intend to maximize the width of the legend within two axis. I
reposition it myself using this code:

If .HasLegend Then
.Legend.Width = .PlotArea.InsideWidth
.Legend.Left = .PlotArea.InsideLeft
.Legend.Top = 1
End If

But it is not working when I use
Application.ScreenUpdating = False

If
Application.ScreenUpdating = True
then only charts shown on the screen while updating / creating are
done right.

What is going on ?


Secondly I want to have the legendentries to occupy one line each
instead of one line all together. Can that be accomplished ?



Yours