ࡱ> |$  !"#%&'()*+,-./0123456789:;<=>?@ABDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{~Root Entry F!C)Workbook1_VBA_PROJECT_CUR"!Ctls   !"#$%&'(*+-./012345789:;<=>?@ABCDEGHIJKLMNOPQRSTUVWYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|~4=Eϵ=+TdB%8prJC-6"m1hF6 [\1o+nLq/ 5Ǐ_"RpM+_:&妴mUBa2v%]:d+:)0CW+훭#ƊO޷5̴{ k͂4i/6^J^nLC6(oOw59 )j*]VtAEn@?!mߎ]|F n6#ģʒBp4X%CoA4KY 1%-8Z_ӥ6cK:K_/ m6W Ak-i:BBՇyJW_F!ݡ:k*I5arϨ3-g~Nbý`ND܂O8 HB.&Lw+C,}"ɀ e`rNa/Vn/9"@t ZO/6 ?/!7EOr2R{% lPE#DmG\pg>F91x cjea`d^(g1C8Za <~^q𡨅,yNփ1|l~hNJ=Y.] ",G1,]^Oߍ9K[7~u1`-C| r}̍GJѧ1S1'kVէ#> +#`-R-'1VwV)) ɝr[){L1yt^.rH5hhq1UPnN՗kYP\ƥΧP1 YH%'Y;m[1fSLLF3eCךNJ 1WvU'4zJ?uW:V1,_Ip.m 1tKWmVsWt/,Qc1 SBx)DxaG.J@w1ߒug kbزFBBqKi>1Գݰ9|.d1A֐_8.b󴡱r1׬dP)6۴/Ա1'<;-* ;1ܾhz@ft4c|13/^R'7A1̱6E4V펰1ط췥q'0QS1!\h6BgamT ƽ1Z>> 8tl9GHz1*D2Dat',-ЖZ(yӜhrr[!x41m(YsJ3pO_nu1w}")v6-zt13B?[% 篥&И -`?kՑdۨ R$X64 !!!_p53C G]P+N#g"}h9燌q (> <3I5'5{s.J9x84upRHGy7CKӳ#BNc nS1]L*VuJ1F -(+.yvSƮ}_ҩVV伓 H4TAn?Hޟ,C/)km$ gIRmy,a Ei)⑉6=Xz"J.6 Mn#y#b<䱹)sJ;'P䠞r{$o<-4,/'-neHJf48gEI_Jw.L>EuJ);)s޵:o;L X#/Ef -Jb4LT\0/oqkA5$Ϧ,}AÑ01(xZ깅*Kس[USdރ#UfE,7?5CuL6NzM1e1~ZKKƶ@m- =mV7s9>Ӵd&9WD2xLR )HVw,+4~(V!)p28 7Ħ1RGJ~TkSAb\;NLL L h4Q l]nHz=-(P>3|z zUdհ:  &NӄfQkL>ުS;9}{YI?K6ddb67Ћ3jRbʾ,S!~CHl`(鱴bbHwg.?V]|2lbቔsd =䆈?ak7BI /!:v x+Hf":&GL*Tԕuv`q! g":v},֦v{F oܸIӴ6GAkkMf"a5s+xTq'Կ}@~g1XÎ-8C&¶l&\RXYŵ:͍+?oV6!۵R`;dN Z'\!gNq;z_C'1:x<-ۧBV썴7$l|vpB=Jɲ΅c%@^ 2wXmс֟EBtkŴYL *TyF;]zPkZ51#x)l3qzw#]J̊fQMĵfC=Xռtߐkiә+Ҍ /ā\|g_h~` M['٭ȫ}|AФlYB{gg^} [d zNL'6zV|ܐlk<eG/ܑ)`+q,6N']MF UU-LiM;뢣 3>۸&G۳Dێ9nPV`b9pJGpp=pM$dmy`}[lPʉ"ӟ~M[s@Xԩ.49igk00f'-F̣V/,C+٪P/q:1d rW5ƈ֣T ZK?>)އO7m*:r{ePL dͦxM@e|'50V-ddWӶ8}t 1fAQ :+dv$ !S-:J Pя lP-_-Mbw!HbU,e#{MN: `, >YImzn 72}H!Sb`:(͒>;a?%$5<7]n4- #gӦFp?wpjLk@ {#T b`=I#on)̿ K<ip^5"PIkZ.q{G`}@17 ¯sFXVt sLgH0ב {"PuEӚg`:NB|GXf ?ђb ݧ7 ))bĻSN W*K4! cIKRZM_*=)u>W&'t[9Uk& ^FiS=RuGR#3HL>wl5יW&##JKXA;^Vr.$BP~5PoixIS|.i/&g(cIɵho=ʒǷ:"*݉yK fu]]\'A(%6lʺ)kij7_O6@DzNSȾ*z]ʵ+-ǘ}N/"(plDz:0d5#!2U+!y?UVt<%XZaݡ炤.8f dlWe6CfK7n*{p. TC~OQcG;\i|tŦry%oImn:5ڿ 7Ջ $". q%.?u5Uig(|{Rg,7Y`CyE VJ1({m#ސ^,@7{f !LN 46aU[!$sh ڣ|SQQR'%{Ҽ!hQ&Zqv(*0ʗ*z{|%݀n/ǟ5,_2d+>܊dȅ/5wįp+>#* /[w_8mN-z߁^޲ɧԾbp``/fȫ77apjHb)?Q8^]DEbK+,Fъj{NO,s>,]qƊ p&0h5n{lũOa -b'"0*0 ?= 6FG4lqwD[[ܥ{ceټ6c<P8M[p@^l(Bx[Ow3T\H1a]U[aߍt_wI|dmu P-sXP_%+=$֙ˋd=-q+ &{s7P<:^(XፇTT=d5$R|>TEL Ė_t,/":5܉ˬ a]7Dj|FnRD %`D1Q$q:$n<>:d<=FB-4&cO9 ba/;@xC~ք,p6]s2Ɏhei9p!(ٸuVH"[ cr/:.@7ypF=$uݰ-/.&):qL0;,ܤ!e2ڕ॰>2;<~A1YCF bQXk8𴽸r~m ,_]JNkbR,8y,͎@+K[;j7=<0@H40wgklJP04Kh"ѵfMJD ǭ;Zdtc阽{q)X%A Tۏ ]fKbVQSW67 jzߢmV(*,$ jq}?wL8P4(WQN; $Mszy5st}n"%b,;V>!NQ'8/!->꛲9(ñIJLUy6ӂB7.ϳոǴ܇45\ұ470?3.U|&Թʰ0)<O67&na_4SP jN9i1^PVVr],W.<58<ܠs:9iY GK`l\9[p$&cN$!DћFM`N qTko!mN@J-շYM! $7BH]q-ʉ.+,~5܅"-"u)|[O.)} LtywE35LvHvd洙~w=3~}q8mqC]78ay3rɰ:%2RH&(/z94.a<n>Iqa/cmPfnjq}#) rtE]UsVJD}<BAx .S"%S8k ;tÆpNmDjZK9 ]'3}<B`0KW;BCm*kWeҸ &V&]rkR}<Y/z5oɕ Ԋ5S=1H/{c_@0M(lMt:6Hث}<SS`[#Uнauk`87 m:K}(!7c:~4H'aIFX@gG}(B2Q8P]:OJCa55"$&/40}(6=7âu3ϼ7m{}_(UqnhέOI Hd@Yn*Bo+RR$w.B-. 䶌\*3W>oFHJT~prE֍H~y{:-"n4!%f KKo/&މ|9k|2dK%%`09q8NqJqb8Y Y`H7X5M}M.0<0 JXޛo积0wN=sKGVB70^UPfw|TFeHWC<W~ ) f(&Gޖr]j j <ue\7Jz/پ9kWHQ.?, /wKHKUI҇bvzO2sƚhv9>");KI{;npDw6Ι,/xcۂM]g׉ FJEj>>5ɨ՛2·Ӛ=Cb-ځ<SEøK2|TUA!Yt'(q?=ZSH>'Wh)pk0ɥr!nc~ݦwk4^L^s{kR _<}*aj.䚄wcFpݒH=9ķNXJW_QXY8`0Vl;O;s\- X^F̈́}VHo0L4E媓Гk-=H"cᾒH>x(ꮒ(%F(BbA F 8)sk_}SΠl9 TFAv H/)1B=ɤ=5UwC{q]HCUD>a:6P 63%̆+RsEB|$ȟ5xS.m]rr>z: ݳ ԓZQ:\NuRH~^ߵBߏrȐKRS+M.zF3v*Pc(3r XSp9͉"ٺP($VvHNqݟqsg:`rDjA ;RLۮ45o  K! ;9#QyiALZ1Rq^AW=H'C0~ 2ڬ{r|UX2.<+{z+' n/2)cO@D3 Fxxɠ!EjY@L'^8Q!SRHŸԪِZ`4#l UV ]^YQG xLJўh@ϓGmF); XVR  Q<H .pv\.U==:m_G-{Z>oX=]dR'hJu.c碷f8&{ ztޞV <|*#}S'ȕ00^Ooc6\\gJWfk,u6ڤ 9 )Z/< qUh ģs`xI?;7*x1թ3+ w0f#8>  2|ϊA.<NmA3' ` yaJN%|ۖhe|L ϗd#D t& <nDk* #2qsDDaf^u~ac pe ^ZC$2a<#WxY#Cw zS2=}oka ˻s a# i:<{͢QdqgL**F ;*ք7֕_#&V} XhEL 4i;瀷ozd~}$As(2Eq+kR)Ph]3/SSnI9|.\QWp=* wb}ɳL#6Nq3|^tߩH9¢ Zu2y(ȃPv8)Fk :5 y i@oQz&2~ҔgN-%J[QTKѬ<Af}"H+ϝU9 z?WBUb ;Dn5 `BfMWg|mMZMUҖ?ſ Ⱦ2 k MMW\UcǑ(*\0}vme߁+}9̬i]r36Wu(C̒&lUX4fZ_3ݠ#3^qp%8#'BX.-G( JWd~\u]\Wҏqo[ ̓ȡ4ZImO>o?P,wڡkˢڀ7+1|J+Gч=BXR`(d+ DFX<H6 eX䘓=zJ " - {p B61怒RQ5&T] &`=@2C+PkxCC0nn x;y| $/ų*rC|"lYln9Y7P(EF #xK iH/VplPNt6W|L>3RBn+ZTC!-| %mh<> [./WM ~< 47 ,f[Ԃ e EɷрRԖyT"DbR:sekH|3xr\ 1q~tkg7wo₧B|YRdAs0NZƎ+oE!7%^ ( |Γ2~$/XwMWw]H\(ahq濓 HoDh+1{ړ-M-\7z~iT*fA*.6*h  ee2VH7iw 3}:4#z&:-qBdt,E*d[8FV/':Ț¶j--夅9qy/bEMaS fײO'{>D rXS" Yo[S22O]sceM4[`n1:Ȼ=~{E1jicm]MQRLг:$5ui.5tv!ǙH8FHVCߩ 'h:T,+h4M Q2Y+-[i,jLQ); o쫩˱ja4>c{݁!CL19(N=G@#_z,* |%OHg9 oƒ+t7Asw`$&>] ,`.s^!2|J y$z$I%6N[i9!m,m֠"Mxsŏ;U)fg/K p J|$cMrK,]ߍUKEE<}q$ah/2WH #]!PO$@ &ȟr0{ ,QmC_Z_7-O dp!:FQ:|FNд<G#۝n/: sTA.\ [ӁaE-xJ.ORR1Mu ui_"B+TݬI&W27e6fEETGr!]Q%6._oBY 瓿;4juz@M~ȋg'|~'BayUK ovw7)J >W9oAEE{&ez4M(7FP#_qMD.0 .0) Ja`m~Nql^xЊÒ(3l spoZPJ;?-a"(m/Mcf *C=$@Xl"b*M\딥5x j^ }IBOw4{H^f#'xo/Ǵߟ}OW=ǸS60~H|Ma2o0KhFm6mjyEӥ!7NSlK4 [iGpUu9@ghBF$":b@<2s5h LȄ+,1&wk.\u%)pW3 nkez)tZEx"u _i\I ?#I$]r$7IޒGpsSSm!Ә-(=O|@7 |y[Il(O,֍l_Y 묣%z$FTccz<[SF{DfMsdl#d1R ma.j]MO.D y;bL2%F8ǞH!O \xx[Yvq"wŰ]sw3sN[n)DvP xVʠ/ݑ ~V捷$_P1|CH.emt\ق ,:dUʚ ƲRuyV+־]`ToZR9 swsbۿH^X,B:Cc218$ ;j.mfͣܟlSe@}A;\"WSz2S#mA RĊ1{7UҼFT jACpHV:hG}Ҷbv0;MͷVzE5$,+1̋GZޛ249TE50'_M$1@7 g?scT~L7EB8ztQ׮S /9zj@N΂(*|B,64_ s&;*!_csoT/qC?k63FrtX?Nq8sƺVv穜FA~=\ $-b+ڧ~4V[b<ڥ>:n"ϰ(ۈMp'%]:)&<9Ur I~kډSqr"u#Be~rb{UD2H2m ^.91,sFD- d 11tr 3 Q% (j^.ӏ@w?g-ͤ%~$:2X' zM7ưN}:QO/"1.TmV465b9s ,2ĜxU &3?$Ĝ`n-rֻm~xwBsfﶩ|SWYʭ]G ;ceNn??./gm`H8YFni>LU+^3"t9-Y0'(v37Dyɰk$D%oǵ,S~5KhϜ K@WnykCkys+7L;[YE`ѣg@!Ջ|BZz6NDڇ#>ÀΖ𜷟xzm^lbU//. ЍVDD}/d߮Q4DKߓ&ʊx̹CW'R|ۆѢ\2ҶTwVϪSQ8LZцXMDz~)u|qڕ:LQg.&3I}ԾAgGZ)n3 VuB =2{}H%i^uTPT[rVN`syA( M!%83"vl2W=JK̑}~~l=ô<j+Jk#kݖ^K݆4mR[6Y0d`ն{4 CsFH`)X3g}TK Cz Uv2_UQcRAmC |ieX* +:/^Ӧǫk|2w'r ԅ=\I(x^36DHP}RrBv V; wh30{hOo/muJYU&k sgc_< Q 96=\HÎ."$׿bhqI,1LEu:6U?6 -F^4PXxO9R؊c8Kn7nKP܁-[m}N@  (knemO OãDj] v?P_6bzapI?RŪ}\Dx߃ڟA}YHtlv*l#9|G*{ g枝M+/ 8 ݶ_;TMҼ#ӉAloE]b40o;)Ca+Z6B+:^z 3Ψl]Q'u[E=:q dM7 3'rRCt_kkIUz2.+A53#̝r{Ÿ׫n:2Tyo:LY "#[aN(6#/+z;tW+XKF`U쁹Hacx9_v%jݪ_3MUhgtܪ|ӢVe 2F;Ql6*IR )yKń %"F!&f&4uLv(PiѨvB9~J@5>t!T%K5qA$FdDPJ ͻnK}eLp+\2@ znZͨk;[W=gx{GTR8bzk%[_0?u6t|"^,Xl|^[O ~S/ JLH=[L%iַN2L&q9RZo$;̟Wό\ e.RرVN=3I.p;dD4ݹʂ/UŲoy_坃/Ź5˶h NWvoPֹ}3UthIT^#%~Qt㉑/@cJ.\]OzڟѢQI .Q6,#[Z#b`d4%^I}X森/t- |%YsQ6xc䝚ɘhJ<΁_ |qX'=IG&_qJ$ ;S͝~G|ZÅ6wr &+I@!aFVT nܫ1ScKsKkӡX/ RJ>hlֹ칄>^FȫjD΅hH"t*aYzx4@ p-Y&}/Ks s$Nw+ Q^7ѵ[v0#, ,N| !#;.[|ZQcL'%U2bҐc&smE%PHq.w}Q]8SW|)%Ȁ84+%'0$Ž} rk42Ȓ&8a"D49xvHT gKCtRW eKiP?C^P,8V/$˳ U-g)"HSL9$,\oU^$\GKI%)ZE<F7QVG?[C?գ;堔c.yMz9?rD.FH)=SBov5%-( N}Kquylj&@n=:6D:4AoV)yy5ƫ, D\]ť(Х%%NzZtZ){M]}_#BzM(W'BI.pk-U "_ݙLWMjob]-{UjwuѺп=_:z ,1z_9岱z:@V\ FdܖmG{F%ͩ9O, :Wv-PEJєx 21n:!)W# (ǐZ xTOWQn!-n|KzCBV&ia-h4. g%܈YR$?oG&Na>XCXs7WH=X)1*s/!CrfN~#R.6h[BM%ӤܜT:hmqH,ZS N<`۾Ea .Dm#-;lƍ5U1rEz̼!g8evh\L*f^N7܋C]P !s'_:Am;a|$>@4J5=ͺ${: Htz^Al{7BF +D c4S׆\`-㧾=$Zt4!`FI'qbMڀЩd3K?5s,Mj1&hOFy[P5hH¼LTq),<$x{BXsuxCO6)mDX3D5G3\6ڶq 5R@S᪶mZwxDKKM[V&1Tԅ# tlsW|cxwOfS)Ճ?xwCq!3> ACR$XZ$ T9B%|6?E67_< 6]XQZx l|i (hp#g/=ًD͛illԄ܌G Ne04 4y`.vҜ7Z7:@"|[̐|½zjm% 5i?7z:)! N. ɴ X@xOtB}ʯUc0iu |oNRP6sa\hEۏuon_(SIC47lGnN%bTj@cɄtZtkriUȅ.9Ϋe/KIGiΦW3Od 6 N.%WYu1 JBiv@\L=n{ 㱿aa-n}F5OIysJMu*O0#-.Xq-DXDaSC\i-DD&ԋw'JCd&ԅ=;9*w\Z4ś/|jw-'+X?gIwF:i KA+@ 5\}"s-_hV+>`~$؜eQ/y-Ffwͣ(u'ͱ% 3Xz$oW?T1Z)gp+Lt9BbOuku[Z&Ӊ'oE?ڋ~gNƺi>=ϲb˦-le-?0I$;[VAV> T%uQYo/b?SU& 5+g.El/& %$`jk;t0h`BVȳ9/d97ggNs1l3g-XBXv$ <~n*M^cXffN<2mWD; R/ggm䓶a_<^r,#ҽL̲so( zħжXz|#`f ðo]8!x偩C$P}M 8[SAk**nOR$/3tȩe܅~}OưGg64hPPXXK _J>k4BԓKB锶ths4!x2:Ψ|́JU 6NFVnƍ5.DpuoYsx-:LPҮXVMA3.uV?dJwTdb^[5#߈7{W{tc̼~$73/ 34؈EvcGFb%Cxhӧ ph>S] ƤKfa籇31Ienw~]KYgc^<ރo;{<O_0}KNfq '.j6(-`*s m{WI)ȡj\f߱A%g9;{}X7Q6y0U+m|} (Flz84‰ʑ];u}40(L_f @AJfO L>یaSǴ9FEt8;Xٽ-\Xtur `Y.v^$g]L^!sq)-* J|PRw2h2+#nBJ  e%eJ+ju϶T u_-#uM.we`̒,Kb~ >1ۻQٹc^Lw-w2"ㄩH02l}oSf5ٜL_NAU0;o.X[n ~ETX<'IG& ["N0º6sكC-_JJf|tF |aPMX\xfä|=ۘ_rLy[9 i*ELNU7Gߌm_1 nM#!dplQ|i(j?2]3>$nRIvHԱj0/{roreγR4qe|5=1AKQš%c dXV ]r51}nf$kbu؂}ppBoS9cwN%:2-w s ӕ6Y[hVRHgx&OJnY{i '(ByyK`TM0jڈ !gVozҙ:R`KqVZ$S>.&.26I+U;I?:0CM,(B.N8T`nXv1p= MZk$/|ZahZ9Ɔ|}y cq":2ލ (s*^]clKPz+M{jCkjKl#jGCc쬲xzGÎL35<ON`t)xf6ۢ|àZ<7 o)cܓ0|'4.e[6.$Q[ýL!  ՁZ#J%`=J¢kҟ]v@[NbTCޜGļIQU͖47o!dN^2ӆbZlUtqٌڴ?g871ĵ1=$ω=%򱷳݄ljݰʳϵ?<́9`&`~oki^YPs[j?Q:l=r")c! !"鐕Z1gFTIv Y͈3+1};b>?u(?6:/nFs&w+K ޭ`_ξ g&nHqp]+Ыv Wylˆ10d&oNEgcxs{mvKv;% D*~b͜Kl"=a7)7u1ʀns)  nzӨ!9dԾTo )2<<Ņ#}173bA)C)bSQ%_u[6qErJ{4X+WMPD?'=|0ߤL|Z#<3N<åΧ%]k#ypٕ"Dq5#ݛm:ZJG* 9ReG [v $XiNg"x< >@bҒނ!*kuDp }1 kȍ `. fnY 36_9O:J Y;BbӃ L(5 U}!/A1 DD}̦|۝T'ܮ:ф^s2Pj2#/cHZ^hT}_ s*WT+sG3O?;T(NzTE3?\Y]5kc/m8~v|'+;0q0umaIlU0IGÏgxW-9:YvL$Sj{f/qGת%Խo݄񫡂}i>wݹFjI:78׼"Z`]H'3p;*dˣuVT|c7rf*v>f|_j/X: 2\[amA.r7-ngKBZ[f.:Ƈn`si%D-PӀ`%ʡ)$-6{y4 ΪIj: !{IΓ3hP`&CD w\f{lŎ7.u~f(o딄 xF~$ڮk>%3І´ -ƀ Ưź9beVt%Ou]t:9͂0yuʂ mс Ägꖿ)0)KoWۜ޲F`Dn:c3_KHɈʏ֮튙 z_ҀUͮ5gWx 5 ( SwږXeDTv}͓ږ>KvXl&|o" ɑYٞH;O3S.®Njr\mju۵C4߿(F3n`f@AA[0߀0 <C`<ҟœ6)pz$b+34U7w jFV䗧I|Ѳr5M ǫ~?,SB6-(%*0+oJcI|b.X`VosVsX {*B)&u,Zc﮾hw]2aHY]?G3$B۰5Wց\e4@2a=_?%BHT'_sp@qTb%G ,`p 2Ťrױ|8:>۳9.能#'űk=(<#>◵,%黟a<7#>ϑ0$,Z<8mgTVD<2l" u.0Z/Z-gxt27iQ UF hm1LA^$W)OVIn-N@w(4ŸIE?c)&uԾS!BR2dyTû%3oE|4r~My΂dIѰՐD ј=hm܈މ g9IBH#¿a2`RѫFҋz ǣ\*yl-33,W zϦBy ] +O0t:I`8v k`H;Sϥ i&R4j֣g&>c/2Fdɛ U &/#ʁ')ߩL-K&!m&[Pޜ&6ce3 iFZjO(I֬'*唷iU!372q0܎WUf+i.jz`AGmQ'f<-x;'@%&-kscB ??Z*2 >Xmc{:ϲ3X8ٮD0P!4 a Ӕ`ZA謂n++҃Tq}nQT/:~rT0vL8c;$2bcdѸE2T{D֏t?ʏD @{QKϭ!զY`VTy T]st/ AMDȶBi9\A`]ʼceDQK[@]̇';NSOǮ $h7po%DXZg$A0WxfGoFPMv7af}&7{썬P^~'˽=g}?-Ӂ3[mim C\KIal;C3]L|fl ~(QY1F+ yj\}8 ZO Lmv.!EZsV/  h ʍg_N*t+AK`%9%W'E>Iǁc9Z oYm|u=vtk (|Nƃce;3 :hQxjGtKZr &]1{߬'ωk1(Zf#D)D AMUD֌oJh" IujV]p8x*ߘ w'tMFАމ`Dv«ﾛM bcR~Ԍ~yMj!ת=B1`}N&mW7=g} 4>QIGCMG X͙@_V>sDʝPk"H[BW͡Wσbբx7JFH? wKD # (1U`aO3`!CNe!%~u݁Pzd#lfNymLzE4b%؏X>5f`F%ƂxV!Y0t`kXb}Bp' oj:4sԦ؝!np ܆d4^xW(zI2NL99Yk<V,,ZXY̾H jfL)kx8n͋I4wj=Y.E@ыL[x0DJK$CCYWZі֜Jd_-[A''<“a-qU(u 'Un(,wl&XφJV5<Evp|7)W ̡4z bw{/~(Fޚ@aO%Rr> IOj`oT=CZo pP$rXaYis:bȷ#1j^G/cqr}E4G/h=$B40&ATLp"] o[Uv3y#"4z}jGT 0bwZfl>z F1OB.x3!X'ع ke8 KmpEB_xP0KDJ%,})W {.F HU/,&) ] 69k5*Mj |/۳?B5h=:4y.ܻ+^p;2"d hao,BlF[urc(c_tJ?O9`D N{8ӚsIX큻2vbq)#wl 477o |IW [=z} z),aF=} gV>"68} Y )A } O\ܷft} KVK} Y˅y} МF2<|} V<7j } ~_?xf[s =h\-ߑ & sp0M,RFo@@9  +{n3>k` k XSJ{6֨8=?SaZۻ6_ XA xmJ#aNc= 9WGY[ ]"@}$_'H-pY63jIoBބ{)\V-j S*ja0)~eՂŶ+Pdӽ:#qߘ$KR@b>)Dݔeʧ{DKѤc!*^F\>Y&ʬ|GD$xhZz1/Gΐ٦btH} 9v"SK˵iW,> Ӹ5 o>6+ٵ 5M,2ya6YgNhG {ȐFe?rrt`y.n"M 3rdlɱ@Wq*f/NžqxF ƒb@7UB kUL`šI i 9+S&{1BCbnhP~Mok = /el"EesԌJ$.a=Q;u IF_cqyi,)]6 'h\ͲCW M #s'Vi֙T.) ಍1'R3 'CYlِU)-T V2^W ]lO<;:x1X`F[8㑧g oka/]͡h1W)|Ep%TwQq qȏdw 77ӴX*d (Kmaƾ ɕU yu:޾j,_+Q  Ve 26%HK-~4 /u]l8~ (N>_l6 (* ?MWSJd TyMy … ub(K ڍ:4ׅ ]Fٻe笽ZG`n썅 TqM{ Jl!Z-)!Zt [Z09Ӿ ^.) ٳ RX c ,uP4r|(`, 'g? `ʽEPuy Cz: ;+q+bzUrB:W+KЦeDd:djGm#ANurx ɥFH9eȡ rJ!~ {Noyt(q_@q'H Զ"-ξhЉ/ \t  6 8V[ {56~)C5 gIu׉H  "YN5  4 M(k / "o~.:& G8g I LaطUDp<;kkh^.m;'L❿ݢmYeWEz1:f<#h1LWuP Lsru=2gtɥr26=i/t k)#HB}<;NMNjчNM7+a4`Kϖlb'K?]'mZhu ?%!4>rzԬzgMQTJ{Ȼ*7xqD:$q?|A>g06=Gų~GKI; hY?P:ZڠeuxBشU 4.㛣Dؾ `o3p~ 3K '׸J5= bzE# 6%g pqC -(aC d6~ bߐkQM Dz8҃ 2'i G h|iF ~7# ! Fr~ <<ʅ '* Q3~ 1Ur; t]+N^dmZlf σ ~F UO>6l IFrDD~ !?.. X̧> v$UB G#jRF/4dgc 6mu.ApF*~ gd@ _)9Jl~ u:l ͓0S9Z\':rL^f*N" ~ C}8;" E9xzc c.9Лy fPΨF_yA x6%B) x"U toO)6_ [CKvzR" P61UEþ lX$ 0N y$0E nL +:&|m"V _5`/t0Ht (>ڨl ^P_u< ^#j06# 9 p'Vu ~tW#"$ v+mJɗ*T KBJ싌1ƾ &S) bo(ѢXw >Պ#f^l bp sgyϕ d57M!=\+ *+~fR H }ᡓ'3 0Ğ^ f\ TSTE ݲS oaBqnl g}Uv  ɱ 6ɯC V (s1hIx?`Zڪ^|m!lOǝ ! {jr-";hdvYQDw$RjY&>tU@*{j9俼e6I*?YA+UCg/W)H݌3U}f8hQHh̓}ߎ7^:s+ц rS$p> ݢ9pȦ-0d&;Q}'G B:I Fڒ[}Jzr"0baw*ͺ4 {V|qa0ui ;z Ddɏ|,] j4Zi՞HdgFZ.0+eI^갵ׁhCϨ *DHoHFmPD]B!HmjS|I,`%DׂrҚiJA\BҢY8ZObR) ߵUQ9BI/]`y < \DWy8@īoVh61p/E8Cb4 ^o8!*2ėTdH#|˰a7m1ћ<1iITKs>I<0&yH$ ]z7m@JoX@^'69 ~u2{Ŝ9ZH:e>.9UjT: 9 mXP:kPЛE qV]WE&,LW&y 䓶!}kX?cC!T)Eh[B6ƞX٦Md09rK;O+-*ƃ K+дW5I$vkN&%[b{%xoo'CMڄ#)cu9Ms"0+8AkAPn^lf7`TP 08b-~2;H3fߢQSo17.Kff;vZ6nmj"nix3N$#F$ϰn`E='o K>F]lkpb(k.!|)!.|˕Uo@w3ޕA`qZiƊ:lyUX˻\JA[;|sArn/U%'*Dem7L%=S7/*?NhBb} ;UZj`OiI_n!ih0I%usueTa7<}yy6+b2n޵uZʁ!RbZxWI"s;СkD,v+'gٲG) +l3^7D& zHCLVOL޸UZ:-ϼgG8K|!moMDQWQ ZO ::̚~W+f=F}Z| _ Fm:3_q*8+lpTr%S]1F>ßIs56jGF\0$,GW(Dqɓ`XYwaͷOT46`Hz]U zyX؇Gq&\Ss7'ADU((Iyl)+; 3Cz}M Cwu In`C CpQНXAz:eՇqT ƍvj!0t}%fc*US24' QtMnxqQ`냎H/i# Z'N0li›hN#0@NGaCX!X<LU!u̚ CP E0zk=D:s "rҀhvJnǵw! U/TzENR5VTGoǘN)(r@I)ލ%ИTed96+rm|t9Ӝwx֣Hm QuJØM!p5488SMS5;wIRrDD}kai]2!NCL,#Q&z >d ^D['a~xofuzriop|\h*x>1|*BXzjnx:΍|X|8ЁKU4;#7So7pzkPC?Td+p>! ji R<@qEV:oxa!sf6!n1Ǜ-Z^L)*tO tS'tpQ}/xlľz]lTJ}(Pi&H/1$_NWkl %f">4,BNI1C v rW(,2mfsb(ZٮzlA6 iͻCOlwҠXQ/en_j,t$Ӈ\>߫k'1K^ I:T6~wR]N3]>ޗp iDKNrIS(1ÁYti~uG=; .PӍx Hn#/0y<Tb<볥zQ8!쿽@ ?>}o;YDbaВ!e>Qeh|Ǖ(oT6PIٽ+#49:Nu77ӜJCk7;ƫjh6+Tw]p |i*OK~tbr!mWDh`OIe#b$AGW`z\7%A1Cq7 2Z=5hγ89hicv}(cX:i;f„v ĥG.Ay@ʽt L]~RE6'\i@F*F`ʖ,KEE.b|&uU犘ʇR2a^U-@.i~ٷaB b4)D]J!}s D;W;i~U޵'Y-|j\ :"Oo79 DL@"QX|W_mj+ YF{h #Hv:ws߲P`ypA.C6qٓѫ T S"ޖC%x؉\׍!@84^TkM"qbֵsSݤR/Hk5\뇐PMh' `3::0wXyY1fL_jvA'A0B?xq vG`jI7-wCS=&F32wTNEPqc a2n#_AU^܌kK.Ո-к>UcR(% A.4H_uk5mCyMtAVEm7) :J}n+MgG MTu"I*Ɯ@98]'L tiJM9T\X1I|i꾅d,#6 lw0@߄a's;m<0 \e|2!=< %ҤM`ܛ\1H=Mm-m]X6sɡ\)[ -˸lszC^3g֚'LYKk;z|F+y ~Vsqs84TiXӴ@rYxGnIft"gZ% #/VJU&j0Lߵ>W()I|hz \7/Vg_IIn*}EdeuU5k=Ke悮Py9U}[:_{82U4#Okqq'S..a{Iw'}.Vk#J?H5,_-NJd0tSLf2D/QAZ UqMC[&|hvNzß]bdIKYBY+ޏݠ% ]+?GI4 3X xI2-.LF@`>pO 8D +Mi0O!PT)vM3_nnPzyY)ʀNy%B_v> > N,72*">6|b6~ԸZH7?T]h}} uB/7 ֓._T-2gށ5 Cf{ر\{:kÝ>{R;1jkds7exZT,UZ0+G ŧ@-eyV_2ߜ[ig̬G ŅtSmm0\zSa=x kVe/Dȡ᫮e]u.B >h}SfOme |,CNiYbl۽(!^9<*12LDnDʧA-,ּ&HR]Fޥڸ<_F;:40TzމJՄYڗUO- ` ɉ"0ZU` v"H T/32يF-CI_P;|UWWAW}>,[7.f);;2v[Y[9c|i5Z EG>CE/4Qg=cfbrH^4YΟb 2{kZIl(J~mo4᫝[ݜD`pdq+")gx dOolf3ւ9t*X M= E#0!P YD4' W bVFh] 0u'7iJC6. 'naÛUXa_i<7|fGhWl&x9Q&eEԣGeKIZS5og+?f heŵC$|Uȶjñuf6 vʶob1}AӭinW~d*֓޾KyaBC"v{Q цpn(>K~_dKkbz/d^T&m;r&`ue iSڱxSn {fN"x`x|,al!/\)kL2i KK9slG)8V%:UN,!QjPqVbL tl+aqxҜ]>`$PXaWٗWj΍fu; uF; t_JF+&Z$Q#4lr熋9 % X_=Y3ПW÷vj ձqXƦ Vw0Q`? ?X\h8&@_iE& k%.7r(-A)qTdJKP c ?1$F iǰ=6o9o )e2/%~ƍ!nJ$'r*`_ܝ^)b8cxŰ{sipC")[}7эGT%G*lŬsX[@YU^EiYwQen\{f*NA66yb_o^"bm*5-zAJ͏љv{D=F2%. K}0l,,*gu "E$?쁔1>86Q` :(2)]XHֆQ[X(sd)JF H8ɡ R@;@ ~nmQCr)$9AQ/T2?-˶w5~a/wC촻?1y"J,IG(|tm/T*,3^hv+_P)Bb<gM0:5gN?틽`i:ll婃{A X{Wn1^)`•I;I1x1P-RW ?dN1 7Ӿcfgf~K9qA2`8i!%11څURdK "'%;0 \+#;n\ ܏Lky$dW>xEZ^f3 umL6$Mݘ 臎T&sQF\EŬG O鈅#`ީC"TTY/=ӽWc(T͒GP)+bD`.U߾[*T▹`u JL^O5e'd▁TxŰGc%T\KM@%%KQطǡ1Y?4nG}.܄/UFæʅv4t_oukKT;QvcҒNOp~'١,m9^W.lL5N߻%M[;hηkWhA9sȋ !դsT-P!ӓݫ"qyNb_T"ģ &@'c>C.@0½g}{UEʛ`2-;'Qvb&_0̃1QG EyG9>*p&NZ0 $=饋8޶ UYy`6-U/T.$5i::lNLUJﺪl8YIynG;Z8~ꑦhPwijQ}$cf3W+QQ)>0}͍j9-[K*Cixc+j:>+k 0Ehftd>V8.Uי_HE >%{,9Y=i?,(ܱ'L۴Uw1QaK6~[py@X?6S%R^jltad( :90oPWWY{Xf}Tq2 -7̧XGX:LU]eУ4Bۯ>{)n|Ɖ@{?.4!MvW}ueq|}=>dzqzv)WY|,ՔB$5. 9SzacH`7HNA Ca xw p&H5ܛ2߳堋J۲ǃ߲Kʚe<ܓLpS{U7HS _56UUz)1]_K ~g9+&!!eKʾvF-֧$wgJc gwnbjA2sxV UNEsQ^)`#(59Q J-  S_w=}6 ҳ( mn/o70jtq2g{A*\YS U7_/K*RޘygY i4OU6{/䮶qÍʼn([(+qk;x@^0L (~9B,k'"V] õBܻiN̚ڷހeO.nc_!?l2l 0%K8"OW 5$3.oװ(d!w o/:-i; 7ƹ` }` ו<B[0fӧngd2io8og )&®<F+ o8BP"T< sM F^d`x[KU`=`J(46T3}ɏPq9SYB,AhĘal*oGЖ큇yzaHZjƐz,W (Eq?Vz3:ercƫ!ihhKgg`T_(>jTtʘ(kvشľUp:b-:P0ZMYϪcޒQ†.6"U6pqXuMBv@6Bߒ>~o&WFj (=/!g J[ѥ}su3 Z^Bo&cӅU$} 7ݧAv} h\?J+T} 7 Rrc {} Uk} DFVQE|} 3:Ev} -0o$< 3} c,ΔlO} h7,} (2c} 1 FKAJ} N:??\GvÈ}aR2V./(=߿Dyt3cv06 &%PԚ}a#>2ِ1_4pAyɞٚ6kܲ17?-*,թŤҹ̰%-0dzcC3dOHP阾RCt.R7SJU*NO d>Q߆g[TN]KĤ~g7VYk^3zEhP wn AYm )e}v|VJf@ٱXU\4'N[3Y& b 0'0S,ĺ$+ψfU9Wȉ%,|htm!#ldk33gjl`UުW "R}o2ڙ1_z].jEG+Х! 3]w^Q.CшkLECu9kT¾2K׃Ϫ!!4w]^5ԷSþ_ lCxщ CF-# 'T nc~' ^Co t~ Y]9gt K{=!Ntњ >rn )$ٟ9y^IE Hj 0Q:7뾜G"g Q"G6aS׾? ݔ@ALd.b`}KE< `82!%ED7Dn9p,tnS%6OhU$;66ǜ!@i| ;l S)ȎoO$ro{Q! VF"z(Kfc P Y4˲IF-;#U\| ^ ԕ>& Y MyUV:  gF-&Zz r u@T6ʁiu' K3\aFG -=پ)X\AR]Ӿ ۟:aq,* w9Y V@#\SeӴjhcn(w#AOۭCe&`Qz:޻N ^ufR- HP>L= @"Ӓ%3QYiE] I_Ub cs~ l픶*,Ծv EEyj0 T"_֔/#Ӈ"ǴVq=![m!w䑃Ҿ,Sf icqBȪ2D]T7i s@NO\D kUH-V[Rn'q^ k]53?}a'4eêJP8Q3 R$ƅ{R /ϑ}.ËI\=Z'~4](l 7s.#ھN*M PZ ]!{ep :|hG 2s1<><6 3y|z_}sFb~ Q`tNT4 4yf̕0V .-d}*r;8Q y$QF BӴRHq+R ]j!P{u_Du 1^ =_@QLHLb9~rT"O %`aqET|Z=!Y]1qѼU&W8XߘCL|`2%&ڨ{ľHoFHt |I?t~ zp3Qj` Q*6H xd֌XTB &! D`QdyU4|Un(<- 6\E5ՊMzX;<uV+]^H@ʱ}oD.xْ wn_"H%Nl>@x zN0 s$df$ 0/h|y UNB';_ eStgQrG2}~63n0xgbUf1pέgJq}  ]=hef\h_9F*@" +Τ[Qqbֈ@b2enfh7~5$kg S%]!wP fv#If1c>g>)Eٱ3ĉֲԳÖŴq05T)zZrՎA`CT-e21,2%P[^ҧՙz)J&7+rcp#mC:={B Ⳮ{9.k,_]&W5POcu;|RtfÀOupFV#sr*ByN*EOݎ`\[̭O}R^+d^L g,o!t$+V19A\"OP rds<nt&lDl7lH 1ZyͷeyC=J}Yfm>?vy^z"E"`I.>ܷ= DQ]?- e-Go 5F *dzst^mLp4a8-7hI'mdȸP 7sRx[ '`Mkxيv w<,h'Z7j p5F%|_| \/,}6HwGw6O#ڽȋ>$x\,,v9q:d'_ɧN&.H?-i19ݺ JK 5\0g>qb nM# ZO 4ޣ0q}7D^aӲ # P͍,j@7Ⱦ۲&5&ǵʲ\1"{kOW0XRK!!|4qvf޴P,QUC7#lP&|'v;T(ETchG{Ӟ5ߙŽ;ܟi'F 1*x9_~ִt{3@a{}i:T&&+h/d0g}5z;&W:=(@=o*AK c i 4CXU.I?%"oȢs Xou@]zpi䥔}L5,W?X{edd7]tpMD{~ r:.ڛC7 hM% 6ܖ:b~ L `u\6 \ק%Hm ڦn ~ ėc*! WOjz Xi2ދtr~ -}7˕b qƮC >Ρ\/' ~ S$ aeĆ QG\(P^.~ !B" ;MT ZB~ 4:h] $.- x~ \Dw t J[LXX jH7wE~ qTZz+'K ib^T /s\K~ "7 z -x1OX)~ W |k ĢH@+ 6a~ 4s͙w Npn}9 /T( ~ @WARvB 4TQ#mq Yg~ bmCb !mwC8] HFe{~ n% V ? : pe~ xs f-sm]Ό9k_%FؕuMf3:|Ǯ֍X2U 껫AGGg)+jqIMѺGK wG-ߛ|ޙcYoG`;bԚY1r'-*2 "A +_fpLѿ~gHڢ8c'8`sـUbPm+p]~ '/t/U; Ј}T V󞈧W~ Yӎc }D %N 7 50~ S,%# ] ZEJ -XnR~ Y ; į.Kn5 qFF"O~ _\w }b /~ ޗEq2O4~ ; #4eq e+T?/2 ,:eX~ 9iH(:/ n5 1\Y~ VL9= N@TS=_ N#.~ xs 8վ Y3~ .Vo"j0 =~Ts! ٹe˪~ ƌu AgZ;x \ c2MA[~ 5u-r3 MyM7s gvx~ $h b42qپ AB[~ Vz{\ .7D?qA w؜~ q뮥A J33qh {W07`~ cwFX@ ] ] |O:~ `4_o̿ %ؼ؅ [(HLˑ~ sdYG Q@Llyb euf~ SSR  dd\AR VG!M~ jnG ,H #tY8 NaM~ W? W 짠  gm7:# ~ D^ #8Ԕz*3E- {g~ qوK Wq 76e| ~ z<O )+ hƂi~ oYMKb XܻYbH G쳉Y~ W%K# CU k)8? :NX&aܴ~ Razc /xZ/9 )|A7:7D?΀:hj[+? 2XDVlwޞ\AH>ScE#4)ËX XbkPH p$cE}pSl33hqܰyg utg4 5KvitŠ9r $ VBA ThisWorkbook !SheetExample [ SheetInputForm mancelBoolean) ' * b c resudefault sett6sppBaH.DisiyFormu`laBarEnfAutoCo%e= C6End*\.Save(@ByVal AsUI0, 4Hd'messagJe S@ngF "vY41_g99("9}= 9940l;ݪo6[?D\6@\"EbH1"l L ""i\43"?u?v ?cc?.l|ay%-[?.]4eW$?.4Y 162J 1N! #7 OrR8lQ 1s ''newTuGUN V]o&wTi&- 6u"yVy9}=UwMH]7]))Y}qz EbE3+0 N\ex' з =є2`20>)37+ "Adds websiP (English)Ӂ O N b2O MyZZ.O E ChineseO 9?A E v2 /.,22)?RPP35wh  3 " 3 %}+I6 tmessagecount + 1 End If Dim response As Double If m > @1 ThenX= MsgBox(display\, vbExclamation, Alert(18)) ' * valida for spart of them - control@ totalWorksheets("Input Form").Range("C" & "27") = "0"x s\M)GY]lisgdocumeiIntegershowFfDescBoo@lean ig33 To ـ+ -}k] GNiAMCE20) Or ÇKZB""!E AGAQ= TruExiŒxANextOfSizFfUTDUšCriticalChekcingaρBfile s - ;Kc-.F@p.ColorIndexP #-: ',($b$3$4Sub Private bbook_Oppen(A9uin`-altt*hs wow+A.A'dversnumber20060223E"c#n7@= Fals$PAppl>.Dc {mulaBar*TEnableAutoComple` exaaEm does not allDow`lec­b`y mou%EaOnlySe= xlNo1 ` "h.* " .0 *`    , B 2( "`  J  PSLSS`D`J`L `N V %w "  0 H Xh " px ( B ( B@ > T*0`pTx*T*p T*(XhTp*0H.`D.D hx  .0  " .HFx.FP` "h.* " .0 *`    , B 2( "`  J   < b0 \         ,( ,X < F  , H "P 4X D    :@` px]* **** before close resume default settings ,(.000 ,(0.0\ox]" **** validations made before save$8 : '6; **** count number of messages in the validations alert box]'<'&]( > < **** number of firsttest indicates the row number on sheets8 **** alert message need to refers to the setting sheets >E15 Input Form$@%BH15 Input Form$@%B 6 : - '$8 '6 < '<kE15 Input Form$@%BH15 Input Form$@%B 6 : - )$8 '6 < '<kE15 Input Form$@%BH15 Input Form$@%B 6 : - ($8 '6 < '<kHk@ >E16 Input Form$@%BH16 Input Form$@%B 6 : - +$8 '6 < '<kE16 Input Form$@%BH16 Input Form$@%B 6 : - ,$8 '6 < '<kk > > > > >''newE > Input Form$@%B 6 : - > $8  $8 '6 < '<kH > Input Form$@%B 6 : - > $8  $8 '6 < '<kkxdpE > Input Form$@%B 6 : - > $8 '6 < '<kkk **** validation for row 20E Input Form$@%B 6 : - !Address of the websites (English) '6 < '<k(H Input Form$@%B 6 : - !Address of the websites (Chinese) '6 < '<k **** validation for row 22E Input Form$@%B 6 : - #$8 '6 < '<k **** validation for row 23E Input Form$@%B 6 : - $$8 '6 < '<kX]@ < G 6 H$8$F'Dj< **** validation for second part of the form - control totalC27 Input Form$@%B0$8 H$8$F'DkpD **** validation for second part of the form - list of document list]X]p J!!C27 Input Form$@%B  G J Input Form$@%B$8G J Input Form$@%BB J Input Form$@%BE J Input Form$@%B'Lykk] LG$8 P$8$F'Dj& **** Chekcing for alert for file size J!!C27 Input Form$@%B  K J Input Form$@%B!R!TG'NFyj NG$8 P$8$F'Djo. **** initial settings when open the workbook.=Worksheets("Input Form").Range("versionnumber") = "20060223E"'X ,(. ,(04 **** example form does not allow selection by mouse \ Example Only$@(ZoAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit Dim missing As Integer` P.2 Sub _Be@foreClN(@Cx5 **** button on example form will bring to input form]@$This page is for demonstration only. :YDo you want to start filling out the form by switching to the "Input Form" worksheet now? b$8$F'D D Input Form$dB@H $A$1 Input Form$@%BB@HkoX'*o|Attribute VB_Name = "SheetExample" Bas0{00020820-C$0046} |@GlobalSpacFalse dCreatablPredeHclaIdTru BExposeTeate`DerivBustomizD2ControlCommandButton1, 3, 0, MSForms, Option Rlicit PDH Sub 1_Ck() ' * ׀1J e f2 will bring to input Dim responAs Dou = MsgBox("This page ! dem tra+only." & vbCrLf"Do yo@u wantstar""o the(by s`witch(" "I*I"" worksA now?",YesNoCancel, Alert(H18)@CIf5= 6 Then L ¯s().SelecZW Range("$A$1" End If 3g kF_BeLeRightmByVal Target @^@3Boole p 2p $ & D 0@ p . 2 > n0 . ,   $( "P ,x  h` h 0 P h  @ X  \ 8h D L 8! P! l`! R! (" " >" D# 2H# # D# L# x8$ h$ J% <h% % % % % P& P& T`&,&:&d('*'&''L'@( H( 4X(n(0)  0)d@):)d):P*"** "* * + $ + H+ "h+ $+ + P@, , P- Bh- - - &-(-$ .&H.p.x. . .. "... " ... . ..L/h/ p/// / 2/ ///0 " 0 H0 &X0 000>00 1&1 81H1(P1x1 1 1 11112(202 @2 P2 p222222 023(3H3 3&3 4 4(484X4 4&4 50585H5h5 5&6 06@6H6X6x6 7&7 @7P7X7h77 8&(8 P8`8h8x88 (9&89 `9p9x999 8:&H: p::::: H;&X; ;;;L;;< <&< <<<L<H=h= =&> 0>@>H> P>`>h>p>> >&> >>,>(? H?&X? ??? ??" ? 2??@&@&8@,`@F@ @$@ A >0A pA4ABA .B 0B HBXB`BhBpBdB BBC>CPC pCCCCC" CCCDDx **** delare variablesn ex **** obsolete variables f]]0 **** number of files searched]= **** d$ % Done... ,( 'p'r34:34$B@H= **** insert blank rows for each of applicable document found  B@33:33$B@HF B@34:"   $B@H   B@ ,( J  J$  J$$\$H  Input Form$@,B J$  J$ $\$$   **** try to fill out the list] ! xD Settings$@%BH  Input Form$@%BH  Input Form$@%B $$E Settings$@%BB  Input Form$@,BF Settings$@%BE  Input Form$@,BykB  Input Form$@%BH  Input Form$@%BH  Input Form$@%B $B  Input Form$@,BkH  Input Form$@%B\$$'G  Input Form$@,BG   Input Form$@%B$8G   Input Form$@,BkdG   Input Form$@%B G  Input Form$@,BB :F  Input Form$@%B(C24Settings$@%B!!B :F  Input Form$@%B!(k Scripting.FileSystemObject$.= **** get file size and fill out the file size column on list J$ %.  ! ' !$0.00$ MB'E **** change red and bold for files exceed predefined file size limit !$8$ GK  Input Form$@%B!R(F'j !$8$ GK  Input Form$@%B!R(Tj \$K  Input Form$@,B !L  Input Form$@,B  ' Jkp  **** update control total =COUNTA(H33:H  )C27 Input Form$@,B: **** search for applicable files for filling out the listWith Application.FileSearch' .NewSearch: .LookIn = pathvalue5 .SearchSubFolders = False: .fileName = ".pdf" .MatchTextExactly = True3 **** if found applicable files to continue process Dim LoopCount As Integer If .Execute() > 0 Then2 For LoopCount = 1 To .FoundFiles.Count - 18 ' **** update progress % count in status bari Application.StatusBar = Round(LoopCount / (.FoundFiles.Count - 1) * 100 / 2, 0) & "% Done..."+ totalsearch = .FoundFiles.Count inprogress = True Rows("34:34").Select = **** insert blank rows for each of applicable document found* Selection.Insert Shift:=xlDown Next( **** copy default format for added rows, Rows("33:33").Select: Selection.Copy7 Rows("34:" & 34 + .FoundFiles.Count - 1).Selectg Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False' Application.CutCopyMode = False& For i = 1 To .FoundFiles.Count Worksheets("Input Form").Range("H" & row) = Replace(Mid(.FoundFiles.Item(i), Len(pathvalue) + 1, Len(.FoundFiles.Item(i))), "\", "") If Left(Replace(Mid(.FoundFiles.Item(i), Len(pathvalue) + 1, (Len(.FoundFiles.Item(i)) - 7)), "\", ""), 6) <> lastrowstr Then  **** try to fill out the list Dim j As Integer% For j = 33 To Destination If Worksheets("Settings").Range("D" & j) = Left(Mid(Worksheets("Input Form").Range("H" & row), 1, Len(Worksheets("Input Form").Range("H" & row)) - 4), 6) Thena Worksheets("Input Form").Range("B" & row) = Worksheets("Settings").Range("E" & j)a Worksheets("Input Form").Range("E" & row) = Worksheets("Settings").Range("F" & j) Exit For End If Next **** extract document title from file names and test if the prefix of file names are the same to classify as same document for different files: If Worksheets("Input Form").Range("B" & row) = "" Then Worksheets("Input Form").Range("B" & row) = Mid(Worksheets("Input Form").Range("H" & row), 1, Len(Worksheets("Input Form").Range("H" & row)) - 4) End IfU lastrowstr = Left(Replace(Worksheets("Input Form").Range("H" & row), "\", ""), 6)1 Worksheets("Input Form").Range("G" & row) = 1> If Worksheets("Input Form").Range("G" & row - 1) = 1 ThenE Worksheets("Input Form").Range("G" & row - 1) = Alert(20) End If Elsee Worksheets("Input Form").Range("G" & row) = Worksheets("Input Form").Range("G" & row - 1) + 1L Worksheets("Input Form").Range("B" & row & ":F" & row).Locked = True Worksheets("Input Form").Range("B" & row & ":F" & row).Interior.Color = Worksheets("Settings").Range("C24").Interior.Color End If7 Set fs = CreateObject("Scripting.FileSystemObject")= **** get file size and fill out the file size column on list+ Set f = fs.GetFile(.FoundFiles.Item(i)) ts = ts + f.Size> s = Format(Round(f.Size / 1024 / 1024, 2), "0.00") & " MB"E **** change red and bold for files exceed predefined file size limitr If f.Size > Val(Alert(19)) Then Worksheets("Input Form").Range("K" & row).Font.Bold = True: invalidsize = Truea If f.Size > Val(Alert(19)) Then Worksheets("Input Form").Range("K" & row).Font.ColorIndex = 3C Worksheets("Input Form").Range("K" & row) = Replace(s, "\", "")6 Worksheets("Input Form").Range("L" & row) = f.Size row = row + 1 Next i End If **** update control totalJ Worksheets("Input Form").Range("C27") = "=COUNTA(H33:H" & row - 1 & ")"End With $0.00$ MBC28 Input Form$@,BB33:D33 Input Form$@%BB@HB :F  Input Form$@%B(C24Settings$@%B!!B :F  Input Form$@%B!(C27 Input Form$@%BC26 Input Form$@,Bd =COUNTA(B33:B  )C26 Input Form$@%B(k ,(. disable status bar info after action completeG   Input Form$@%BG$8G   Input Form$@,Bj G$8 P$8$F'Dj C24Settings$@%B!!B!:F! Input Form$@%B!(B!:F! Input Form$@%B(C24Settings$@%B!!B":F" Input Form$@%B!(B":F" Input Form$@%B($8 P$8$F'Dk@With Application.FileSearch .NewSearch .LookIn = pathvalue .SearchSubFolders = False .fileName = ".pdf" .MatchTextExactly = True If Not .Execute() > 0 Then Worksheets("Input Form").Range("B" & 33 & ":F" & 33).Interior.Color = Worksheets("Settings").Range("C24").Interior.ColorJ Worksheets("Input Form").Range("B" & 33 & ":F" & 33).Locked = True Worksheets("Input Form").Range("B" & 34 & ":F" & 34).Interior.Color = Worksheets("Settings").Range("C24").Interior.ColorJ Worksheets("Input Form").Range("B" & 34 & ":F" & 34).Locked = True; response = MsgBox(Alert(25), vbCritical, Alert(18)) End IfEnd With **** protect cell after updatecfdcfd Input Form$@B@ C38Settings$@,BD:FSettings$@%~B@'r'p t(v ,(oXA@o@]X]p r' **** update staus bar info % completed h!  pd2 $ % Done ... ,(d ,(kxp  ,(, **** validations after cells change applied h!$E$19KT h! h!$$8 P$8$F'D ,(E19 Input Form$@,B ,(khk`E19 Input Form$@%B$$ $8 P$8A@F ,(E19 Input Form$@,B ,(kE19 Input Form$@%BB@H$K$15KT ,( h!$8$ h( ,( h! h! Gj h! Gj h! 'k $K$16KT ,( h!$8$ h( ,( h! h! Gj h! Gj h! 'k ) **** check if input length exceed limits$E$15KT h!$-$8 7$8-$8 English or -$8 Chinese8$8 h!-$8$$9$8 P$F'D ,( h!-$8$$ h( ,(k $H$15KT h!$.$8 7$8.$8 English or .$8 Chinese8$8 h!.$8$$9$8 P$F'D ,( h!.$8$$ h( ,(k $E$16KT h!$/$8 7$8/$8 English or /$8 Chinese8$8 h!/$8$$9$8 P$F'D ,( h!/$8$$ h( ,(k $H$16KT h!$0$8 7$80$8 English or 0$8 Chinese8$8 h!0$8$$9$8 P$F'D ,( h!0$8$$ h( ,(k$E$18KT h!$3$8 7$83$8 English or 3$8 Chinese8$8 h!3$8$$9$8 P$F'D ,( h!3$8$$ h( ,(k$H$18KT h!$4$8 7$84$8 English or 4$8 Chinese8$8 h!4$8$$9$8 P$F'D ,( h!4$8$$ h( ,(k$E$20KT h!$5$8 7$85$8 English or 5$8Chinese8$8 h!5$8$$9$8 P$F'D ,( h!5$8$$ h( ,(kx$H$20KT h!$6$8 7$86$8 English or 6$8 Chinese8$8 h!6$8$$9$8 P$F'D ,( h!6$8$$ h( ,(khn` h!$$B h! h! $$  h!$:$8 7$8:$8 English or :$8 Chinese8$8 h!:$8$$9$8 P$F'D ,( h!:$8$$ h( ,(kk h!$$E h! h! $$  h!$;$8 7$8;$8 English or ;$8 Chinese8$8 h!;$8$$9$8 P$F'D ,( h!;$8$$ h( ,(kk  ,(| h!$E$19$8 P$8A@F ,( h! Input Form$@,B ,(d h!$K$15 h!$K$16$8 P$8A@F ,( h! Input Form$@,B ,(khk`  ,(oH, **** right click features for re-extraction](]@ Input Form$@!Z \G|jC26 Input Form$@%B' C27 Input Form$@%B ' h! Input Form$@%B!C37Settings$@,B cell ,%! !brccmG B@j 8 **** only enable if there are multiple document on list   hb33:f $B ,%  lcell ,%!% &Re-extract files for this DoD document9 ReExtract9brccm9q=k=k= h!  lcell ,%!% FDecrease Size of Text9SF9brccm9q<  lcell ,%!% Increase Size of Text9LF9brccm9qh<k`<oX<X] h! $E$21:$G$21GThis is only required on the printed version of this completed form which should also be provided to the SFC together with the completed electronic version P$8$F'Djoh;`;RAttribute VB_Name = "SheetInputF@orm" Bas0{00020820-C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDerivBustom izD2ControlCommandButton1, 4, MSs, Option Rlicit 'D * dej Pvari;s o`bsole Dim jRchangcAs Bo!an lasttarget41 R(number of files se@archedtoteIntegerif in current progress or#itial s@6t@cin I,Pbd Su"bK1_CIk()extract @[ cA!0cedu" diso9 aft= l.En Ddfine rO f8o@@lis7documBk^Destinax, i P33 + Workss("% ).l("C27") - 1 = To  ,backup@a+mB! from page to|t)gsS)Se"E" & i)=B# ("F # ("D Left(Mid(]HCvLenA24), 6SNGRFO@ick dt4he lrDD's( isnl`vouǀaFVpon`bDou IfCB33C<> "" The A = MsgBox(Alert(15`vbYesNo, d8) vbNoB jBColumnVD:FDCl !`:Lxk: itA} End If'load#@info using brow`#ofoldA-&F &Sngd= BFBe6` ?& &7"&Cr cal&dnc $oc ZU'֓#!6Ex("pathvpalue!%#= " idsizcinwCzeu\teXF `o p#torek faultE 7MUVPassword:="c|fd rod@KA733).F.BpIt[ T0]= RGB(0, !0?;"N`X& "/Qarrior.5YUC2;.Kt`=4 _  3k0u4? HmC24Cph?LockpT6*/?  MQ4ѓQDtri4XDC4Lx! B z5o Upntil_\< LxuCY32>@+LoopRàall ocP> 36haR@T`("34:3- 2).SeltD/Z-: ts0 "a lookpdA- addn 10/06/20090&5n_ha{, n_q_cou ~5 CyA() n=tpZ\*. e=r(G 7$n_c= ` Do Wh@YB3' LC`(Right P)!=~"Rx8=>Re servesh1 @An_| a>S < If n_fileName = Dir()Loop If n_count > 0 ThenDim HC6As Integer:ForN= 1 To!' * update progress % vin status ba]Application.S(BarRd(!/ ((+ 1) -* 100 / 2, 0) & "% Done..."J`totalsearch,"inU= True Rows("34:34").Selectxinsert b@lank r fea6of aoble documefm# +I%Shift:=xlDowqNex<J3H:33J: GCopyJ 4:"F34 +AO4PasteSpecial #mats, Op,erlAN\, SkipB@s:=F[,RansposeD$Ad }Cut,Mod AimOWorksheetjInput A)ERange(,"H>@e)@Replace(Midtarget(i), Len(pathvaPlue)J1n _ ) "\",x ""ׅ!Left(n(7, 6) 0<> l@ftr$Rtry tDo @l o "the lisHW!j 1~!/j`&33}Desti~nB>3a0Set`gsg0Da0~j!0$/6 V6, 0?$A44%ǜe= BHFiEO"]  ,[ bFQ Exi\ End il41e""K;r; y;CI(c=y(qfzD{mC G4D91C0 Uf7akAlh(20IE p kSY o yoYYe#p ":..Locked1xrior.hColy=O=C>2~K p f"s CreObj("ScripO.FSy`t>mb4ZgZe size a;Zcolumn8 on(\fsp.Getl$ t @+ f.Ss Aajbp1024d, 2An0.00" LMBD$ chA r bold s excepefin7 plimihI> Val(3,19\))H4}K7.Font.BAc: in|id?q3?_+S+<b%Index 3#**& OKLGCP/`Q8` i ),uCc rolC27!= "=COUNTA(H33:T@=)b#Qac#Aling'With ǩ"6r 'S1 .NewSB: DokIn!cSubFP#erb1".p df MatchTExactlyJtif0u=^Йinuݒc҈ ?n46 ,.Execute()(p02asPp !okܟ ܺKL ?# $Տ2%_ߖ#E4c default&6rmat for added rows ' Rp("33:33").Select: ion .Copy\4:" & 34 + .FoundFilesXuntp - 1rRPasteSpecial  :=xlFos, O`perat{None, SkipBlanks: =FalsTransposeiApplicB.CutModpe = 9 i 1 TodWorksheets("Input YRan`ge("H)(Replace (Mid( Item(i), Len(pathvalue)1 )"\", H"") IIf$ftt(27( p7 , 6) <> lmAtr T`hen ' * try to fill oHthe list .Dim j As InteXgerejQ33fDestin>a A@IfSeRt gseDej9AeLeJdr, ef )@O4@lLIFڂIBȑ O6~EC6E"dU{ F1r Exi_LEnd IfNex@?!Cract documetitle fromFe namPes a t> if AHpref ix ofre-s@NcTsify as b differA=SeEGz1""D_:=-_O_OCO/J1(w= `%d GہGL1dD `i1wjiAlert(2v0j$EEt"gI?)+ F! "3G ":q).Lock= True)."aXrior|l=GC24UKGD: fs\CreateObjЅ("ScripQZ.aSymn@ Bge sizeBAe<column onffs.Getxi) tq @+ f.So Qq~aPv( / 1024d, 2Az0.00") MB"q chA r0aMbold2! s` excePNd pNn limisJ> Val(#-19))bI5 ,K8`nt.BCQ#$: inidj%Oq4Os LCo&Index3T417|60Kl_[LHs00Q9k iU-)upd - controlgtal !J{C27`"= "=COUNTA(HV1O!$)$'qWith _]8RQ*-*\ "*B D3ݰF)}K|OJ`?Jop-^0T?=6b0 #eOC2@@9rmula(!?Օ!)StatusBarFQ+disab%s binfo afte cQ@,mpletdOuoyGG?mKx@GMre @nsMsgBox4O2WvbCritl, $18\ n_cZtO.q `& v33).&&&&o o _~s4S3׵" & 34).Interior.Color = Worksheets("Settings").Range("C240  nInput FhormrB":FLockeBduTrueGresponseMsgBox(Alert(25), vbCrit@ical, 18)) End If 'With Appl'tion.FileSearch '.New LookIn9pathvalFSubFoldersFalsVf.NamW".pdf"1MatchTextExactlyrIf Not .Execute() > 0 ThenS33( u,4ˈrT 3;BC'B * protect cell af updat P Password:="c8 ""-dIsDE%&),== 9e![Evec_X mqE@as" C!fi '.(Mid(?{{2, 4, 2)Aj12|x2{Pz-??q Ӻ(" Ϸ).)V(pK$15D E.*=at(2R O0#O00Len/> 5 <\ 1P=+8 15u="$P6_d`____ @t ___e0___~ _@Z]ccheck if eut leng!@excesli|mi!xTR) x45=PO5&$>Q& " English ^'/ 2fChinese56h f/H`F57zWx$o>Ne#*b= ,~ JQĿ$$L.HAu"$E BR04H6)5Ռ|nalD UF\/5F7/kP/187&e%vget.value, Val(Alert(47) )) Application.EnableEvents = TruePEnd If Case "$H$16"2If xl@en(Tar) > 8) Then+qresponE= MsgBox55) &5& " English oFr / 2," Chinese2"956Eft 87), vbCritl#Falsi} ?1E$18"51_A __)z5_ __@_2_@ __2_aZR_o5/E$20_53/Ô/@ /p _//a4a_H//H/d*4///_X54_*/a////!Select `LeAdd(s, `=B" A!MidupaV4, L{d) - 3)> 32{}ue}5}}2 6P/!/}ލ6} /fM}Ʌ/ϕϕ EE`ϛt99<ϛ!Poϛe9<ϛ Wi='CursЭ=0Defaul=Exit Sub ER:>'0("$ 9":29:,d18ԭ// Worksheets("Input Form").RangelE)Q TyEֳ. $K$15" Or6AX6 qOO# Io2U?u/"!]"Private"_BeforeR ightCk( By` As , CancelBoolea"n!' * r  c featu H P re-extrac Dim br, sraIntegercicbcAObjUk/%$%m4$xlNo1 11brP:*"C26"D/u =m+--@7ESettings0"C3_uO"I".row#D Each InZKComma`ndBar7`lpControlsH4.Tag"brccm1A޲c.Delete Next icbcp' * only enable if there a multip*documentT list|If br > @1 Then&Not Application.Intersect(Target, Range("b33:f" & sr)) _@#Is Hhi ng]With _CommandBars("cell").Con trols U.Add(Type:=msoButton, befdor 6, ;temporary:=True) W.Capv = "Re-ract files *is DoD "OnAc1 ExtTag/brccm pEnd (Ifk_.Locked@FalseIWVTQ: N@Decrea@%Size of TˀR:.HSFEPEKD5S4In4L4ySub Private  Worksheet_SJCh"nByValb @ AspYDim respoFn /Dou` . gFfsO$E@$21:$G"GG= MsgBox("Th]@Brequir@Non`e priq@d v    D @ H B P FX     D H ` *h  "       , 4 <@( H 4X   " &    (08 4@x( L 8P`8hD  *(8 4@ x 4  0@ 8H~ ( *8 h    &   0H \`  r 6H R| h *p   :   Fp:   0H .P    6(8@PX` h0x> F0FxT(@H"P Xx" x4 **** Interface for Browse for Folder Functions ****]  ]D ]D]D ]D(]D P]D@0 ]DxC Changes for 64-bit implementation - Nov-28, 2022 - Joyce-Ann Cohit Comment below:Type BROWSEINFOZ hOwner As Long: pidlRoot As Long: pszDisplayName As String: lpszINSTRUCTIONS As String@ ulFlags As Long: lpfn As Long: lParam As Long: iImage As LongEnd Type^^^^ ^8^P^h^pC Changes for 64-bit implementation - Nov-28, 2022 - Joyce-Ann Cohit Comment below:#If Win64 Then Declare PtrSafe Function SHGetPathFromIDListA Lib "shell32.dll" (ByVal pidl As LongLong, ByVal pszBuffer As String) As LongLonge Declare PtrSafe Function SHBrowseForFolderA Lib "shell32.dll" (lpBrowseInfo As BrowseInfo) As Long#Elser Declare Function SHGetPathFromIDListA LP<ilGOeISHBrowseForFolderAO<SHGetPathFromIDListANh(SHBrowseForFolderANTSHGetPathFromIDListAxRRRXR ME| (@&@86 <  CPC 0 C$C%&Xh(h*h, h.8 h0Ph2h h4h68`:`<`>`@`B`D`F`H+J ")L%+P0 ( "iR8iT8ph:h<h>h@ hBhDhFhH+JTppT )LA%+P|p | iRiT VX` `+`11iiZ 8@%`\`^`^`` +8`id+`Hid@f `J+`` idij@f @l `J n8 ``D``p`r``t`z@ @ @ @ @ `J` ` @ ` x `  ` X @C(C"x@CP8 `X  x(0 x X0 p x Xx #X Ze/$*\Rffff*0865a2bce8(*\Rffff*0865a2bce8\0(*\Rffff*0865a2bce8\18( :H P ` p    J  ( `@ F   (08@ JH    lP  x bH  J  @ (08@HPX`H(hH HH  P  "p (x" 8ib "shell32.dll" (ByVal pidl As Long, ByVal pszBuffer As String) As Long\ Declare Function SHBrowseForFolderA Lib "shell32.dll" (lpBrowseInfo As BrowseInfo) As Long #End IfC Changes for 64-bit implementation - Nov-28, 2022 - Joyce-Ann Cohit ^^^^^^(^@^Xp p1might try As LongPtr XX^p^^^^^^^p 0 J End of Changes for 64-bit implementation - Nov-28, 2022 - Joyce-Ann Cohit" **** Disable Mouse Selection **** \ Input Form$@(Zo8X1 **** Enable for Browse for Folder Functions **** X Input Form$@(Zo. **** Calling Browse for Folder Functions ****](]HI Start Changes for 64-bit implementation - Nov-28, 2022 - Joyce-Ann Cohit Dim ID As Long ]`]xQ Update below for 64-bit implementation - Nov-28, 2022 - Joyce-Ann Cohit - remover See https://answers.microsoft.com/en-us/msoffice/forum/all/browse-for-folder/c765b376-c09f-49f8-96f1-8a065476000c Dim Res As Long With BROWSEINFO .hOwner = 0 .pidlRoot = 03 .pszDisplayName = String$(MAX_PATH, vbNullChar) .lpszINSTRUCTIONS = Caption& .ulFlags = BIF_RETURNONLYFSDIRS .lpfn = 0 End With New code below] 89: Z9< $ b$ \9> 9@ 9B9Dq $ b$ \'\ 8$J'^ ^ ^ \$P'` ` \ \ b $ 'kki9 **** Loading Modifiable Text in Settings Worksheet ****C dSettings$@%B'8i8 **** For checking text length for validation check ****]h d'f J f d J$$h G  'cG  'ji@ **** Extracting inputted data in cells by user for display ****]0H d'f J j  d J$ ' d J$$h G l 'lcG l 'lj l jGyj l j G   $'ji``]]]]] ] & **** Re-extract button function ****A@V ' **** Call Disable Mouse Selection ****5 **** Ensure re-extraction process in previous folderTDo you want to re-extract file information for this document from the working folder :you specified before - &$8 ? b$8$F'D D vGA@F|j D |- **** To locate a new folder for reextraction$8$' $8 P$8$F'DD:FSettings$@%~B@  **** Resume mouseA@|kk. **** Continue extraction if confirmed by user D xG&$8'jcfdcfd Input Form$@B@E **** Indentify selected row for replacement and clear or delete them'pG%$8 Input Form$@%BAll%$8'pkG%$8 Input Form$@%BAll%$8G%$8 Input Form$@%B  'pk]0 p 'zG z Input Form$@%BAllG z Input Form$@%B1G z Input Form$@%Ba z 'zP z 'z z p 't tb p : p $B@H  B@ t 't H p Input Form$@%B$'r ']H ` x  - **** load relevant file info for replacement ,!|C@~F 99F.pdf997 ]  '1 **** start adding back rows and add in new items J5! J5%  J5%$\$$H p Input Form$@%B$  '  p : p $B@H  B@ p$B@H B@ p $B@H   B@ ,(k k k '* **** fillout more info such as file sizes J5! J5%  J5%$\$$ r$  ' J5%  J5%$\$H p    Input Form$@,B G p    Input Form$@,B  B p   :F p    Input Form$@%B(C24Settings$@%B!!B p   :F p    Input Form$@%B!(kScripting.FileSystemObject$. J5% %.  ! ' !$0.00$ MB'] !$8$ GK p    Input Form$@%B!R(F'cGK p    Input Form$@%B!R(F'j !$8$ GK p    Input Form$@%B!R(TcGK p    Input Form$@%B!R(Tj \$K p    Input Form$@,B !L p    Input Form$@,Bk $8G p Input Form$@,Bk( **** remove all if no adding back files  p: p$B@H  B@Document has been removed. P$8$F'DkqB33 Input Form$@%BB@H] ]  '!'' a L  Input Form$@%B 'B  Input Form$@%B $8G'j  '  ' **** update control total =COUNTA(K33:K )C27 Input Form$@%B( =COUNTA(B33:B )C26 Input Form$@%B( $0.00$ MBC28 Input Form$@,Bcfdcfd Input Form$@B@A@o8  **** enlarge fonts !R! !R(o`x  **** reduce fonts size !R! !R(oyAttribute VB_Name = "Module" Option Explicit ' * Interface for BrowsFolder F(uncrs\ Pub shownalert As BooleanrivaConst BIF_RETURNONLYFSDIRS.Long&H11DONTGOBELOWDOMAIN 22dFSANCEST O28BROWSEFORCOM PUTER L00B0PRIN 2INCLUDEPFILE 4MAX_PATHJ$26H Ch anges64-bit implementay- Nov-28, 2022 - Joyce-A@nn CohCom below:BType !CFINFO hOwn@yn: pidlRooB~DszDisplay@ Sng: lpszINSTRUCT8IONB>ul`Flags9 fnHParamiImagepEnd A-/B/SHAXOP / hw@ /CwÇ pFroB'ToA f,gerCfAnyOper_sAbortedhGMappin=AJProgressTitlB9s9' /?#If Win64P They'`Declare P@trSafe SHGetPath'IDListA Lib "shell32.dll" (ByV 0: 2 + @1 Else 2N@. EfsE; wExtra@ngsputPted FaAwcells by userNdisPplayKyLvg(GM!ft"+^ 'j+yy +D*$4y > = !C2Exit`xr .'Avb(, LRB)c$s 6Sub$-(GMrespon`?pDo`teaFš:tar8get@;empsearchmpvalueT@orary Count[NumberOfRToBeDeleaDnRe- V!J button f nosel ċCall HDisMo`M S "MEns`ure r processaVpreviUa#,= MsgBox("Do you want Dto fiinmC!this documef` the 6wfbC(rLf " spLec``jbeeGCï38) ?"AYesNo(Cann,18)E@^hvb#WBy el: "XSubC-No[) locate a new&r`"D9Baa')#T= i(C16%A`e""T7)Criticalo1 fgsfColuDmn@gD:Flp1Cobntsg z mA( C; aa?x in7w if confirmA"ߣVc" CgP$IIn\Lm pUn1tect Pass +d:="cfd "Ind-ify> 9 aF/rep_ce/ac td@0mSGJfW0* "G17))`\"All-#47t2 _/PM!3<>  <(<)1i ^tW⊁YU=mpLUnt|ilO&r& 1" ut'Q1p Loop3p1Skkk-g WhA`//&# !s(w#@ ^:-Z).no.v Shift:=xlUQ q=0@0 0H \6:=SMc1fs, f, PZDJlilev{zkVJÓ! Appϲ|t.FpS.New3: .0kIa S0vyFap".pdfx..MaHtch!ExlqTruJ.Execute(Wg‡now@q9@5(s!'t adback ^s ]@{1ir =Sp.Fdas.rW P BRbI`(i@ ) + 1, Len(.FoundFiles.Item(i))),P "\""$6) =ft(Worksheets("Input Form").Range("H" & targ etrowtTh en nu@mberof 1 JQRo8ws(p": ).Select_= ion.Insert Shift:=xlDowZ 5(Copy 6U!PasteSpecial Mats, Operat^ None, SkipBlanks:=Fals Tran`spose JA pplicB.CutA-Mode@f End IfqNexWM Jr= 0G' *@ fillomore info such asAe sizes3 C i@+o CL{@LeReplace(MidѾpathvalue).ʀpsearch, LD,- 1)H=1_("GMsQi (,"BF.L ocked,Tr\ue1 !<@terior.ColorFSettingsGC24InOx fCreateObj("Scrip .Symc") fs.Getqpt!+ f.SK S(R!( @/ 1024, 2"0.00")A* MB"Dim~id As Boolea,`P$ > V al(Al@(19)) uKJFont.Bol%J: = AM Eໟ R_`q ??'?y,b A,Index0#3/O("1 1Q&? Î_WZWzLOX51 -<[z@W=/p ]f9120X<~remove all io add`J back~~ 0\S?%D`teUp9reMsgBox("Document hA@been c d.vbCrit l, B8)AWith{B33( L:fP1K(totpTrecalcDoublk9$= x?3V33MVDo Until vqO+M<0!Q U324[p 0vLood!O- $.Hupdr cGrxol / + C271ula`"=COUNTA`(K33:BN& ")lOM6O{A$:2O/,C28@u#atTx[x xFu6P(rotІ sword:="cfd yessel a4Sub @ LF(D"enl)ntEActiveCe|llĀw!oz.eP^bSreducey= o` ]x      ! (`&(!`0,I` 0&$q`$`$` 1 ni#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2M0* pHd VBAProject4@j = r Ze/ J< rstdole>stdole h%^*\G_VBA_PROJECT dirFQ__SRP_0 X __SRP_1} Workbook_Open shownalertEnableSelectionah xlNoSelection= SheetExampleVCommandButton1_Click vbYesNoCancelqSheets Worksheet_BeforeRightClick3TargetFSheetInputForm justchangedc  lasttarget1^8 totalsearch; inprogressCCommandButton1|Enabled۪ DestinationлvbYesNovbNo%Columnsp9 ClearContents{FNameR BrowseFolder pathvalueˆ invalidsize{ Unprotect?PasswordBoldColor2FInterior;Locked  lastrowstrLx)^RowsU SelectionZDeletexShiftxlUpfsF]sjtsL_row n_pathName$ n_fileNamen_count$ n_targetfilel LoopCount StatusBarʜRoundInsertrxlDown0DCopyƿ PasteSpecialKPaste xlFormatsU OperationyxlNone SkipBlanksұ Transpose CutCopyModeReplacefja CreateObjectGetFile:SizeValFormulaqYProtectfWorksheet_Activate+yesselڪWorksheet_ChangeSerror2nER ]CursorlxlWaitAddressvalueKIsDate2 EnableEventsxlenNxleft xlDefaultwQbr\sr&_icbcu CommandBars ControlsKTag& Intersect1AddrmsoControlButtonnbefore temporaryCaptionxOnActionWorksheet_SelectionChange4BIF_RETURNONLYFSDIRS-BIF_DONTGOBELOWDOMAINbBIF_RETURNFSANCESTORSVBIF_BROWSEFORCOMPUTERvBIF_BROWSEFORPRINTERCBIF_BROWSEINCLUDEFILESo}MAX_PATH(SHFILEOPSTRUCTOhwnd/wFuncUWpFrom'pTofFlags fAnyOperationsAborted܄ hNameMappings[lpszProgressTitleN$ BROWSEINFOYhOwnerEmpidlRootdpszDisplayNamehr lpszTitleSulFlagslpfnlParam7iImageUSHBrowseForFolderA lpBrowseInfor shell32.dll+SHGetPathFromIDListApidlpszPathnosel>xlNoRestrictionsX StartFolder$ FolderNameID]Res vbNullCharYvari xoAsc!uvlenYyl ReExtractR targetrowӅ tempsearch ,TemporaryCountForNumberOfRowsLeftToBeDeletedLvbCancel'vbYesa? tempcheck^ FileSearchD NewSearchfLookInPSearchSubFoldersfileNamejMatchTextExactlywExecuteY numberofrows|  FoundFilesCount0vItemzfound1yfound1s9vtotalsizerecalcLF^ ActiveCellSF_Sheet1 # _ k  Za  ,*\G{000204EF-0000-0000-C000-000000000046}#4.2#9#C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications&*\G{00020813-0000-0000-C000-000000000046}#1.9#0#C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXE#Microsoft Excel 16.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation4*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.8#0#C:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSO.DLL#Microsoft Office 16.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SysWOW64\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{C1DBBD43-C381-4B2E-9D0C-79BAEF42F673}#2.0#0#C:\Users\LOCAL_~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{00024517-0000-0000-C000-000000000046}#1.2#0#C:\Program Files (x86)\Microsoft Office\root\Office16\REFEDIT.DLL#Ref Edit Control*\G{AC92841A-9F35-47C2-B514-8C09F655B704}#1.2#0#C:\Users\LOCAL_~1\Temp\VBE\RefEdit.exd#Ref Edit ControlEF Ze/iThisWorkbook0165a2bce8#ThisWorkbookSheetExample0665a2bce8_SheetExample@%SheetInputForm0765a2bce8kSheetInputFormg0b Module0865a2bce8 ModulelGH< Sheet10565a2bce8 Sheet1`%xH`0 ;V 9MԄۻ{WDw@SZFn*ja8J:8DCQfModuleExcel+VBAWin16~Win32Win64xMacVBA6#VBA7# VBAProjectstdole`OfficeuMSFormsCRefEdit ThisWorkbook| _Evaluatemissing|Workbook_BeforeCloseCancel Application*DisplayFormulaBarEnableAutoCompleteNWorkbook_BeforeSave lSaveAsUIdisplaymessagenhAlertvbCrLf messagecount) firsttest WorksheetsRange responseMsgBoxR vbExclamationi`showAlertForDescCshowAlertForSize5 vbCritical+}FontU ColorIndex{00020430-C 0046}#2.0#0#C:\Windows\SysW OW64\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files (x86)\Common \Microsoft Shared\OFFICE16\MSO.DLL#P 16 .0 Ob LibraryNMSFo@rms>SFrmHs3D452EE1-E08F1A-8-02608C4 D0BB4TINDOWSTFM260L'B @a&/;"1lrAAr00}#0r#G 50 ~AC1DBBD43-C381-4B2E-9D0C-79BAEF@42F6736Users\LOCAL_~1\Temp\Excel8.0`B5.exdaU: .E .``M Ѓ0R@efEditCfRQfEi3 H24517BD1.2M\root\CREFEDITo@ a Control556a580 gAC92841A-9F35-47C2-B514-8C09F655B70P5VBE\ 4`J @E0FaiThisWorkbooPkGTiEgWikboPk2bH1,",""+cSheetExamplecS`e@Ht@Hxa{p"c7com@%kAb InputaG! Inpu@[ŏM2bo&gaModu%M 6da"ݣ2"8 !8lG!j4 "1G" 1D  %bK*rU~~~~~~~~~~~~_ OB7L0eLNUQ:     9 Y a a y   9 I a yiiy VBAProject ThisWorkbook SheetExampleSheetInputFormModuleSheet1FHC:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA7.1\VBE7.DLLVBA  Y0F?C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXEExcel  q@0FC:\Windows\SysWOW64\stdole2.tlbstdole  QPL-[DREC:\Program Files (x86)\Common Files\Microsoft Shared\OFFICE16\MSO.DLLOffice `.E .`M C:\WINDOWS\SysWOW64\FM20.DLLMSForms apC.K yBs +C:\Users\LOCAL_~1\Temp\Excel8.0\MSForms.exd aEFAC:\Program Files (x86)\Microsoft Office\root\Office16\REFEDIT.DLLRefEdit  5G U &C:\Users\LOCAL_~1\Temp\VBE\RefEdit.exd 1   ,    , SHBrowseForFolderA shell32.dll SHBrowseForFolderA  SHGetPathFromIDListA SHGetPathFromIDListA  noselyessel BrowseFolderAlertxlenxleft ReExtractLFSF QrU  lpBrowseInfopidlpszPathCaption StartFoldervarivlen\PROJECTwmPROJECT#PROJECTlkSummaryInformation(ThisWorkbookThisWorkbookSheetExampleSheetExampleSheetInputFormSheetInputFormModuleModuleSheet1Sheet1ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=SheetExample/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Document=SheetInputForm/&H00000000 Module=Module Document=Sheet1/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="5B59F75E5662566253675367" DPB="B6B41A3B2ECD94EA94EA6B1695EA2D41C94E01CB2F98087BB1A73795363BBD223AEF4779780A72" GC="1113BDBEBEBEBEBE" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=81, 81, 601, 519, SheetExample=135, 135, 686, 573, SheetInputForm=108, 108, 659, 546, Module=27, 27, 651, 465, Z Sheet1=135, 135, 738, 573, EF Oh+'0HP`x cchtamVivien YN WONGMicrosoft Excel@@@$ ՜.+,0\ PX  $鶹ý DocumentSummaryInformation8CompObjl  Example Only Input Form Settings AllPartitionAuthorizedSignatureNameAuthorizedSignaturePositionContactPersonoftheProviderName ContactPersonoftheProviderPhone#ContactPersonoftheProviderPositionControlNumberOfDocumentControlNumberofPDFControlTotalFileSize docDescChi docDescEngdocName DocumentDateDocumentTypeChiDocumentTypeEng fileSize fileSizeStrNameofFirmProvidingDoD OffereeChi OffereeEng OffereeStock OfferorChi OfferorEng OfferorStock partitionNoVersionNumberWebChiWebEng  Worksheets Named Ranges F Microsoft Excel 2003 WorksheetBiff8Excel.Sheet.89q