これでは以下のエラーが出るのですが
どこが間違ってますでしょうか?よろしくお願いします

for i = 1 to ActiveChart.SeriesCollection.Count
If ActiveChart.SeriesCollection(i).Selected Then
beep
endif
next


実行時エラー'438':
オブジェクトは、このプロパティまたはメソッドをサポートしていません。