I have macro that copies a graph from one sheet and displays it in a window on the active sheet. The macro runs so slowly (10 seconds to copy the graph) that the user could complete the actions faster manually. Is there a way to speed up the macro?
Sub DisplayChart()
Dim Sheetname As String
Application.ScreenUpdating = False
Sheetname = ActiveSheet.Name
Sheets("TtlCrs").Select
ActiveSheet.ChartObjects("Chart 2").Copy
Application.ScreenUpdating = True
Sheets(Sheetname).Select
ActiveSheet.Paste
ActiveSheet.ChartObjects("1").Activate
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
ActiveSheet.ChartObjects("1").Activate
ActiveChart.ShowWindow = True
ActiveSheet.ChartObjects("1").Delete
End Sub
Any help greatly appreciated
Bookmarks