I'm not sure you can name charts. You generally refer to charts by their index number. For embedded charts in a worksheet you need to loop through the ChartObjects collection.
Here's an example with the following assumptions:
1. You don't have any gaps in the number series (ie, you have not deleted any charts)
2. All data sets are evenly spaced
Dim iMax As Integer
Dim iMin As Integer
Dim iTick As Integer
Dim iJump As Integer
Dim i As Integer
iJump = 7 'rows between data sets
For i = 1 To 4
'Values for axes are in Column F.
'First set is in rows 2,3,4; subsequent sets
'are offset by iJump
iMax = Cells(2 + iJump * (i - 1), 6).Value
iMin = Cells(3 + iJump * (i - 1), 6).Value
iTick = Cells(4 + iJump * (i - 1), 6).Value
With ActiveChart.Axes(xlValue, xlPrimary)
.MaximumScale = iMax
.MinimumScale = iMin
.MajorUnit = iTick
This works for 4 charts. If you have 20, or you don't start with Chart1, change the loop to suit. You will need to adjust the cell positions for your layout.