wrote:
Good morning Rick,

The range that is copied by copyToSummary is Worksheets("CRANE WT
SUMMARY").Range("A3:G39"). It's the first argument to the function. I'm
not sure why you are getting an out of range error. On what line does
this error occur? If it is in copyToSummary, what is the value for the
month that is being passed to the function (last parameter)? If it is
0, then you need to remove the '-1' in the following two lines:

a = ((month - 1) Mod across) * cols 'remove -1
d = (Fix((month - 1) / across)) * rows 'remove -1

so that it looks like so:

a = ((month) Mod across) * cols
d = (Fix((month) / across)) * rows

I'm sorry if it turns out that this was the problem. I assumed the
month values were from 1-12, not 0-11. If the problem persists, please
post back.

Regards,
Steve
www.swiss-ins.com

I'm sorry about that, that's probably the formatting that got screwed
up when I posted the code. You've got to remove the line break after
[quoted text clipped - 21 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200611/1
Hi Steve just a short note to let you know i got my code working due to yours
and others
much appreciated help. i could not correct the error for the private sub you
gave. So i took your basic concept and code and with some hard work got it to
do what i wanted it to do.
Thanks again for your help and assisstance,
rick Mason

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200612/1