"Barb Reinhardt" wrote in message
...
I'm thinking this should work in both

Dim aWS As Worksheet
Dim myWS As Worksheet
Set aWS = ActiveSheet
Set myWS = ThisWorkbook.Worksheets("WMP")

aWS.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(2).Name = "=""Male"""
ActiveChart.SeriesCollection(2).Values = myWS.Range("BM4:BM64")

--
HTH,
Barb Reinhardt

If this post was helpful to you, please click YES below.

No sorry didn't work