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