Dim 네이밍 As String
    네이밍 = ActiveSheet.Name
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("네이밍").Range("J100:J1099"), _
        PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="포트폴리오분산"
    ActiveChart.HasDataTable = False

그러니까 네이밍이라는 문자 저장 변수를 만들어서. 새로운 워크 시트에 차트 만들때 차트의 자료로 쓸려고 하거든요.....

근데 자꾸 디버그 나네요....왜이러는거죠???ㅠㅠ