Rename active\highlighted chart Name using MACRO

I was able to use macro to create user highlighted chart using the below macro.

Sub CreateNewChart()

    sSelectedRange = Selection.Address(ReferenceStyle:=xlA1, _
                           RowAbsolute:=False, ColumnAbsolute:=False)


    ActiveSheet.Shapes.AddChart.Select

    ActiveChart.ChartType = xlLine

    ActiveChart.SetSourceData Source:= _
    Range(sSelectedRange)
End Sub

Now is there a way to rename the active chart.
Because i use the above code to create diff charts.
Also need a reset code so that it removes all the charts from the sheet.
Reference thread :http://social.technet.microsoft.com/Forums/en-US/excel/thread/eb050e24-4e2b-4e60-89c3-5f9aeb2c82e3