Wow! Talk about doing things the hard way!! Wouldn't it be a lot
simpler/cleaner/easier to use a formula?
HowTo:
Create 2 local scope Defined Names; 1 for the months col, 1 for the formula
that calcs the average...
-Select A1 on "2016" and open the Define Name dialog
-in the namebox type 2016!ThisMonth
-in the RefersTo box type =$A1
-click the 'Add' button
-in the namebox type 2016!MonthAvg
-in the RefersTo box type =SUMIF(A:A,ThisMonth,C:C)/COUNTIF(A:A,ThisMonth)
-click the 'Add' button
Repeat this for each sheet.
-in colD enter the formula =MonthAvg once for each month you want to avg. (I
put it in D4 and D7 for your sample data, but anywhere in a month's range will
work!)
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion