Hi supes927,
Try:
Sub AddNewChart1()
Dim Rng As Range, chtChart As Chart
' Set Rng to the row with maximum value
With Range("I9", Range("I" & Rows.Count).End(xlUp))
Set Rng = .Find(WorksheetFunction.Max(.Value), LookIn:=xlValues, LookAt:=xlWhole).Resize(, 2)
Rng.Select ' <-- it's just to show
End With
' Try to delete the previously created chart
On Error Resume Next
ActiveSheet.ChartObjects("MyChart").Delete
On Error GoTo 0
' Create new chart
Set chtChart = Charts.Add
Set chtChart = chtChart.Location(Where:=xlLocationAsObject, Name:="Sheet1")
With chtChart
.ChartType = xlColumnClustered
.SetSourceData Source:=Rng, PlotBy:=xlRows
.HasTitle = True
.ChartTitle.Text = "Scores"
.HasLegend = False
With .Parent
.Top = Range("F9").Top
.Left = Range("F9").Left
.Name = "MyChart"
End With
End With
End Sub
Vladimir
P.S. Warning: the code has been fixed up a bit