My apologies! I see now why it doesn't work for you. I split the cell
address string (after posting) to fit here without linewrap; -I
replaced the commas when adding *" _* to the end of each line...
Const sSrcData$ = "B3|E2,B4|P2,B5|C2,B10|J2,B13|H2,B11|I2,B12|L2 ," _
& "B17:B19|T2:V2,C17:C19|W2:Y2,D17:D19|Z2:AB2," _
& "E17:E19|AC2:AE2,F17:F19|AF2:AH2,G17:G19|AI2:A K2,"
_
& "H17:H19|Q2:S2,I17:I19|AN2:AP2,J17:J19|M2:O2," _
& "B27:B28|AS2:AT2,B21:B22|AL2:AM2,B23:B24|AQ2:A R2"
...and so expect yours would error out after putting B11 in I12. Replace
this in my code.
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion