[Excel] Making Chart Series Invisible

'-----------------------------------------------------------------

'Make a Chart Series Invisible 
'----------------------------------------------------------------- 
'This macro loops through all he series of a selected chart 
'and for each series in the chart, it asks the user if they want 
'to make the series invisible 
'Making a series invisible simply means the following: 
'-Setting the Border as None 
'-Setting the Background Color as None 
'-Setting the Marker Type as None 
'For this macro to work properly, a chart has to be selected 
'Copyright: vbacentral.blogspot.com 
'----------------------------------------------------------------- 

Sub MakeSeriesInvisible()
  Dim s As Series
    For Each s In ActiveChart.SeriesCollection
      With s
        resp = MsgBox("Do you want to make series: " & Chr(34) & _
                       s.Name & Chr(34) & " invisible?", vbYesNo)
        If resp = vbYes Then 
          .Border.LineStyle = xlNone
          .MarkerBackgroundColorIndex = xlColorIndexNone
          .MarkerStyle = xlNone
        End If 
      End With 
    Next s
End Sub