Putting graph in user named sheet

ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=("CurrentSheetName")

Sheets("Log Sheet").Select
    Range("B10:B39,J10:J39").Select
    Range("J10").Activate

Sheets("CurrentSheetName").Select

Sub GraphIt()
'
' GraphIt Macro
' Macro recorded 26/01/2006 by Luke Morris
'

'
'Add New Sheet
    Sheets.Add

'Make sure the name is valid
    On Error Resume Next

'Get the new name
     ActiveSheet.Name = InputBox("Name for graph?")

'Keep asking for name if name is invalid
    Do Until Err.Number = 0
        Err.Clear
        ActiveSheet.Name = InputBox("Try Again!" _
          & vbCrLf & "Invalid Name or Name Already Exists" _
          & vbCrLf & "Please name the New Sheet")
    Loop
    On Error GoTo 0

'Remember Sheet
    Dim CurrentSheetName As String
    CurrentSheetName = ActiveSheet.Name

'Make Graph
    Sheets(CurrentSheetName).Select
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("Log Sheet").Range("B10:B39,J10:J39" _
        ), PlotBy:=xlColumns
        
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Cash Flow"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Time"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Balance"
    End With
   
    Sheets("Log Sheet").Select
    Range("A1").Activate


End Sub