max of a range every set amount

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

cynthia.derama@gmail.com - 30 Nov 2007 16:18 GMT

Hello!

I have to create a macro to get the max of a set range of 24 cells
repeating throughout the spread sheet. i'm not familiar with the
syntax of vb for excel. does anyone have any suggestions?

Reply to this Message

Mike H - 30 Nov 2007 16:45 GMT

Possibly

Sub sheetLoop()
Dim Count As Integer
Dim I As Integer
Count = ActiveWorkbook.Worksheets.Count
Dim maximum(100) As Long
For I = 1 To Count
maximum(I) =
WorksheetFunction.Max(ActiveWorkbook.Worksheets(I).Range("A1:A24"))
MsgBox ActiveWorkbook.Worksheets(I).Name & " Max value = " & maximum(I)
Next I
End Sub

Mike

> Hello!
>
> I have to create a macro to get the max of a set range of 24 cells
> repeating throughout the spread sheet. i'm not familiar with the
> syntax of vb for excel. does anyone have any suggestions?

Reply to this Message