Hi,
I am new to Macro's & VBA so I could use any help or advice. When I run the macro it works 3 times then fails what am I doing wrong?
Sub ShowChart()
Calculate
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(1).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(1).Formula
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(2).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(2).Formula
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(3).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(3).Formula
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(4).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(4).Formula
DialogSheets("Chart").Show
End Sub
I am new to Macro's & VBA so I could use any help or advice. When I run the macro it works 3 times then fails what am I doing wrong?
Sub ShowChart()
Calculate
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(1).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(1).Formula
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(2).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(2).Formula
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(3).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(3).Formula
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(4).Formula = _
ActiveSheet.ChartObjects("Chart 5").Chart.SeriesCollection(4).Formula
DialogSheets("Chart").Show
End Sub