Sub Macro1()
' Create variable for Workbook Name
MyWBName = ActiveWorkbook.Name
'input single quotes and Exclamation mark around wb name
MyWBName2 = "='" & MyWBName & "'!"
' Assign variable to third series of chart number 7
ActiveSheet.ChartObjects("Chart 7").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(3).Values = MyWBName2 & "Data3"
ActiveWindow.Visible = False
Windows(MyWBName).Activate
Range("A1").Select
End Sub