аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ( €Update Allckg Ou€ЅTahomaЎ (ng ofр9 the total number of blocks updated in the title bar.р@ Note:After you select the block, right-click to go back to theџџр@ form. We hope to update it to allow multiple block sources,р one of these days.џџр. It was developed for AutoCAD 2000 and above.эъшџрB Demand load: -vbarun;ad_AttributeUpdate.dvb!ad_AttributeUpdate;рр version 1.00ієѓџрр# CopyrightЉ2000-2009 Active__SRP_2џџџџџџџџџџџџўџџџ__SRP_3џџџџџџџџџџџџўџџџИ__SRP_0џџџџџџџџџџџџўџџџГ__SRP_1џџџџџџџџџџџџўџџџдRoot Entryџџџџџџџџ`њ*5нVЩ@,VBA_Projectџџџџ`kўОФП`њ*5нVЩVBA_Project_Version(џџџџџџџџџџџџVBAџџџџџџџџ € &ўОФП ^*5нVЩ#*§џџџ  (%9 !"$&'+),ўџџџ-;./012345678:ўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ ўџџџ Ѕўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQўџџџSTUVWXYZ[\]^_`abcdefgqijklўџџџnўџџџp|rstuvwxyz{‡}~€acID="{A7BE5197-307D-11D4-B111-00105A11B3C9}" Document=ThisDrawing/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=Module1 Name="ACADProject" HelpContextID="0" VersionCompatible32="393222000" CMG="CECC56405E408644864486448644" DPB="F2F06AAC8FAD8FAD8F" GC="16148E889688BB89BB8944" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDrawing=0, 0,UserForm1џџџџ€ &ўОФП€ &ўОФПPROJECTwmџџџџџџџџџџџџ \PROJECTџџџџfџџџџџџџџџџџџƒв 0, 0, C UserForm1=-1, -1, 664, 586, , 44, 44, 756, 586, Z Module1=4, 5, 716, 547, awingUserForm1UserForm1ОВ€0* pH‚dф ACADProject8@е = t  ‚)Š9( J< rstdole>stdole f%\*\ThisDrawingThisDrawingUserForm1UserForm1G{00020430-;C 0046}#2.0#0#C:\WINDOWS\SYSTEM\c2.tlb#OLE AutomatioFn^€MSForms>BSFEr@ms3€DD452EE1-E08F-1 01A-8-02608C4D0BB4 Dindows\system32\FM20.Do џџџџoCompObjџџџџ џџџџmaVBFrameџџџџџџџџџџџџh$ThisDrawingџџџџџџџџœэUserForm1 џџџџ_5Module1џџџџџџџџRU _VBA_PROJECTџџџџџџџџџџџџdirџџџџџџџџџџџџ ТLL#Mic€rosoft ‚:" €] Ob­ Library/њ;D1€„€tˆ€Aˆ€00}#0‚€#G€k0Ѓ…РA44239CDD-2B09-4F7C-8223-2059C6`02E3C@ЦXUsers\walter\AppData\Local\Temp\VBE\„T.exd <Р!€с.E р….`Œ(M ДСІТЁ"Т0ТЃThisDrawingG€Thi€kDrawРng 2 €HB1Ў-‹B,B Ю"Bт+B РСCrА1GР!eР!m‘1Р!Š 2” O Y*'O СD (€ƒХ!‚Бodule@!uƒБo@дuBдA 27ФЙ oЬ`­џ !Јbmџ  фњ*\G{000204EF-0Ьamџ  фњ*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{851A4561-F4EC-4631-9B0C-E7DC407512C9}#1.0#0#C:\Program Files\Common Files\Autodesk Shared\acax17enu.tlb#AutoCAD 2009 Type LibraryИ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\stdole2.tlb#OLE Automationо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\Windows\system32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{44239CDD-2B09-4F7C-8223-2059C602E3C0}#2.0#0#C:\Users\walter\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџџџ‚)Š9џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0ThisDrawing044abdcf17џџThisDrawingџџЮ-џџUserForm10;4abdcf4cџџUserForm1џџСY'џџModule1094abdcf4cџџ‚Module1џџџ0Ь џџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ•QЎuІƒLžкЬлЬ+dџџџџг'`xBЌ-ЧхЌж•/џџџџ’yГЗ :zFГЋ=™еVџџџџџџџџ0€JKџ /AutoCAD"јVBAїтWin16С~Win32MacГВVBA6­# ACADProjectІдstdole“`MSFormsC ThisDrawingЙ5 €џџџ_Evaluateй UserForm1)жBlockObjЖBlockObjAttributesSЁi` BlockNameB BlockMatchбcAttributeList_ChangeЌбCmd_UpdateAllTypeUїCaptionx AttributeList6pCmd_ReplaceAllГWEnabledлЊCmd_ReplaceThisOne›ОCmd_GetBlock_Click~š ErrorCatchIHide9zsset/.handle• SelectionSetsгAddїrSelectOnScreenЛHandleToObject"…Itemзz GetAttributesСдAddItem‡  TextString DeleteИx Cmd_GetBlockО6ShowѕErroŠClearуЭCmd_ReplaceAll_Clickїщ errcontrol count0ventн‰ ModelSpace_ж EntityNameАx NewAttributeП› NextBlockгь ApplicationЅ*UpdateвќMsgBox—R DescriptionО Cmd_ReplaceThisOne_Click‡оCmd_Quit_Click­dOption_ModelSpace_Click+ ActiveSpaceжe acModelSpace‚ђOption_PaperSpace_Click_* acPaperSpacen1Cmd_UpdateAllType_Clickг<UserForm_Initialize5cStyleХpfmStyleDropDownListomModule1bad_AttributeUpdateМ AcadDocumentZUserFormNCmd_Quitю—Label1,Label2Ž,€џChangeЃЧ€џClickŠу €џџџInitializeгNџџ`џџџџƒ џџџџџџџџџџџџџџџџџџ џџџџџџџџ џџџџџџ џџџџџџџџџџongр8 as the entire contents of this header remain intact.рJ This routine is provided "as-is" and no declaration, written or implied,рJ is made as to its reliability for any particular task. Any use of thisр' routine is solely at your own risk.р– B@NoџџШџџџџРџџџџ…ГAttribute VB_Name = "Module1" ' ad_Up0dateXdThis routine takes user def"d inpu@t to ul €block aтsˆ ' the current drawing. Of particular8 noЄp*dyрnamic@_2 ofIЯtons and, on comple tion,reфpoWng0…!+total nuќmb€b€%Xj_g‚title b(ar.‚N€K:Aftyou spelec€zh, right-cЬli~†go€€9?form. РWe hopІ†™i allow `multidЄs€ources,!o€Т€se daysƒOIt wa"sЪvel€-d 5 AutoCA@D 2000I above DemN load: -v@:un;A.dvb!;CР#‚$vers€\ 1.00ХCop*yТCЉA-9 ActiveDw€ P@€ P€ .р€ €€ €(€0€8€@€ џџџџ" H0P €   А€ џџџџ" ИР Ш€и€р"ш "  H Xhˆ  "Аи2ј60 hx  €Ј АР€ џџџџ" Ша€и€р€ џџџџ€ Fш€ F0€ Dx€ DР€ & 0 @ "X  €      И и ј   ( 0  8  @ H €P X ` h "€  Ј  И  Ш р   8 H P  X  ` h p x € "  И  Ш  и  ш  ј    € (  8 H € џџџџ" P € FX € F  € Dш € D0 € &x   А а  №   (H h€ ˆ˜ А а р №   € џџџџ"( 0@€ џџџџ" H P`€ џџџџ" h p€€ џџџџ" ˆ€˜€ € FЈ€ F№€ D8€ D€€ &Ш№" @ P`€ ИШаи рш€№ј"  H XhˆЈРаи рш№ј" 8 H X h x ˆ˜€ Ј И€ џџџџШ€ џџџџ"а и&ш    0@€ џџџџџџџџPр ad_AttributeUpdateррB This routine takes user defined input to update block attributesр> in the current drawing. Of particular note is the dynamicрA updating of the buttons and, on completion, the reporting ‚ўџџџ„…†Іˆ‰Š‹ŒŽ‘’“”•–—˜™š›ўџџџžŸ ЁЂЃЄЉўџџџЇЈЌЊЋ­ўџџџЎЏАўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ6џџџџџџџџџџџџx№МдАџџџџъЦ 0џџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(6 џџџџ< џџ<џџ<џџџџџџџџџџ€ „џџџџ`џџџџџџџџџџџџ|џ@џџџџџџџџџџ„џџџџƒ‚џџџџџџpџџџџџџџџџџџџџџ%џџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@‚)Š9$*\Rffff*094abdcf4cпўЪ€ €  € H(€ Dp€ HИ€ @€ F@€ Fˆ€ а€ 4№€ H(€ p€ x€ € *˜€ Ш€ Jа€ J € :p€ NА€ >€ P@€ P€ .р€ "  0џџџџ@р ad_AttributeUpdateррB This routine takes user defined input to update block attributesр> in the current drawing. Of particular note is the dynamicрA updating of the buttons and, on completion, the reportiVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 3420 ClientLeft = 45 ClientTop = 330 ClientWidth = 3915 StartUpPosition = 1 'CenterOwner TypeInfoVer = 26 End ўџ џџџџMicrosoft Forms 2.0 FormEmbedded Objectє9Вq( €Select Blockь Ou€ЅTahomaЎDwg.comррC This routine is provided for demonstration purposes only and must§џў§§џрC not be used for critical applications without your verificationwџSNJўр3 that this routine will perform as you intended.]ОрG Th€Update Selected g Ou€ЅTahomaЎ(€Exitь Ou€ЅTahomaЎA€H€,ь {5€ЅTahomaЎ€H€,ь {5€ЅTahomaЎ$(€ Current Attribute:№ь Їu€ЅTahomaЎ( € Change To:ь Їu€ЅTahomaЎ$(€Update All Like Thisg Ou€ЅTahomaЎ  }њ‘ Є‰(х €<Cmd_GetBlockвд,х€<Cmd_ReplaceAll д“ 0х€@Cmd_ReplaceThisOne “ $х€4Cmd_Quit и,х €8is routine may be freely utilized for your own personal use so lofр9 the total number of blocks updated in the title bar.р@ Note:After you select the block, right-click to go back to theџџр@ form. We hope to update it to allow multiple block sources,џџр one of these days.џџр. It was developed for AutoCAD 2000 and above.Œ9mрB Demand load: -vbarun;ad_AttributeUpdate.dvb!ad_AttributeUpdate;рр version 1.00„уvрр# CopyrightЉ2000-2009 ActiveDwg.comv$цvррC This routine is provided for demonstration purposes only and mustvDъvрC not be used for critical applications without your verificationvюvр3 that this routine will perform as you intended.vёvрG This routine may be freely utilized for your own personal use so longnр8 as the entire contents of this header remain intact.рJ This routine is provided "as-is" and no declaration, written or implied,рJ is made as to its reliability for any particular task. Any use of thisр' routine is solely at your own risk.рЭџџр]ђЈ]ђа]ђ] ђј]ђ(–xЖUpdate All With ' (!dЖ' $(&З *(,ctoЗ .(,З $(,oџџH–ИЩ28 џџB@4]ђј]ђэЖ Block_Edit !:%<.6 6B@>эЌ 6%B!8 %@. !' !D'ngџ ў Š ‘’ $!H (B@Fџ ўШЖ Block_Edit !:%BB@JЖ Block Name:  џџ(&Ж Uson€&б soy`ngФСЇ@ЧiЪrЪotsƒЛ%Phead€ŸrniТn€гtact!@ †Q"as-is"i‚Kno Cc`lB, w`$  or bigiedeL m@  Yi@reliabilityKany‰vtaspk. A€ЂSiЧх~E)€ solс"€,І!ri Р S„ub() < U ŽF€g1.Show End   џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№Ьдџџџџг'0Юџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{7AABBB95-79BE-4C0F-8024-EB6AF271231C}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџModule1Module1˜ с" ЈAttributeList ; і(х € 4NewAttribute; D(ѕ€ 2DLabel1ЎO`(ѕ€ __SRP_6џџџџџџџџџџџџўџџџ__SRP_7џџџџџџџџџџџџўџџџ@__SRP_5џџџџџџџџџџџџўџџџД__SRP_4џџџџџџџџџџџџўџџџцpdate All 'Ќ$!HЖ's' *(&Ж Update This 'Ќ$!HЖ' Only .(&З L(,Ќ$!H'  џџB@N|џџXЃ2P PB@Roџџ8–(ЩV(]ђh]ђ€р@We need to trap the routine if the change is to simply add a newр@ part to the connection list. If the Part to change is definedр> as "" then ALL blank spaces in the block will be changed toœ.р> the new item. This trap breaks out after adding one 2<Label2ЎOЎ0х€ DCmd_UpdateџџHџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0‚)Š9пAllTypeЎлЖўЪџџџџџџџџxџџџџМАAttribute VB_Name = "ThisDrawingˆ" ˆBasˆ0{7AABBB95-79BE-4C0F-8024-EB6AF2€71231C} |@GlobalЮSpac’False dCreatablPredeHclaIdАTitem inр the first blank placeholder. (!dЖœџ Zў !\“ Z!^ЖAcDbBlockReferenceœ Z! œ Z!D'Ћ‘Ќ$!H œџ ў Š ‘’yri $!H (!dœ `!d $(H XЌ 'XšbиkџџаџЧШkџџРkџџИkџџАЃbЈџЧ dџџ˜џ Zў !\“6Б Z!^ЖAcDbBlockReferenceœџџџџ Z! œ Z!D'Ќ$!H œџ ў Š ‘’ $!H (!dœ `!d $(H XЌ 'XkџџАџЧЈkџџ kџџ˜kџџџЧˆkџџ€ !dB@fh XЖ Blocks Updated џџ(&Ж `(d (B@RЗ L(,З *(,З .(,З $(,|џџрЃVи P!jA@h PB@RЂoџџА–˜р@We need to trap the routine if the change is to simply add a newр@ part to the connection list. If the Part to change is definedр> as "" then ALL blank spaces in the block will be changed toр> the new item. This trap breaks out after adding one item inр the first blank placeholder. (!dЖœџ ў Š ‘’ $!H (!dœЛ†zОтэ `!d $(Hkџџ№џ ўШamedџџиџ ў Š ‘’ $!H (!dœ `!d $(Hkџџxџ ўШkџџ` !dB@fЖ1 Block Updated џџ(&Ж `(d (B@RЗ L(,ensЗ *(,З $(,oџџи–и џџA@roџџИ– t (roџџ˜–X x (roџџx–˜ЩVh]ђи]ђ№р@We need to trap the routine if the change is to simply add a newр@ part to the connection list. If the Part to change is definedр> as "" then ALL blank spaces in the block will be changed to–йlПр> the new item. This trap breaks out after adding one item inр the first blank placeholder. (!dЖœџ Zў !\“ Z!^ЖAcDbBlockReferenceœ Z! œ Z!D'+,љЎџ ў Š ‘’ $!H (!dœrip `!d $(H XЌ 'Xšb0kџџ(џЧ kџџkџџЃbџЧdџџј џ Zў !\“ Z!^ЖAcDbBlockReferenceœ Z! œ Z!D'Prџ ў Š ‘’ $!H (!dœ `!d $(H XЌ 'Xkџџ( џЧ kџџ kџџ џЧ kџџ !dB@fh XЖ Blocks Updated џџ(&Ж `(dra (B@RЗ L(,З *(,З .(,З $(,|џџ` ЃVX P!jA@h PB@Roџџ0 – € ((~ZЃ<)ЖActiveDwg Attribute Update џџ(&З *(,џџIsЗ .(,neЗ $(,oџџИ џџџџА џџџџlИAttribute VB_Name = "UserForm1" " €Bas€0{0048BADA-6FF9-4CD3-9C7F-3B17E77205A8}{B919E620-6DDB-4777-B442-A99A17A93DEA} dGlob„al‹Spaco False ŠCr@eatablP€redeclaDIdдTru BE`xpose0TemplateDeriv–Cus tomiz‹D'  ad_Upd$ ' This routine takes uИ def€d input to u b@lock aдs " € the current drawing. Of particu€~ no€э8dynamic ‚/€ ofB€tons and, on co@@etion,!ТrepoРng Хtotal€ numberС,5‚/С3BtitЁkbar.ТNР%:Aft€ youР selec@=4‚, right0-cli?CgoИ baƒР…f@Љ. We hop SЦLiPallow multipСRsourcets,…o@a@РЖdaysУ'It wDasevelРd € AutoC€AD 2000I@ above DemN load : -v@:un‚;.dvb!†;Р#‚$vers€\ 1.00ХCoTpyТCЉA-9 ActРЅDwg.Рi Ъ–@}provid@ЏA/dem€wtrat puJrПs =ly‚m`Y @KЁF beсR1criJ 0%.?Ÿ‘у4ЏсЌ Oxnly6%.Ј3Д” ?3г@з o №Sh$owEx|SuXb в2"2:‚rРr.CleaаHŸ78bDЇП7Е7errbcarolqЁ5c?€&7O#7б•јR s№U ‡ne h№\up+ѓ‘4iу”c€1ge6 pZ@s!a`vddр a ne@0Ђ"_З‘žQjРn№XЁl Qш. IcPАœ1чO„ЂP№-0n""сn ALL blaаnk sГsЂ•яРz w0}sd Бi iр<.УЉ b-ЖkРrАЈabšad>dТЂ№’БаfirstФ2WholћАuаt q VB8%€=Б` The’Gp ё>LEa cсIn:MMрodelSA Ббob€'€Ѕyq4!AcDbb,Refeё`Бce"€GЁpџ$вВЩ#ВК6џ0БЮJѓQаo|4Зф0Г1o ВПOjЧ3=ПObйW… o teўs;OА оOоИNewВUo @ЦŠuРЫ=t+ 1O| ТrёXRЁ@Iўf};ѕЦwRGУ`БE’шC+iоseb++Ёы"++ПР+ њЏ#_+eАU іД If BlockObjAttributes(0).TextBS@ng =ˆMatch Then фFor iLLBound( ) To nU: O–i –БLјistБžЉф M8New(&K c€ptuƒ+ 1БEndЋ N€Ї?‹ ‰…‡ ThisDrawing.Application.Update5Me.Cap †X& "Щƒцs ƒd"A Ю> "BЫXClear Cmd_Get‚U.EnablФedР TruBReplaceA„llFalsMq2OneU У)€Typ Exit Sub errcontrol:)MsgBox Err.DescќriТBAФ2TР Priv€NС& H0Ф'_C€Xk() 'We nehoрlder.!-ŒKHџ‹ЂKju_ˆ_ˆс|_‡Ём= p-›_† X†чtѓСЁw i"Oф_ЁŸџŸсŸŸуcƒ‹СџЄ?ЦС–FЂaiŸ–†–"1џ#Ÿ•Ÿ•Ÿ•š•мAдˆQuit‡‡ U€nload Mр ДO•_Mode