Attribute VB_Name = "testchart2"
Sub ƒeƒXƒg()

    Dim chart1 As Chart

    Set chart1 = Application.Charts("Graph1")
    chart1.Activate
    
End Sub