I got this code from article XL2000 on the Microsoft website which works for automatically setting min/max scale for a chart. However it uses data from the 2nd row to find min/max, but I'd like it to use data from the "StartTime column". So (min=2, max=5). How do I modify the for loop so that it loops through the column "StartTime"?

Sample Data:
Task StarTime--Finish
T1----5------------6
T2----3------------7http://www.exceltip.com/pl-f1_index
F1 EXCEL
T3----9------------3
T4----2------------5

Code from Micorosoft (set min/max scale of chart):

Dim ValuesArray(), SeriesValues As Variant
Dim Ctr As Integer, TotCtr As Integer
Dim X As Series

' Uses the first chart on the active worksheet.
With ActiveChart
For Each X In .SeriesCollection
SeriesValues = X.Values
ReDim Preserve ValuesArray(1 To TotCtr + UBound(SeriesValues))
For Ctr = 1 To UBound(SeriesValues)
ValuesArray(Ctr + TotCtr) = SeriesValues(Ctr)
Next
TotCtr = TotCtr + UBound(SeriesValues)
Next
' Reset the minimum and maximum scale to the minimum and
' maximum values in the ValuesArray.
.Axes(xlValue).MinimumScaleIsAuto = True
.Axes(xlValue).MaximumScaleIsAuto = True
.Axes(xlValue).MinimumScale = Application.Min(ValuesArray)
.Axes(xlValue).MaximumScale = Application.Max(ValuesArray)
End With


Thanks!