If-then statement that checks for existence of series 2
 

I would like to code an if-then or Case statement that does something like this:



If ActiveChart.SeriesCollection(2) doesn’t exist, Then



ActiveChart.SeriesCollection.NewSeries.Add

ActiveChart.SeriesCollection(2).XValues = "=Sheet1!R1C9:R2C9"

ActiveChart.SeriesCollection(2).Values = "=Sheet1!R1C10:R2C10"



Else



ActiveChart.SeriesCollection(2).XValues = "=Sheet1!R1C9:R2C9"

ActiveChart.SeriesCollection(2).Values = "=Sheet1!R1C10:R2C10"



The only difference is the NewSeries.Add. What do I substitute for doesn’t exist? 0 (zero) or False?



Danz98

If-then statement that checks for existence of series 2
 

Try something like:

Dim Ser2 As Series

On Error Resume Next
Set Ser2 = ActiveChart.SeriesCollection(2)
On Error GoTo 0
If Ser2 Is Nothing Then
MsgBox "doesn't exist"
Else
MsgBox "does exist"
End If

Regards
Rowan

"danz98" wrote:



I would like to code an if-then or Case statement that does something like this:



If ActiveChart.SeriesCollection(2) doesnt exist, Then



ActiveChart.SeriesCollection.NewSeries.Add

ActiveChart.SeriesCollection(2).XValues = "=Sheet1!R1C9:R2C9"

ActiveChart.SeriesCollection(2).Values = "=Sheet1!R1C10:R2C10"



Else



ActiveChart.SeriesCollection(2).XValues = "=Sheet1!R1C9:R2C9"

ActiveChart.SeriesCollection(2).Values = "=Sheet1!R1C10:R2C10"



The only difference is the NewSeries.Add. What do I substitute for doesnt exist? 0 (zero) or False?



Danz98

If-then statement that checks for existence of series 2
 

thanks Rowan. I was able to get it to work. Much appreciated.

danz98
"Rowan" wrote in message ...
Try something like:

Dim Ser2 As Series

On Error Resume Next
Set Ser2 = ActiveChart.SeriesCollection(2)
On Error GoTo 0
If Ser2 Is Nothing Then
MsgBox "doesn't exist"
Else
MsgBox "does exist"
End If

Regards
Rowan

"danz98" wrote:



I would like to code an if-then or Case statement that does something like this:



If ActiveChart.SeriesCollection(2) doesnt exist, Then



ActiveChart.SeriesCollection.NewSeries.Add

ActiveChart.SeriesCollection(2).XValues = "=Sheet1!R1C9:R2C9"

ActiveChart.SeriesCollection(2).Values = "=Sheet1!R1C10:R2C10"



Else



ActiveChart.SeriesCollection(2).XValues = "=Sheet1!R1C9:R2C9"

ActiveChart.SeriesCollection(2).Values = "=Sheet1!R1C10:R2C10"



The only difference is the NewSeries.Add. What do I substitute for doesnt exist? 0 (zero) or False?



Danz98

If-then statement that checks for existence of series 2
 

You're welcome!

"danz98" wrote:

thanks Rowan. I was able to get it to work. Much appreciated.

danz98
"Rowan" wrote in message ...
Try something like:

Dim Ser2 As Series

On Error Resume Next
Set Ser2 = ActiveChart.SeriesCollection(2)
On Error GoTo 0
If Ser2 Is Nothing Then
MsgBox "doesn't exist"
Else
MsgBox "does exist"
End If

Regards
Rowan

"danz98" wrote:



I would like to code an if-then or Case statement that does something like this:



If ActiveChart.SeriesCollection(2) doesnt exist, Then



ActiveChart.SeriesCollection.NewSeries.Add

ActiveChart.SeriesCollection(2).XValues = "=Sheet1!R1C9:R2C9"

ActiveChart.SeriesCollection(2).Values = "=Sheet1!R1C10:R2C10"



Else



ActiveChart.SeriesCollection(2).XValues = "=Sheet1!R1C9:R2C9"

ActiveChart.SeriesCollection(2).Values = "=Sheet1!R1C10:R2C10"



The only difference is the NewSeries.Add. What do I substitute for doesnt exist? 0 (zero) or False?



Danz98