computing annual maxima

Hi, Try this:-
It will Give you a Max for 3 consegutive day for each Year in column "A" by Date.
Results in column "C".
If Data does not start in "A1", change the "1" in "FirstYr = Year(Cells(1, "A").Value)" to whatever is the start Row number

Sub AvMx()
Dim LastYr As Integer, FirstYr As Integer, c, Mx As Single, Yr As Integer
Dim Av As Single, n As Integer
c = 1
LastYr = Year(Cells(Range("A" & Rows.Count).End(xlUp).Row, "A").Value)
FirstYr = Year(Cells(1, "A").Value)

For Yr = FirstYr To LastYr
    Do While Year(Cells(c, "A").Offset(2)) = Yr
        Av = Application.Average(Range(Cells(c, "B"), Cells(c, "B").Offset(2)))
        Mx = Application.Max(Av, Mx)
        c = c + 1
    Loop
        n = n + 1
        Cells(n, "C") = Mx
        Mx = 0
Next Yr
End Sub

Regards Mick

Thanks for the reply Mick. I didn't get very far with your suggested code, however. I got a run-time error and the code statement it didn't like was the following:

LastYr = Year(Cells(Range("A" & Rows.Count).End(x1Up).Row, "A").Value)

I'm a newbie, so I am not sure of the context for this kind of range referencing. My suspicion is that it does not like the " End(x1Up) " part, but I only know enough to be dangerous. Thanks for your help!

Chuck_p

Thanks Mick -- It worked after I corrected my own mistake in transcribing your code. I appreciate your prompt and very able assistance...

Chuck

Hi, If you've got it working you'll notice you have the Average/Max but no years.
This code should address that.
Column "C" should now show the year taken from column "A" (Dates) and Column "D" should show the Max/Average Result relating to that year.
If its not quite working Correctly , perhaps you could post you File (.xls).

Sub AvMx()
Dim LastYr As Integer, FirstYr As Integer, c, Mx As Single, Yr As Integer
Dim Av As Single, n As Integer
c = 1
LastYr = Year(Cells(Range("A" & Rows.Count).End(xlUp).Row, "A").Value)
FirstYr = Year(Cells(1, "A").Value)

For Yr = FirstYr To LastYr
    Do While Year(Cells(c, "A").Offset(2)) = Yr
        Av = Application.Average(Range(Cells(c, "B"), Cells(c, "B").Offset(2)))
        Mx = Application.Max(Av, Mx)
        c = c + 1
    Loop
        n = n + 1
        Cells(n, "C") = Yr
        Cells(n, "D") = Mx
        Mx = 0
Next Yr
End Sub

Regards Mick

Thanks Mick, I did add the year. Thanks to your help, I just learned a whole bunch about macros/vba programming using cell range references!
..chuck_p