Hi John,
copy this code into the Visual basic Editor (Alt+F11), and run it.
Code:
--------------------
Public Sub Max600()
Dim iCnt As Long
'Set cell to hold first result
ActiveSheet.Range("J2").Activate
'Simple loop
For iCnt = 1 To 650
ActiveCell.Offset(iCnt - 1, 0).Formula = _
"=MAX(B" & (600 * (iCnt - 1)) + 2 & ":B" & (600 * (iCnt - 1)) + 601 & ")"
Next iCnt
End Sub
--------------------
Not sure you mean 650 groups of 600, but you can adjst the loop to
suit.
HTH
Art
--
HiArt
------------------------------------------------------------------------
HiArt's Profile:
http://www.excelforum.com/member.php...o&userid=19953
View this thread:
http://www.excelforum.com/showthread...hreadid=472893