I figured it out (m)
This is what you must do:
Dim ThisSeriesCollection As
Excel.SeriesCollection
ThisSeriesCollection =
ThisChart.SeriesCollection
If ThisSeriesCollection.Count = 3 Then
If ThisSeriesCollection.Item(1).Name
= "Jan" _
And ThisSeriesCollection.Item
(1).Formula = "=SERIES(Sheet1!$B$7,Sheet1!
$A$8:$A$15,Sheet1!$B$8:$B$15,1)" _
And ThisSeriesCollection.Item(2).Name
= "Feb" _
And ThisSeriesCollection.Item
(2).Formula = "=SERIES(Sheet1!$C$7,Sheet1!
$A$8:$A$15,Sheet1!$C$8:$C$15,2)" _
And ThisSeriesCollection.Item(3).Name
= "Mar" _
And ThisSeriesCollection.Item
(3).Formula = "=SERIES(Sheet1!$D$7,Sheet1!
$A$8:$A$15,Sheet1!$D$8:$D$15,3)" Then
MsgBox("DataSource is Good")
End If
End If
Woot! Sometimes I surprise myself. LOL
|