I have multiple sheets and there is a single chart on each sheet. I
want to use this macro but not all charts are named Chart1. Is there a
way the macro can be made to work no matter what the chart name is?

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