Finding appropriate sheets

[prima satria]

I made a button with vba code to run / produce a graph as a new sheet name "CHART X"

Sub CHART_SHEET()

Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("ITEM CUMMU.").Range("A8:D11"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "='ITEM CUMMU.'!R7C2"
ActiveChart.SeriesCollection(2).Name = "='ITEM CUMMU.'!R7C3"
ActiveChart.SeriesCollection(3).Name = "='ITEM CUMMU.'!R7C4"
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="CHART X"
End Sub

it works, but the problem is when I run the button twice, the debug statement appears, and when click end button, it will produce a new sheet with the same chart.

What I want with the "chart" button is, when the sheets name "CHART X" already available the code won't run a new sheet, but can only go to the sheets "CHART X".

Is there anyone could help ? thx in advance.

 

[Andrew Poulsom]

Try adding this at the beginning of your code:

Application.DisplayAlerts = False
On Error Resume Next
Sheets("CHART X").Delete
On Error Go To 0
Application.DisplayAlerts = True

 

[prima satria]

Mr. Andrew,

As instructed, I added the code and when I ran the button, the syntax

On Error Go To 0

was highlighted in red. Then I tried to write it off, and ran again the button. And it worked !

Thx so much, may God bless you.

 

[Andrew Poulsom]

Sorry for the typo. It should be:

On Error GoTo 0