I need a macro to set min & max values for a chart. The macro should
search a data column to determine the min & max values. I can handle
setting the chart but am a little vague one determining the min & max
values. Excel97

maxValue = Application.Max(rng)

the other is obvious

--
__________________________________
HTH

Bob

"Fan924" wrote in message
...
I need a macro to set min & max values for a chart. The macro should
search a data column to determine the min & max values. I can handle
setting the chart but am a little vague one determining the min & max
values. Excel97

With ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue)
.MinimumScale = Range("F7")
.MaximumScale = WorksheetFunction.Max(Range("E10:E1000"))
End With


here, F7 is a cell with the MIN() function. I like this because you can also
show max and/or min specifically on the chart if the values are on the sheet

"Fan924" wrote:

I need a macro to set min & max values for a chart. The macro should
search a data column to determine the min & max values. I can handle
setting the chart but am a little vague one determining the min & max
values. Excel97

Thanks guys. I was really stuck.I made some small changes to Patrick's
code:

Sub TestChart1()
With ActiveSheet.ChartObjects("Chart 1").Chart.Axes(xlValue)
.MinimumScale = WorksheetFunction.Min(Range("B3:B17"))
.MaximumScale = WorksheetFunction.Max(Range("B3:B17"))
End With
End Sub

Instead of using Range("B3:B17"), I would like to read the current Y-
axis range and use that instead. Any ideas.