ࡱ>  |wRoot EntryRoot Entry FkCompObj fWorkbook \_VBA_PROJECT_CUR" kk_< :  !"#$%&'()*+,-./0123456789;>=C?@ABFDEVGHIJKLMNOPQRSTUWXYZ[\]^`nabcdefghijklmo~pqrstuvwxyz{|}KSummaryInformation(pDocumentSummaryInformation8\VBA<kkPROJECT&  !"#$%&'()*+,-./012346789;=>?@ACDEFHIJKMOPQRSUVWXZ[\]_abcdefghijklmnpqrstuvxyz{}՜.+,D՜.+,8 PXt | Excel DevelopmentT: Lookup DefinitionLocalization Table  Worksheets$Oh+'0@ PXp  ,8Lookup Wizardx1(C) 1995, 1996, 1997, 1998 Microsoft Corporationpor1Helps you create formulas to find data in lists.porMicrosoft CorporationlaMicrosoft Excel@n@l_ FMicrosoft Excel WorksheetBiff8Excel.Sheet.89qThisWorkbookThisWorkbookSheet11Sheet11Sheet21Sheet21DBLookup1DBLookup1DBLookup2DDBLookup0*pkpkDBLookup1 &pk kDBLookup2" k kDBLookup3  k}kDBLookup4}k}kPROJECTlk PROJECTwmDBLookup2_RowLabel&`k`kDBLookup2_ColumnLabel,`kkfB/o<tCompObj:a J@\pMicrosoft Corporation Ba= ThisWorkbook=h%<X@"1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial1Arial"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)C"1.3."\ #,##0_-;"1.3."\ #,##0\-M$"1.3."\ #,##0_-;[Red]"1.3."\ #,##0\-O%"1.3."\ #,##0.00_-;"1.3."\ #,##0.00\-Y*"1.3."\ #,##0.00_-;[Red]"1.3."\ #,##0.00\-?_-"1.3."\ * #,##0_-;_-"1.3."\ * #,##0\-;_-"1.3."\ * "-"_-;_-@_-,'_-* #,##0_-;_-* #,##0\-;_-* "-"_-;_-@_-G_-"1.3."\ * #,##0.00_-;_-"1.3."\ * #,##0.00\-;_-"1.3."\ * "-"??_-;_-@_-4/_-* #,##0.00_-;_-* #,##0.00\-;_-* "-"??_-;_-@_-"$"#,##0;\-"$"#,##0"$"#,##0;[Red]\-"$"#,##0"$"#,##0.00;\-"$"#,##0.00#"$"#,##0.00;[Red]\-"$"#,##0.0050_-"$"* #,##0_-;\-"$"* #,##0_-;_-"$"* "-"_-;_-@_-,'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=8_-"$"* #,##0.00_-;\-"$"* #,##0.00_-;_-"$"* "-"??_-;_-@_-4/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-#,##0\ "DM";\-#,##0\ "DM"##,##0\ "DM";[Red]\-#,##0\ "DM"$#,##0.00\ "DM";\-#,##0.00\ "DM")$#,##0.00\ "DM";[Red]\-#,##0.00\ "DM">9_-* #,##0\ "DM"_-;\-* #,##0\ "DM"_-;_-* "-"\ "DM"_-;_-@_->9_-* #,##0\ _D_M_-;\-* #,##0\ _D_M_-;_-* "-"\ _D_M_-;_-@_-FA_-* #,##0.00\ "DM"_-;\-* #,##0.00\ "DM"_-;_-* "-"??\ "DM"_-;_-@_-FA_-* #,##0.00\ _D_M_-;\-* #,##0.00\ _D_M_-;_-* "-"??\ _D_M_-;_-@_- 000\-00\-0000m/d mm/dd/yy mmmmm\-yymmmm\ d\,\ yyyy mmmmm+m/d/yy\ h:mm\ \5/\E "$"#,##0.00!"$"#,##0.00;[Red]"$"#,##0.00UP_-* #,##0.00\ [$DM-407]_-;\-* #,##0.00\ [$DM-407]_-;_-* "-"??\ [$DM-407]_-;_-@_- 00000\-0000,'[<=9999999]###\-####;\(###\)\ ###\-####                + ) , *          X  X !X          l  "x  "|          (@   (@   (   (   (   (   (@ @  8@ @  8 @  8 @  8@  (8  8  8@   ,   ,  8@@  8@  8@  (8  8 (0  "8@@  "8@  "8 @ `e/Lookup Definition:Localization Table __DemandLoad$ AlertTable;-$MenuDefinition: , RandomStringsTable;/E' WizDefinition;`iZR3  @@  ErrorInChosenLabelAt least one of the label you chose contains a character which can not be interpreted by the wizard. Please fix your table and try again. AlertTable NameMessageMustHaveRangeSelection7You must select a range before using the Lookup Wizard.MustHaveSheetActiveWThe Lookup Wizard needs to be run from a worksheet. Select a worksheet and start again.MergedCellsInRangedThe range you selected contains some merged cells. You need to remove them to use the Lookup Wizard.TopRowNotSortedThe top row of your range is not sorted. The Wizard can sort it for you. If you choose not to sort it, the result of the formula built by the Wizard might be wrong. Do you want to sort the top row ?LeftColNotSortedThe left column of your range is not sorted. The Wizard can sort it for you. If you choose not to sort it, the result of the formula built by the Wizard might be wrong. Do you want to sort the left column ? WeirdRangeWThe range you selected is not valid. Please select only the cells containing your data. TopRowEmptydThe first row of the range you selected is empty. Please select only the cells containing your data.LeftColumnEmptyfThe left column of the range you selected is empty. Please select only the cells containing your data. ErrorTopRowwOne or more entries in your top row cannot be interpreted by the wizard. Please check for errors such as #N/A or #REF. ErrorLeftColumn{One or more entries in your left column cannot be interpreted by the wizard. Please check for errors such as #N/A or #REF. OneRow]The range you selected has just one row. Please select all of the cells containing your data. OneColumn`The range you selected has just one column. Please select all of the cells containing your data.ValidResultCell;The cell you selected is not valid. Please select one cell.CanNotHaveNotColAndNotRowYou must choose at least one existing value to match. Your existing value can be a row label or a column label. Please try again.OneCellNotEmptymThe cell you selected is not empty. Do you want to continue and replace the contents of the destination cell?EmptyResultCellYou need to select a cell.MoreThanOneCell!You need to select only one cell.ResultNotValid1The new value you entered is not valid (it might be past the lowest value of your list), or the cell found by the wizard contains a formula returning an error (in this case you need to exit the wizard and fix your table).ResultNotValid2nThe cell found by the wizard contains a formula returning an error. Please exit the wizard and fix your table.EntireColumnSelecteddThe range you selected includes an entire column. Please select only the cells containing your data.EntireRowSelectedaThe range you selected includes an entire row. Please select only the cells containing your data.SheetProtected?The cell you selected is locked (the sheet might be protected). RangeTooLargeCThe range you selected is too large. Please select a smaller range.DBLookup1HeadingWelcome to the Lookup Wizard.DBLookup1Text1uThis wizard helps you create a formula that finds specific information in a list, based on the row and column labels.DBLookup1Text2First, specify the range containing your data. If you click a cell within your data before you start the Lookup Wizard, Microsoft Excel automatically detects a range for you.DBLookup1Text3dTo enter a range in the box, you can type the range, or select the range directly on your worksheet.DBLookup2Heading[In this step you specify the row and column label that identify the value you want to find.DBLookup2Text1If your data doesn't have column or row labels, or you don't see the exact label you want in the list, you can select No Column Label Matches Exactly or No Row Label Matches Exactly. The wizard will then let you type in a value.DBLookup2Text2YYou must select at least one existing label, either from the column list or the row list.DBLookup3Heading7In this step, you decide what kind of formula you want.DBLookup3Text1iIf you want just the single value shown in the dialog box, select Copy Just The Formula To A Single Cell.DBLookup3Text2If you want a formula that you can use to look up different values, select Copy The Formula And Lookup Parameters. You can then enter different column and row labels for the lookup parameters on your worksheet to display different results for the formula.DBLookup4Heading=In this step, you specify where you want to copy the results.DBLookup4Text1^If you are copying just the formula in a single cell, type or select the cell for the formula.DBLookup4Text2If you are copying the formula and the lookup parameters, type or select a cell for the first parameter, and then click Next. Continue until you've specified a cell for each parameter and the formula. DBLookup4Text3vWhen you click Finish, you can type different values in the parameter cells to get different results for the formula. DBLookup4Text4For more information about the functions used in the formula, look up INDEX worksheet function and MATCH worksheet function in Microsoft Excel Help.More ShrinkBalloonShrink balloonRandomStringsTableTopMenuSubMenuMenuItem &Lookup...ValueNotInColumnLabelNo column label matches exactlyValueNotInRowLabelNo row label matches exactlyNewValue New Value - ClickNext*Type or select a cell and then click Next. ClickFinish,Type or select a cell and then click Finish. CopyTheResult,Where do you want to copy the lookup formulaCopyTheParameter(Where do you want to copy the parameter InterrogationMark? ChangeLaterCTo change this parameter later, type a different value in the cell.FormulaWithCstGThe formula results are based on the parameters you selected in Step 2.FormulaWithRefrTo recalculate the formula results later, you can change the parameter values the Wizard copied to your worksheet. DBLookup4Lookup Wizard - Step Ofof AddinLongname Lookup WizardAddinDescription0Helps you create formulas to find data in lists. AddinAuthor Panel Dialog DBLookup1DBLookup1_SetupDBLookup1_Next DBLookup2DBLookup2_SetupDBLookup2_NextDBLookup2_Back DBLookup3DBLookup3_NextDBLookup4_Next_FinishDBLookup4_Back Menu ItemMenu After Menu Item Menu Item KeySeparator Before Menu ItemSeparator Before Menu Item Key Entry PointHelp ID Help FileMenu Bar NumberTop MenuMenu After Top Menu Top Menu KeySub MenuMenu Item After Sub Menu Sub Menu Key_XLWizard_LookupDoLookupCommand xlWorksheet _XLWizardDBLookup4_Setup ProcedureSetupNextBackFinishCancelCanNotRunInGroupMode\The Lookup Wizard can not be run in a group mode. Select only one worksheet and start again.CanNotRunInPlaceCThe Lookup Wizard can not be run while Microsoft Excel is in-place.$(C) 1995, 1996 Microsoft CorporationWi&zard&Tools ("jd\V  d"^$&'r(le)_*F+@+K,E,d-^- J@ b1:  dMbP?_*+%&A Page &PM.\\MSPRINT10\17/3309 PRIVM 157.5 pKLetter ''''"d??U}  } $ }  }  }  }  } m }  } m } } $ } m } } m } I }  } $  Row 26, ;$    & =>>>?!""" -y + + + + ,#""" 'z ){ )| ))*" '} )~ ) ) )* ') ) ))* (p + + + +, . / / / / / / / / 0 / / / / / / / 1!Z2 &Lookup... , , ,, , ,, , 2 Z0 &Tools ,,  , Z1 Wi&zard , , ,,( 74444444494444444( 8)))))))):<))))))( 333333333;3333333(3)))))))):)))))))())))))66)))))))))())))))66)))))))))())))))66)))))))))())))))56))))))))) %% %% %% %% %%%%%%6u<fDF6P,,,,,,,, >@  7 Sheet21 J@  }<PG,PV0Z  dMbP?_*+%&A Page &PM.\\MSPRINT10\17/3309 PRIVM 157.5 pKLetterp  ''''"dXX??U} } F} $ } } } } } $  Column AA}@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@@@@@@                                                                    !   " #   $ %   & '       ( )   * +   , - . / 0 1   2 3   4 5   6 7   8 9  D lLDDDPD,PP:.::::.:::::::::..:::: @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@=@>@?@ : ;   !< != ! ! "> "? " " #@ #A # # $B $C $ $ %D %E % % &F &G & & 'H 'I ' ' (J (K ( ( )L )M ) ) *N *O * * +P +Q + + ,R ,R, -S -T-. /U/ 0V 00 1W 11 2X 2Y23 4Z 4[4 5\ 5]5 6^ 6_6 7` 7a7 8b 8c89 :d :e: ;f ;g; <h <i < < =j =k= >l >m > > ?n ?o?Dl::::::::::::.."..........:.:@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ @p @q@ Ar AsAB Ct CuC Dv DwD Ex EEFGHIJKLMNOPQRSTUVWXYZ [ \ ] ^ _Dl.....`abcdefghijklmnopqrstuvwxyz{| ` a b cc d e f g h i j k l m n o p q r s t u v w x y z { |>0(  LB  3 @ ]hTLB  3 @ ]TLB @ 3 @ ] TLB  3 @ ]>"@1117 Sheet11 VBFrame51fT/oNtCompObjLaVBFrameG.foo`CompObj^aBLookup2DBLookup2_ColumnLabelDBLookup2_ColumnLabelDBLookup2_RowLabelDBLookup2_RowLabelDBLookup3DBLookup3DBLookup4DBLookup4Lookup_LocalizationLookup_LocalizationLookup_CommonLookup_CommonCLookup4CLookup4Lookup_MenuAndInitLookup_MenuAndInitCLookup1CLookup1CLookup2CLookup2CLookup3CLookup3CLookup2_RowLabelCLookup2_RowLabelCLookup2_ColumnLabelCLookup2_ColumnLabelCharacterCharacterDBLookup0DBLookup0EFID="{5A7B5226-0027-11D0-8EDA-00A0C905604E}" Document=ThisWorkbook/&H00000000 Document=Sheet11/&H00000000 Document=Sheet21/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=DBLookup1 BaseClass=DBLookup2 BaseClass=DBLookup2_ColumnLabVBFrameY3fko~CompObj |aVBFramew3fo!#CompObj$aVBFrame3f"o%' CompObj(aVBFrame3f1_o)+CompObj,/aVBFrame+dir(Sheet11-/Sheet21el BaseClass=DBLookup2_RowLabel BaseClass=DBLookup3 BaseClass=DBLookup4 Module=Lookup_Localization Module=Lookup_Common Module=CLookup4 Module=Lookup_MenuAndInit Module=CLookup1 Module=CLookup2 Module=CLookup3 Module=CLookup2_RowLabel Module=CLookup2_ColumnLabel Module=Character BaseClass=DBLookup0 HelpFile="" Name="lookup" HelpContextID="0" VersionCompatible32="393222000" CMG="F6F46A6696AA88AE88AE88AE88AE" DPB="ECEE707C907E9C7E9C2996EB81048317911ED70016" GC="E2E07E8A758B758B75" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet11=0, 0, 0, 0, C Sheet21=0, 0, 0, 0, C DBLookup1=0, 0, 0, 0, C, 22, 22, 390, 351, C DBLookup2=0, 0, 0, 0, C, 44, 44, 412, 373, C DBLookup2_ColumnLabel=0, 0, 0, 0, C, 66, 66, 434, 395, C DBLookup2_RowLabel=0, 0, 0, 0, C, 88, 88, 456, 417, C DBLookup3=0, 0, 0, 0, C, 110, 110, 478, 439, C DBLookup4=0, 0, 0, 0, C, 132, 132, 500, 461, C Lookup_Localization=0, 0, 0, 0, C Lookup_Common=0, 0, 0, 0, C CLookup4=0, 0, 0, 0, C Lookup_MenuAndInit=0, 0, 0, 0, C CLookup1=0, 0, 0, 0, C CLookup2=0, 0, 0, 0, C CLookup3=0, 0, 0, 0, C CLookup2_RowLabel=0, 0, 0, 0, C CLookup2_ColumnLabel=0, 0, 0, 0, C Character=0, 0, 0, 0, C DBLookup0=0, 0, 0, 0, C, 0, 0, 368, 329, C VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DBLookup2_ColumnLabel Caption = "Lookup Wizard" ClientHeight = 2085 ClientLeft = 1455 ClientTo__SRP_0.2<__SRP_1__SRP_2131__SRP_3__SRP_408__SRP_5B__SRP_657x __SRP_7__SRP_86:__SRP_9B__SRP_a9;__SRP_bW__SRP_c4LZH __SRP_dS__SRP_e=?B>__SRP_f>CLookup1>BWCLookup2%cCLookup3AC CLookup4Y__SRP_10@H>__SRP_11__SRP_12EG__SRP_13W__SRP_14FJT__SRP_15W__SRP_16IK__SRP_17__SRP_18DT&__SRP_19__SRP_1aMO__SRP_1b__SRP_1cNR__SRP_1dB__SRP_1eQSl__SRP_1fg__SRP_20P\__SRP_21}__SRP_22UWu__SRP_23r__SRP_24VZlh__SRP_25jg__SRP_26Y[7 __SRP_274__SRP_28X`+__SRP_29)gCharacter]_}TDBLookup0 DBLookup1^dnMDBLookup2bDBLookup3acXqDBLookup4NAThisWorkbookbh_VBA_PROJECT+|>Lookup_CommonegrCLookup2_RowLabel$DBLookup2_RowLabel&fj Lookup_MenuAndInit&Lookup_Localization(ik(CLookup2_ColumnLabel*lbDBLookup2_ColumnLabel,3 p = 795 ClientWidth = 4290 StartUpPosition = 0 'Manual TypeInfoVer = 45 End  Microsoft Forms 2.0 FormEmbedded Object9q(CancelLuTahomaL(OKuTahomaLh(XMicrosoft Excel uses the largest column label less than or equal to the value you enter.5TahomaL,(TType the value to match:'5TahomaLH,7,5TahomaL$  -}^R KQDBTahoma(;8CancelL $74Next] , 2ExplanationLN(2LTypeLlL>$4ColumnTBiVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DBLookup2_RowLabel Caption = "Lookup Wizard" ClientHeight = 2085 ClientLeft = 1455 ClientTop = 795 ClientWidth = 4290 StartUpPosition = 0 'Manual TypeInfoVer = 45 End  Microsoft Forms 2.0 FormEmbedded Object9q(CancelTBuTahomaTB(OKuTahomaTBh(UMicrosoft Excel uses the largest row label less than or equal to the value you enter.er.75TahomaTB,(TType the value to match:'5TahomaTBH,~,5TahomaTB$  -}^R KQDBTahoma(;8CancelTB $74Next] , 2ExplanationLN(2LTypeLlTB>$4RowTBlTBiVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DBLookup4 Caption = "Lookup Wizard - Step 6 of 6" ClientHeight = 3705 ClientLeft = 1455 ClientTop = 795 ClientWidth = 5025 StartUpPosition = 0 'Manual TypeInfoVer = 80 End  Microsoft Forms 2.0 FormEmbedded Object9qR KQltBMv("""""""""""""""""""""""""""""""""""""""""""%"""""""""""U"""""""#3352""""""UUUPS"""""%2""""%@2""""%2""""%02""""%B2""""%412""""%0@2""""%A$A2""""%DD 2""""%2""""%""""""UUUUUR"""""""""""""""""""""""""""""""""""""""""""""""""""uTahoma1L(Cancel1L<uTahoma1L(b< Back1L<uTahoma1L(Next >1L<uTahoma1L(Finish1L<uTahoma1L@(-Where do you want to copy the lookup formula?sH!5Tahoma1L@(,CType or select a cell and then click Finish.H!5Tahoma1LH$ ,5Tahoma1L$  P}"R KQDBTahoma8KEFҋB `EFH( AssistantonLS(;8Cancel1LW9 <BackM 9 8Next9(78Finish1L9$2`L1">$2`L3" $8ResultTB VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DBLookup3 Caption = "Lookup Wizard - Step 3 of 4" ClientHeight = 3705 ClientLeft = 1455 ClientTop = 795 ClientWidth = 5025 StartUpPosition = 0 'Manual TypeInfoVer = 96 End  Microsoft Forms 2.0 FormEmbedded Object9qR KQltBMv("""""""""""""""""""""""""""""""""""""""""""%"""""""""""U"""""""#3352""""""UUUPS"""""%2""""%@2""""%2""""%02""""%B2""""%412""""%0@2""""%A$A2""""%DD 2""""%2""""%""""""UUUUUR"""""""""""""""""""""""""""""""""""""""""""""""""""uTahomaTB(CancelTB<uTahomaTB(b< BackTB<uTahomaTB(Next >TB<uTahomaTB(FinishTB<uTahomaTB(45ruTahomaTB(45ruTahomaTB(45ruTahomaTB(45ruTahomaTBP(@The Lookup Wizard can display the result in two different forms. ,5TahomaTBXG<'C0a2Copy just the formula to a single cell.5TahomaXG<'ova2Copy the formula and lookup parameters.5Tahoma$  `}"R KQDBTahoma ( AssistantnLS(;8CancelW9 <BackM 9$78Next9$8Finish9(28Choice1L , 28Choice21LnL(, 28 Choice22LnL (, 28 Choice23LnLB(0 2p ExplanationLB>( xChoice1OBonLN( xChoice2OBonL; VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DBLookup2 Caption = "Lookup Wizard - Step 2 of 4" ClientHeight = 3705 ClientLeft = 1455 ClientTop = 795 ClientWidth = 5025 StartUpPosition = 0 'Manual TypeInfoVer = 90 End  Microsoft Forms 2.0 FormEmbedded Object9q$V R KQltk GIF89adf3̙f3f3ffffff3f3333f333f3f3̙f3̙̙̙̙f̙3̙ffffff3f3333f333f3̙f3̙̙f3̙f3ff̙ffff3f33̙33f333̙f3ffffff3ffff̙fff3fffffff3ffffffffffff3fff3f3f3f3ff33f3ffffff3f3333f333333̙3f3333333f3333f3f3f3ff3f33f33333333f333333333f333f3̙f3f3ffffff3f3333f333f3wUD"wUD"wUD"ݻwwwUUUDDD"""!,d@ H*\ȰÇ#JHŋ3jȱǏՁI:uR\ɲ˗0cʜI͛8svgbYa!aJNRUEVPbdORy  F. YAj4dih"CeRn&|t!{ߝp9ڜv8袋%o@ ioW^_ev =*eqv*zb*֠^vy$}i*gfòlrوike:Զ,)XayE(]ر ߆ua{.ٻU+`km_,0Blϛ Xp+WlgCjnaweVtʕU.WXeq IYPr+#m`  ܐifY #`-dmvَ @_\Jb(.Ȯ*d4I.Ħx'W[Ÿ֎Gn&)3_jj2][蝞ʺ}e,M9{vwꊪK%uA%O2eҶȔlKk$0AA LHK˥/TM&!1;D%7I2rL'~d&a'y^-B94!cni~4:ȿYD7mDC;":賛G)?ȓ1Dz=; \Q/{c5_ ϞVk:UF}JTykC-R utPbSkR*Ju^J;`xUi+ŋtw<TXίéE[VZխ3_j5.{ PuTf=٬uWGΫ I{!Qm[8o$-mT6PGlkw ɒP--RM KZ˦aZǼӒ*^7!v3Pz ȭ >m|#U7?y}mr]ezg})-zs{q7,rk9/{:z";KG0~ ŔA/)P0:W3LŰ3 69UOh\ +2La@ wnwfErpH$.ReT =OyE̲`T358bl[JCLі40N{ӠVH@;R KQltBMv("""""""""""""""""""""""""""""""""""""""""""%"""""""""""U"""""""#3352""""""UUUPS"""""%2""""%@2""""%2""""%02""""%B2""""%412""""%0@2""""%A$A2""""%DD 2""""%2""""%""""""UUUUUR"""""""""""""""""""""""""""""""""""""""""""""""""""uTahomaB(CancelB<uTahomaB(b< BackB<uTahomaB(Next >B<uTahomaB(FinishB<uTahomaBX(BWWhich column contains the value to find? Select the column label.s~45TahomaBP(<SWhich row contains the value to find? Select the row label. 45TahomaB@ 5TahomaB@ 5TahomaB$  Z}"R KQDBTahoma ( LookupDB2onL,( AssistantonLS(;8CancelBW9 <BackM 9$78Next9$8FinishB9(2xColumnLr$2pRowLr 4DD1r"  4DD2rTVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DBLookup1 Caption = "Lookup Wizard - Step 1 of 4" ClientHeight = 3705 ClientLeft = 1455 ClientTop = 795 ClientWidth = 5025 StartUpPosition = 0 'Manual TypeInfoVer = 72 End  Microsoft Forms 2.0 FormEmbedded Object9q$R KQltGIF89aNf3̙f3f3ffffff3f3333f333f3f3̙      !#$%&'()*,-.02456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~f3̙̙̙̙f̙3̙ffffff3f3333f333f3̙f3̙̙f3̙f3ff̙ffff3f33̙33f333̙f3ffffff3ffff̙fff3fffffff3ffffffffffff3fff3f3f3f3ff33f3ffffff3f3333f333333̙3f3333333f3333f3f3f3ff3f33f33333333f333333333f333f3̙f3f3ffffff3f3333f333f3wUD"wUD"wUD"ݻwwwUUUDDD"""!,N@ HXȰÇ#JHŋ3jX1Ǐ 1c8raI%S[ %G\8sf8iΗOl(Ԥі+ʴ!PJJիXjʵׯY%%щ`i۴pz0iݸq߾@_M3LÈDB !GuTO1g `gωJ::U͖?漹3M˞M6`cI5׽B]6ջsW;\[ϝ}q_}e~7NFU^v }Iw,6ԓL?`L<S`eR`YgGevToDXRvS]uT.jC(h㍊=Ycp/6v]n)TҖh-:Z.i-8 bcyːxX_ݮ^~ƢR>\es+9dEn}(hו ≭fW%7ݨ׶_GgKšS/ʆR:ԫIB&l= [|VA_Egs:{`& N!G XǫIG5z?  ERA㜮 D4kqW+q g=\YZXvZM2|yThCq81Kd5`y{KҔ%-`:!UDMbK]|x,MBlNNvQe<5gi| #AGW(IgqPǑL5J!ȉM njDL2IL" v0vIJ u| FIJ ig| f6PZT0f2*NF#wI=TbqWΆU$4fQSΌU(MiR }g==jibWͥ9֪ؾy)a[ߜV٥-JSؼ,_Ĝ t!LA; Է p O`˼6Gk&=S3j(<4RAQˡ3'H.o~dhd|]5{u:TD)+'Ϥ9nqd;yվuar{65k\c(àBd)`A;R KQltBMv("""""""""""""""""""""""""""""""""""""""""""%"""""""""""U"""""""#3352""""""UUUPS"""""%2""""%@2""""%2""""%02""""%B2""""%412""""%0@2""""%A$A2""""%DD 2""""%2""""%""""""UUUUUR"""""""""""""""""""""""""""""""""""""""""""""""""""uTahoma(Cancel<uTahoma(b< Back<uTahoma(Next ><uTahoma(Finish<uTahoma|(kThe Lookup Wizard helps you write a formula that finds the value at the intersection of a column and a row.H!i5TahomaX(BWWhere is the range to search, including the row and column labels?s 45TahomaH$? ,5Tahoma$  H}"R KQDBTahoma8KEFҋB `EF (  LookupDB1oN( AssistantoS(;8CancelW9 <BackM 9$78Next9$8Finish9, 2ExplanationL>, 2xQuestionLonLr$8RangeTBVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} DBLookup0 Caption = "UserForm1" ClientHeight = 3225 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 End  Microsoft Forms 2.0 FormEmbedded Object9q @ @}t 9R KQDBTahoma 0w) +PN_˄+7B_˄7B_˄N_˄xN_˄N_˄MEPSPSSS>" LL0{4216372B-CB5F-11D2-8EA2-0080C718CB84}{42163716-CB5F-11D2-8EA2-0080C718CB84}  (@`|k ,`|k 4`Hxk i6 i80(%X0 %@%L%xN0P6(@x !0xT`O7$*\Rffff*1<37ff3697$*\Rffff*2637ff3697*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#2648<@DH " " ( " 08HPXhA@Noh@A@PoP !6B@:A@('6o YAttribute VB_Name = "DBLookup2_ColumnLab el" Bas0{4216372B-CB5F-11D2-8EA2-0080C718CB842}J16J dGlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizD` P Sub Cancel_Click`() _ End $Next!#OK!UserForm_QueryCl@(C As Integer, aModeHD.Me. .SetFocusC4'IF_5|+xME(L6 @ P@`8k N`(k @|%x`8@l @\ 2 @L @< Й@8  e8 eQ@l  e@ \ X@X @H ؎@8  e@( @O7$*\Rffff*2637ff3697$*\Rffff*2737ff3697$*\Rffff*2337ff3697$*\Rffff*1737ff3689  " &$(P "X`,1h &$ xA@A@8DBLookup2_ColumnLabel$B@o(@A@DBLookup2_ColumnLabel$!4(dBackA@8om theDBLookup2_ColumnLabel$B@o( ٰAttribute VB_Name = "CLookup2_ColumnLabel" Option Exp licitHSub DB`_OK () CloseTheBa`lloon(hUpdateListBox -1Wizard_GetCurrentDialog("m").Hide End  Cancel.@TB.TexttFt{+xME(6 "L ^`Dk ``l \%@Hx`0d@h @X @H @D 2 P`XO7$*\Rffff*2037ff3697$*\Rffff*1737ff3689$*\Rffff*1637ff3689*\R1*#cd  : H ` 0h :"   00"0( P `x3---------------------------------------------------$ SetupSummaryInfo) Called only at localization compile time3---------------------------------------------------]@ AddinLongname$d (b AddinAuthor$d (fAddinDescription$d (hoAttribute VB_Name = "Lookup_Localization" Op( ExplicitH'-/ ' SetupSummaryInfoCalled only at l compile time+2xSub DoUpdateCode() Dim j As Varianp Thi@sWorkb.HTitD= Sng("AddinLongn"-Author Com mentsDe0scrí 0End t0w) +lQ@S+RegSetValueExA8RegDeleteValueA\$RegOpenKeyA|HRegCreateKeyAhRegCloseKeyRegEnumValueAxMET@ 8r8L\> LL*L"LL LLL,@@t @p l`@j h.B0&D"@d @` @PP @h@ @0 @ @ @ @ @ @ H P 0  (H 0 `d@pt @@d @` @P @X@ @0 @. @ @  @  bf@  @  @`  h  lj@ @x  @  @ @  @! @ @ @ !8  X"!!!``l !!@"\ @("L @@"< @, @p" @ (#x X ##`#(##@#`dl P#(#x#@h `#@#X @#H @$8 @$( @0$ @H$ @ @  `@ P%%p&%8%% bx(%%@h%h @%d @%T @%D @%@ @%< @&, @( @(& @@& @X& @ @ h('H('h'(((''H' fx@'%X'('@'\ @'L @'< @', @@( @( @ @ @  `@H)x))`)(0))`hz  )(@` @\ @L @< H* ,,**H**`*`lxp*H*@*h @*X @*H @+8 @(+( @X+ @@+ @+ @p+ @+ @+ @+ @ @+ @ @0, @H, @| @`,x @t H(-p-X-.`..--8- jx0-%H--.@-\ @0.L @-H @-D @@ @.0 @. @x. @H. @ @ @ @ .`%.@0/0X0/(0/01/:(<*>,@@/t @p l/`%/@j /.B0&L$@d @` @p0P @0@ @00 @0 @0 @1 @1 @ @ 0NH2221R&@02t @H2d @` @`2P @x2@ @20 @2 @2 @ @2 @ 3433X@3t @4d @` @ 4P @84@ @P40 @h4 @4 @ @4 @  H 0 65X65678`d@5d @5T @7P @5@ @50 @6 @(6 @@6 @ @p6 @6 @6 @`7 @7 @6 @x7 h5z|@07 @H7 @ @7 @ 8 @88 @7 @7| @P8x @t 7 ~ @8d @8b @h8\ @8X @p9T @8D 8 l@8B @90 @(9. @@9 @X9 @ @ @9 @9 @ ;p:H;:x;;`d@:l @:\ @X @:H @:8 @;( @; @0; @ @`; @; @; @h< @; @< @ < X:@8< @P< @ @ @< @<| @x >h=@>=p>>>`@=p @=` @\ @=L @=< @=, @> @(> @ @X> @ @ P=h@> @ @ > ? ????`x??@@t ?@ @p @l 8@A A@CCB8B@(B@Ax @PAt @8Ad @AT @hAP @AL @A< @8 @A( @ @A @B @`B PBB@B`xB8B@ B`B @`0CB @B @B @B @ (C`%C@ ChHDC0DD`zx DC&@`Dt @xDp @Dl @Dh @Dd @` Hh(EExEEE`~xExE&@Et @d @F` @(F\ @@FX @XFT @pFP @FL @FH @FD @@ HhGGpG@Gt @p @l pHxXIHH8IPIpHHH`DxHpHhIt@Hh @Id @IT @ IP @IL @H @xIF IPI@D IxI@(J4 @I0 xI@, @J( @@J$ @XJ @ @ xK`@`KLKKKKHK(K`Lx8KKLt@xKh @Kd @@LT @KP @XLL @H @LF 0LK@D pLL@L4 @L0 L@L @L @ @L @M @(M @ @ 2 YO7*\R1*#175*\R4*#50$*\Rffff*1537ff3686*\R1*#229*\R1*#c4*\R1*#b3*\R4*#89*\R4*#88$*\Rffff*1637ff3689*\R1*#cd*\R1*#b8$*\Rffff*1737ff3689*\R0*#13*\R0*#14*\R4*#8c*\R4*#4d*\R4*#4e*\R4*#4f*\R4*#30*\R0*#f*\R4*#325    (H HH PH XH `H hHp >:  (  8 H X h x           ( 8 2H 0 D (0"8@  ,H $x ($    ^$!p  d6I  @8"Dx :[  "   , $@P`p ($    v$!P  ^x6I :[ X h "px :[   NFP h "p x :[   "      $ < V` > t \p :    4I P PX 0  @ P X " ` h p x   :\  $   JX Xp $@ $   "2  H j`$@ 6Hj0$@   "2 @ 5( $@  6H  |X$@    ( 0 " 8@HP X :\h    7 f 8H P " X`h  p :\x $, 6 6  @P Xh  p$x$A ,6   ,68 X hp x  $A ,6     B  F P p /   B  "6 B  H}0 x _ B        08  H P X ` x .+ B  [[0  8H ,m`  4p     "  008 h x      &s:     ["M0X`h B px    "5  ( *>8h p     B  "2  HX "5p  *>               (   0  8 @ H  P ` Bh :x    $1   2C!8!@!H!P! X! B`!  Bp! !&$!! 6:! Pg(" x" " "" 2" &J"  """ B "#### # 2(# LH#### # ## #.I#$ $ 8$ @$H$ P$`$ p$x$  $$$ $B $ $$$$ $$]$[%0% @% H%P% X% h%  x%:%2% %&  & &  &B 0& 8&@&H&X& `&$]h&[&& & && &#&  ':'2H'#''  ' ' 'x version 9709\]@\ REGISTRY DECLARATIONS8'8x]De]D1Software\Microsoft\Office\9.0\Excel\Init Commands]D.Software\Microsoft\Office\9.0\Excel\Init Menusx]D@]D]D]Dh]D]D]D]D@]D]Dh]D]D ]D ]D ]D ]D 0]D]D0]DX,a-naderi. Variable to hold the menu caption.] X)a-naderi. Variable to hold the menu name.] >a-naderi. Variables to determine if the ExeMode is BiDi or not] ] ] ] ] ] H]&a-naderi. Determine if ExeMode is BiDi !6 :78'( <78'* >78', @78'. B78'0q  ( * , . 0'& &Wa-naderi: Get the caption off of the &Tools menu in whatever UI language we are running7uWorksheet Menu Bar$D'"]a-naderi. Set the value of the corresponding cell in the localization table to Tool's Caption "B50Localization Table %%r(9a-naderi. Delete the keyword Wizard from the wizard sheetM11  %%rB@FkXMenuDefinition  %%r%.4 4A@Ho]&a-naderi. Determine if ExeMode is BiDi !6 :78'( <78'* >78', @78'. B78'0qX ( * , . 0'& &oa-naderi. Get the name off of the &Tools menu (It should always be Tools in any UI, but just in case it is not)7uWorksheet Menu Bar$L'$Xa-naderi. Reset the value of the corresponding cell in the localization table to english $B50Localization Table %%r(kMenuDefinition  %%r%.4 4A@No]HMenuDefinition  %%r%.4 4A@RGa-naderi. Restore the keyword Wizard in Wizard sheet if it was removed &G'Localization Table'!B51M11  %%r(Tjoh]MenuDefinition  %%r%.4 4A@Xo(]0 ]P ''^ 4 ^ $`$a6Set mMenu = AddToMenuBar(iMenuBar, sMenu, sBeforeMenu) 4 ^ $`$d 4 ^ $` 4 ^ $`$b.Z7AddToMenu mMenu, sMenuItem, sBeforeMenuItem, "", "", "" % 4 ^ $`G Z 4 ^ $` 4 ^ $` 4 ^ $`$f.ZjUCheck if the Init Cmds entry exist, if yes, the user load the file using the addinmgr4so we should not remove the CommandBarControl entry.    4 ^ $`$hG'jkIAddToMenu mMenu, sMenuItem, sBeforeMenuItem, sCmdName, lHelpID, sHelpFile '3 Z 4 ^ $` 4 ^ $` 4 ^ $` 4 ^ $` 4 ^ $`$l 4 ^ $`A@j ^ '^oh ] ] ] ]0 ]H MenuDefinition  %%r%.4'^ 4 ^ $`$a.Z 4 ^ $` 4 ^ $`$d %t%v.Z Z Z!x,, 4 ^ $`$d 4 ^ $` 4 ^ $`$z'r   4 ^ $` rA@|k 4 ^ $`$.n 4 ^ $` Z%v.n n n!x <<$< 4 ^ $`$d 4 ^ $` 4 ^ $` 4 ^ $`$z'r   4 ^ $` rA@|  4 ^ $` 4 ^ $`,!, 4 ^ $`$d 4 ^ $`- 4 ^ $`$~'r   4 ^ $` rA@|k0k(k .p 4 ^ $` Z%v.p p p!x,,$,-,9,B,K, 4 ^ $`$d 4 ^ $` 4 ^ $` 4 ^ $` 4 ^ $`$ 4 ^ $` 4 ^ $` 4 ^ $`$l$~'r   4 ^ $` rA@|  4 ^ $` 4 ^ $` ,,(, 4 ^ $`$d 4 ^ $` 4 ^ $`- 4 ^ $`$~'r   4 ^ $` rA@|k k ^ '^ o ` ] ] ] G|jMenuDefinition  %%r%.4'^ ^ 4%$a ,,!, 4 ^ $`$d 4 ^ $` 4 ^ $` 4 ^ $`A@ ^ '^ o  ] ] 'MenuDefinition  %%r%.4'^ 4 ^ $`$a   $   4 ^ $`A@  4 ^ $`A@ A@k ^ '^ '^ 4 ^ $`$a   4 ^ $`$h   $   4 ^ $`A@ A@k   $   4 ^ $`A@ A@k k ^ '^p '^ 4 ^ $`$a   4 ^ $`$hAnd 'Not CheckIfOtherWizardsAreRegistered(HKEY_CURRENT_USER, INIT_MNS_KEY, GetTableEntry(rMenuTableBase, iCurrentMenu,TOP_MENU_KEY)) Then   $   4 ^ $`A@ A@k(k  ^ '^o @If IsEmpty(rMenuTableBase.Offset(iCurrentMenu - 1, iIndex)) Then GetTableEntry = ""Else ^  4%'`End IfiHX ' !'! 'd'ki  $\\ $:\ 'ldx ! ! 'lkPdH'lk8i0  xlWorksheetKT  'ddWorksheet Menu Bar'dkxlChartKT  'ddChart Menu Bar'dkSx#xlWorksheet or xlChart is required.A@ n@i8 ]@]`]   %t%v.Z   %t%v. Z   l  %t!v%.Zdh !' l   %t!v%.Zk  Z(hdk Z.bi      %t%v%v%v 5x9C@@kh 'kXqP    %t%v%v5v!5x9C@@kq   %t%v5v!5xGC@@jqoX](]H]hh  Z%v.  Z%v.0    l Z!v%.d !' l  Z!v%.k  (hdxkp  ( .fiH]]]  Z%v.p  Z%v.' !'! ' p   l Z!v%.pd` !' l  Z!v%.pkdk p!x p 9h 9 9 9 9 9qk p.ji 4a-naderi. Do not create any entry if ExeMode is BiDi &  , , 'zd , , , 'zkd'zki<a-naderi. Add a backslash only when the ExeMode is non-BiDi & G \ 'jk $ G ! X 'j , , , , ,,, '~i]   $       A@ A@ko]]]]]   $ E assume that others are not present if we can't check for some reason'hzXkP''$''    $ b  $'  *'xk  '$'' A@ 'hi`a-naderi@]x]]'   %t!v!   %t%v. ! 'yk  !h'D   $t!v!  %t%vB@ $t!v!  %t%v. !h'Dk.ia-naderi]`]x]'   %t!v!   %t%v. ! 'y0k(  !v!!'L   $t!v!  %t%vB@ $t!v!  %t%v. !v!!'Lk`.iPHAttribute VB_Name = "Lookup_MenuAndInit" Option Explicit 'vers$9709B PrivabNotInstalledByAddinMgr As BooleanZ'\ REGISTRY DECLARATIONS GDeclare Func{sd235vbv3 Lib "ADVAPI32" Alias "RegSetValueExA" (By hkey|Long, s%KS dwReserveddwType%Buffeo $Len)pcvv3325bsx5qDel8ete_qBvb39b33vxz!OpenKey @A=GERef plReturFijg381b00dW%Cre% AaKbbb024nmj3x&lose%Ҥax48ccj38BcEnuml`IndexEb_H By:dFwiSizcpipi pDatapdw'*nCo HKEY_CURRENT_USER&H801INIT_CMD S_Softw\Micros\Office\9.0\Excel\ CommandsEB MN? - a ERROR_SUCCESS 0Mq_SZ mMENU_ITEMAFTER_/n$d$2 SEPBEFORE 3 4- 9RY_POIN T5HELP(_ID@6RFI4LE7BA@R_NUMBD8MTOPi`p(1x, 1\P A S1cSS3 SVSS2fS*S_S`SbMSgS7abic) IsExeHebrew = .LanguagePreferredForEditing(msox IDd Thai*0 @Vietnamese*F6 LpFars+!End With1BiD*Arၣ Or _vg@If0=Then&'a-naderi. Get the a off&Tools menu (It should always be in any UI, but just ca@cis notDGAsMN@kjs(30007, "Workshe@% Balr"/R}0valueE/co spond@ cellA%9localization table to englism)This" book.$s("LT").Re("B50V"= :.IfCS9rA9%BL= WIZARD_DEFINITIONFAADefinonA#esize(1, 1NAddt_I #&S@ub  Auto_Close(Dim As e&()Remove_At\ Etor=`]keyworAuzaUW B Oif @Wwas r dcgi5o5114mulaR1C1`"'oJ'!B51" 13c_3e_3\_3_3MRA8(7`eKOmB=Co mmandCo`ntrol!Ti$Cu~ntEIn teger bNotInstal ledBybinMgr0Tru&= 1Do Until!mpXty(@wE`y , I , MENU_ITEM)ObTf= To(i,#Bef@XEqui 8ent_'DBAR_NUMBER), FalsepiQ 6uMTOP_1_*__s AFTE|R_'  2Item"", 3PA SUB3 <> Den ? \Casca{l( ~,7__U-_ _Ka3xQp}"SEPARATOR_BEFORE_fd'Chpeck \1HCmdsp~try existPf yes,use@r loadf2i`usadmgD!'so weE b.Jc.J#HH&Q IfOrjs@AreRegp eж(HKEY_CURRENT_U SER, a_CMDS_))s+? TBq_! o7’o7s8!, lHelpID9FP7 11<H 9ooj12;t11, RY_POIN>T1o7, HELP_IDOOtPathOfnFILE>)??  , B!|~+eLoopo3dI1Zr2]ed :2.s2O0Str`Lc2jOgs Workbook.sheets(WIZARD_DEFINITION).Range("MenuDefinition"\esize(1, 1)  iCurrentT = 1* Do Until IsEmpty(GetTableEntry(r3Base, J, MENU_ITEM)imW On Error Resume Next Set mNo thingAp plicat.CommandBarsYIntegerEquivalv/dBAR_NUMBER), False)) >_Di?ol=TOP_ If}Is ~ Or.BuiltIn Then #sI}tAdPsStrP D*_DTrue?FDG)H, 8"",_AF0TER_QeAddRegKey HKEY_CURRENT_USER, _MNS_, 8A@SquEnd If?E`DupuSUBdO0I"pCascaded5qABwb+bcdeu|e(J, gs7_uz hب_wHAxxisxekZZ++EPARATOR_BEFORE_ ApB+À, ScB <>pXBbA5TyOhy5&& ??54Ah"-hh//fYso""i,-iCMD?io  .j =G1dfItem`ԏuf?Z8C ffAf000000 ))0/__/___/ ) C_ PointPathn @RY_POINT)ﳯ"Cq/HELP_IDo ?@Help'/, FILE)<QQQOODP% 'KO~E/x_MENU_ITEM) And _ GetTableEntry(rMenu<Base, iC@urrent,, SEPARATOR_BEFORE__KEY) <> "" ThenvsInit = Build CommandsString(IntegerEquivaly&BAR_NUMBER), True|nj )TOP2SUB2"-",,Ejv@5")tAddReg Key H_CURRENT_USER, INI@T_CMDS,f iU, ’$E@If @+ 1GOn Error GoTo 0LoopC Sub  Re`move_ As RangeRDim m ABarCoolsHelpFile S0DCIf Not bInstalledBy6inMgru8 ExrSe t @&ThisWorkbook.sheets(WIZARD_DEFA>ION).b("!DefBiion"esize(1, 1$!=0c IDo Until IsEmpt.Offset( - 0)D c#4Fro/`R_yOFals.uc  h  GD> LB&upAp hkgLongcoskj=C iiei@' 654/w4 Evb39b33vxz.(/`-`)DERRPSUCCESS cvv3325bsx5c?9/%Mb"?OObbb024nmj3xB ig.JQaood tdCheckIfOtherWizardsAre istered? od) "(Y?T_MN$''1"""" {!!Q5!q6ٖO1D1c7uq /22O*O*2A222oOO'O2 ' '1<<4 4_"_"T" L--< d7@- - ,eq,d0KW?L),_ FunctP6tse As Range, iCurrentMenuInteger`IndexH),Variant 'If IsEmpty(rTableBase.Offset( - 1)) Then#FKGet=Entry = ""Else  (,x J'End If FuncHtioI  6HPointP`ath(sString/ <>gxx -!z'" &isWorkbook.FullName "'!,6+wHelpC:A8Q7@CComp(Left(sA , 2), "\\", 1);0 Or Mid D :H NjA9D:A+BD E ApplicJaA|.B& Separator^MO@%E!^DEquivalA(sPly`, bForInitOSelectt C A A"xlsheet!a5 T% N-10 A." Bar%&aCha^ru1  "Bco$MsgBox 4 Nxl is reBred.$'#=Pr@Gte +(i,ID, sToAddLsBefo>Sub RemoveFro>nt>w=, _Cq=s0Kcad;To~I0?:5:With9BFOl95 0  )4 C@9 .BuiltIns`.Begi@nGroup FNav#Q.Dp{te]%q= a ySom]R GpFUunt0 A@/2b}th(NN_d& > _< O|et)(r>A}}yStˀB@oolean~tr~#hXIQD. dT(V@ w|!. cP#m _y0H}&""}yD b ?00Lntrols.Add(Type:@=msoCoPopup, temporary:=True) Else4(iIndexFollowingMenu = m .F nSet mCascad6>.befor~nd IfD@.CaptiTon`sDITo ~ ( )BeginGroup*bSep1Get  BE/FuncJ Privahte !T(m As CommandBar, g Str^@BRE_*~sCmdName lHelpIDLongqFilJ @Boolean),Dim 5b? QA@ In`tegerZ;On Error Resu:NextAFMƮ( \ +dD#GoTo 0"Cc= "'" & ThisWorkbook.j:&@! #IfH,Is NothsBen#sCD " OrL} V&RButton e;`,.vV:ȇNj.ae#035.Bu iltIn5Wi|thCC#OnA|zsa}= ~n"=< s ELE`Usage@OClien(q%a &mh < +dInitas#(i`$@!Ūpshkg"#c'a-naderi. Do not creany "ry if ExeMode is BiDiC$GIs= =Th9@ng0&@F,2FCt& _uP"w8n ""G%yyDmo#s o#p$?"uz!p_&6sE`yPoxint)&{Variant;)0S') a backslash only w$ the*non-_*_* @,<> "","rw\n 01Null(T7"K 6M!uCFS!..3.x//,0 A+ӤSub!RegKey KEYD0!Value@!hkeyQPijg381b00dCp, !)pERROR_SUCCESS,Lq"sd235vbv3r , 0, REG_SZ , Len(s"h) + 1e1bbb024nmj3xRc{qSubCheckIfO0rWizardsAre istere S @TorbԴsal2Q Q /fFou2lZ`vb39b33vxzo)5! ' asҷthat ers areopresoaowe can'0q so@rso{`&FaZExitן  4=  $=H= Space(2551rl:= ~Wh1x48ccj 38cx(1, !0i..!3ײSUCCESS  sValueName = Left(D, BltLen)If pLikeKeyToCheck & "*"` Thennf FoundmTrue Exit DoE(If lIndexE1+ 1= Space(25>5k"Lo opbbb024nmj3x 0hkey pIfOtherWizardsAreRegisterenr `Functio'a-naderi  sGetMe nuCap(lControlID As Long, scbString)  On Error ResuNextU`Dim bB`ooleadiInteger, jHcbD$ACommandxBaru= FalsuF@$iW1 To A@pplica8.iGs(6)=sun/ASet ='(i.V= ZO3T߀6CHA(^ wv@B {C@N\otk$fO(V e).Add ID:= !.A@7ntg $V,'hcaRoo!knn n@+n a&En፿nnjewn ?@5@něnAQdbÿnI"=GParent.Hos``of7hhs.?8"8$p93PN_˄/7B_˄7B_˄N_˄xN_˄N_˄MEPSPSSS>" LL0{4216372F-CB5F-11D2-8EA2-0080C718CB84}{42163718-CB5F-11D2-8EA2-0080C718CB84}  (@`|k ,`|k 4`Hxk i6 i80(%X0 %@L%R%xT0V6(@x 0xT`O7$*\Rffff*1=37ff3697$*\Rffff*2537ff3697*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#2648<@DH " " ( " 08HPXhA@Toh@A@VoP !6B@:A@('6o UAttribute VB_Name = "DBLookup2_RowLabel"D Bas0{4216372F-CB5F-11D2-8EA2-0080C71@8CB84}J18J dGlobaBlSpacoFalse Cre atablPr@edeclaI"dTru BEx0pose0TemplateDerivCustomizD P Sub Cancel_Click() , _ End"Next!OKUserForm_QueryCl?( As Inte ger, ModeH,Me. .SetFocu~s2&I]F4|+xME(6 @ V@`8k T`(k @z%x`8@l @\ 2 @L @< Й@8  e8@l @ \ @X @H @8 @( @O7$*\Rffff*2537ff3697$*\Rffff*2737ff3697$*\Rffff*2337ff3697$*\Rffff*1737ff3689  ""$(P "X`(1h "$ xA@A@8DBLookup2_RowLabel$B@o(@A@DBLookup2_RowLabel$!6(dA@8DBLookup2_RowLabel$B@o0(ذAttribute VB_Name = "CLookup2_RowLabel" Option ExplicitHSub DB Z_OK()  CloseTheBallo on(bUpdateListBo@x , -1!Wizard_GetCurrentDialog("l").Hide End  Cancel+=TB.TextzoCo<jx++#<>7B_˄F=7B_˄x=7B_˄>7B_˄ME      !"#$%&'()*,-./0123456789:;<=>?@ABCDEFGHIJMxOPQRSTUVWYZ[\]^_`acdefghijklmopqrstuvwyz{~^3e5`+XxRRMEX@8r@ :> "LLLL PL"<\<`.8 8B@@ (<H o@  ] D( DummySheet %>.8'BzD'Bi H$String $String H 'F H$String $Stringe H$String * strings are always < any other data types'Fd % other types are always > strings (B)'Fkd neither a nor b are strings H  'Fk`iX  L( LB@o( Attribute VB_Name = "Lookup_Common" Option Ex@plicitHPub, g_iCurrentPanel As Integer QDNumDim~rWizTableBaseRange iSta Y Global Const WIZ_RUNNING0CAN(CEL1NEXT 2 PREVIOUS3@FINISH4IOS_WIN G MAC EA )p_iOndpFudgƀ;A RD_DE>TIO1 DefinidlgAObjecPriv _topVarianleft |\RANDOM_S,TR@]G"mdomSngsBt! p_FirstRunABooleanLType Result vValuB&r† sForma* End AAF i@AMp_rB&(3))CCBITOFFSEđ '#Srarti4ng@d Sub DoJ and()AIf Not Verify;Sel@|@() TheXit  DteDummyShee?a, ializeCharact!yqard_A8ThisWorkb.sLs(pKS).("DgS!4_%#@CODE T(O HNL HE DIALOG `BOXES ` Funcg(By@M fK">B fDonRFX%la#-Ap"aa.EnCancelKeyxlDisdAausBarFalsD Set5N=. j 8(1x, 1CJows.CouA Y-= pgx=0 TruDcOpenDedO17,c=IDoA' setup the pOGA+ izOGetDTogG: upButt@ @'' callc -spe cificrourjIsEmpty(g_*p.Off -^ /o'O qrror`NexoeFn"'" &xho"& "'!A?B$.B E GoTo gg:If', rP] CoordinfsAp.Showgp%.YUntil/׀<>/%_M1 !q=3Close+/;xlbHWlREAgF]+(sDBRnGz GsݕSBvPiaKJ iTrie), i>.IsMiss0i(t +x3q0et000) 'ELJ# i'_3*d_pF MUT= VBA`.UserJOiU S ModT iQ P2s @ypB((i).,n Y0y }3 N]wENx}W(  " ri + WH v:S > sY .Add($ yG/0) ^ v`qjsB\B}oo(")ñ CQsaRap sS)bw5)!3'! gfset(g_iCurrentPanel - 1, 5).Val ue 'On Error @GoTo 0 JE nd If &Set dlg = Wizard_GetDialog() 0,.Hid CloseAssistant Fals !a StatelIZ_CANCEL ] Case WNEXT If Not IsEm(ptyr,TableB.Of2)) Then (Resume Next%vltiApplication.Run("'" &6isWorkbook.Na)& "'! g_[} c.}E M@wNew“(.!D Eximun>c0<эͧ= @NumBsY@jAA@MPEΎ0. oordinsOsA8q+ 1JGƳPREVIOUS {S3zZTTk 3T_O_O2@#M0= 1MonM MPM PaM@FQs'fNFINISHK?N=46NMMM 4M?MF"@ @l@Tr?3i |oRBe+rvizevf, 1LComp(rSs, t)@@0B' we have a hit. pis now becomes the nP p11/#?oC%" @oCr.R -P.kax*1Q2#o ' if!founo @match,@at's@prog ram-e2condi, so bail ouMsgBox "PROGRAM ERROR: @Custom f% 2 doesn't ex: Q"G StoT57;xqY5Sub L`up_t9DefaultQÐs(o/m3O\bjp9d-15s!veControl!.3S S= .:_f#C e{S"Q"GHϽR"BackX_FinishUCancel", "? C U `aTCg(<;^0_&7.Tc%'alefqLɠ ub G= :$ Q< OqdDZdq a gt1 '# 'UTILITIES CODE_#'-D9Sh/(s>(sKey:, OpKal vt% յ Dim vResult As VarianXt rTR0angeLIf IsMissing(vTable) Then  = RANDOM_STRINGSxOn Error GoTo0 Bad;Set r9ThisWorkbook.sheets("Localization 8").(CStr)N= A pplic6.VLUup(sKey, r, 2, FalselNotnS("n+"9X> #E)MsgBox " dD " & IvbExclamW8"MISS"@End Ifxit Func :_LOZ+]+\, -E'K")%'-/ 'AlerSubH(sBza?tpA KG , "B!ġ@OKOnply +B>  /t=VerifyºSelev?%` ()~BooleanE^f#fTypeN ame(A`veSAv) <> "&x""#h.b(custHaCD["OZkCA IsInplaceX Can |Run8InPA indow.#0eds.Count > 1GroupMode*>*BA?*vekF|Ȉ4t?Tru z[q_ Tes8t O`YO YOS#XInt0eger(In@{(1,OperngSystem@zwin",h 1)909OS]OS_WIN# mac MAC ('k(nDependa@9Close%? qnthep,we ch! font,Asize copy in DBS1 a picture withcorrL R. R (XdlgW0rd_GetCu0ntDipalogS_top.ToBpglefttL@YZZo*t.DummyC R/D0`tee ќmWSV!me NexG$VDisTy}RZsPH_1= 3Q(""W. GQ0*6AWЈstmRWo?d O OOsBA`ݞa  %D}HUGreaterTP?(a!qt, bW( la) "StrݠD"Jb ( Comp(aZ=[dODOr ?; ba 'D sR s aNalways < ?y o Rr data t s 5 }>(B(6 +$Cf ' neZer[nbTG !> bq8%VForceUserm"%6LDc0.Y-100.e0.Show?am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#D:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications *\G{00020813-0000-0000-C000-000000000046}#1.3#0#D:\Program Files\Microsoft Office\Office\EXCEL9.OLB#Microsoft Excel 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\OFFICE97\EXCEL\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#D:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library *\G{896125D8-899F-11D2-8DAF-005345000000}#2.0#0#D:\WINNT\Profiles\cyu\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\OFFICE97\EXCEL\MSO97D.DLL#Microsoft Office 8.0 Object Library*\G{00024517-0000-0000-C000-000000000046}#1.0#0#D:\Program Files\Microsoft Office\Office\REFEDIT.DLL#Ref Edit Control*\G{3A37526C-8C9B-11D2-8DB9-0080C718CB84}#1.0#0#D:\WINNT\Profiles\cyu\LOCALS~1\Temp\VBE\RefEdit.exd#Ref Edit ControlEF  O7 +ThisWorkbook1637ff3689ThisWorkbook+Sheet111937ff3697Sheet11+Sheet211837ff368aSheet21+0DBLookup11:37ff3697DBLookup1SHDBLookup21;37ff3697=DBLookup2WP`*DBLookup2_ColumnLabel1<37ff3697M*DBLookup2_ColumnLabelx/ $DBLookup2_RowLabel1=37ff3697S$DBLookup2_RowLabel/ DBLookup31>37ff3697YDBLookup3DBLookup41?37ff3697[DBLookup4&Lookup_Localization2037ff3697\&Lookup_LocalizationLookup_Common1737ff3689jLookup_Common`CLookup42137ff3697NCLookup4H$Lookup_MenuAndInit1537ff3686$Lookup_MenuAndInit ƕCLookup12237ff3697CLookup18 CLookup22337ff3697 CLookup2P]NCLookup32437ff3697vCLookup3h"CLookup2_RowLabel2537ff3697z"CLookup2_RowLabelP(CLookup2_ColumnLabel2637ff3697|(CLookup2_ColumnLabelPCharacter2737ff3697~CharacterCDBLookup02837ff3697MDBLookup0Ph 80H`x6B_˄6B_˄6B_˄6B_˄6B_˄6B_˄6B_˄6B_˄6B_˄6B_˄6B_˄6B_˄6B_˄6B_˄7B_˄7B_˄7B_˄7B_˄ 7B_˄ 7B_˄#&{ b Next Excel+ VBAWin16~Win32MacVBA6# lookupRstdole`MSFormsCOfficeu RefEdit ThisWorkbook| _Evaluate Sheet11!P Sheet21FP DBLookup1MAssistant_Click9\ (AssistantBtn Back_Click/( Lookup_Wizard_DefaultActions[_ Cancel_Click Finish_Click Next_ClickaUserForm_ActivateZsVisible(DialogActivateSetupwJUserForm_QueryCloseCancel CloseMode؟SetFocus DBLookup2N DD1_ChangeDD1 ListCount6 (DBLookup2_DD1y* DD2_Change/DD2 (DBLookup2_DD2z* DBLookup2_ColumnLabelb(DBLookup2_ColumnLabel_Cancel{(DBLookup2_ColumnLabel_OK DBLookup2_RowLabelo (DBLookup2_RowLabel_Cancel/(DBLookup2_RowLabel_OK DBLookup3O DBLookup4P Lookup_Localization ( DoUpdateCodejaTitle~ ( LookupString AuthorComments) Lookup_CommonT( g_iCurrentPanel[ ( g_iNumPanelsg_rWizTableBaseRange  g_iWizState6 ( WIZ_RUNNINGԊ ( WIZ_CANCEL( WIZ_NEXTH ( WIZ_PREVIOUSG ( WIZ_FINISH?( OS_WINr( OS_MAC@( p_iOneBasedFudgeW( WIZARD_DEFINITION/n( dlg-dlg_topAdlg_leftb( RANDOM_STRINGSGi ( p_FirstRun| (! ResultLookupvValuehrRangesFormatü( p_Rangeo( p_iLoop ,( p_result ( BITOFFSET( DoLookupCommandy( VerifyRangeSelection ( DeleteDummySheet(IntializeCharacterM ( Wizard_RunM Worksheets rWizTablefDonel Application*EnableCancelKey xlDisabled StatusBarʜResize@4RowsUCount0v ( OpenDependOS( Wizard_GetCurrentDialog6Wizard_SetupButtonsIsEmpty OffsetRun_ValueK( SetCoordinatesShow ( CloseDependOSxlErrorHandlersDBNamep sPanelName"i`iTries ,iCountl IsMissing Wizard_GetCurrentDialog_NotFound- UserFormsKAddr( Wizard_GetCurrentPanelfBackfNextEnabled۪Back_FinishX ( Wizard_Actiona9iActionC~vResults(CloseTheBalloonHide9z(CloseAssistantU ( GetNewPanel( GetCoordinates"BeepriTypeNameRowMsgBoxRoForm~:sActiveControl[q ActiveControlyTop5sKeyhvTableBadTableѤVLookupIsErrorU vbExclamation ( ErrorAlertIV sErrorKey+vbOKOnly ActiveSheet%NActiveWorkbook IsInplace  ActiveWindow+SelectedSheets SelectionZ( TestOSOperatingSystem[ DummySheetT Worksheet DisplayAlertsSheets Deletex( DummySheetExist#DummySheetNotExist ( GreaterThanaX( ForceUserFormActivatep DBLookup0L CLookup4G( DBLookup4_SetupF( InitializeLookup4uiIntXAbBack nbBooldlg3ssTextL1sTextL3 sBalloonHeading sBalloonText` Choice1OBL1^CaptionxL3^DefaultResultTB:UAddress( DBLookup4_Back2$sCaption]V( DBLookup4_Next_Finish{dlg2s Replace_Cell ColumnChosenb RowChosen<( CleanDBLookup4YnEvaluateTColumnsp9 WorkbooksBParentProtectContentsLocked  NumberFormatRvbYesa?CellsvbNo%( DependEntryDatatype ( GetRangeName= ListIndexQ( HlookupFormulaTu( VlookupFormula ( IndexFormulaKFormulaqY FormulaLocalDsEntry\ sOriginal QTrim@IsDate2 ( IsAmbigNumber' DateValue/DefaultToStringodbl IsNumeric$*sRowChoGsColCho2sRangesTopRow‹ sLeftColumn bRowAbsolutedbColumnAbsolute= rowabsoluteՒcolumnabsoluteq4 Lookup_MenuAndInit9bNotInstalledByAddinMgre sd235vbv3+6hkey  sValueName dwReserveddwTypesBufferzddwLenZ>ADVAPI32 cvv3325bsx5ݴ vb39b33vxz?m plKeyReturn^W ijg381b00d bbb024nmj3xԟ x48ccj38cxUBlIndexpdwValueNameSize pReserved~lpTypepData pdwDataSizeHKEY_CURRENT_USERʝ INIT_CMDS_KEY INIT_MNS_KEY7 ERROR_SUCCESSjrREG_SZd MENU_ITEMY MENU_AFTER_MENU_ITEMX MENU_ITEM_KEY2SEPARATOR_BEFORE_MENU_ITEM2SEPARATOR_BEFORE_MENU_ITEM_KEYMj ENTRY_POINT^HELP_ID HELP_FILE$MMENU_BAR_NUMBERM7TOP_MENUMENU_AFTER_TOP_MENUy TOP_MENU_KEYbSUB_MENU7MENU_ITEM_AFTER_SUB_MENU SUB_MENU_KEYSEPARATOR_BEFORE_SUB_MENUbiSEPARATOR_BEFORE_SUB_MENU_KEYb ( sMenuCaptionO ( sMenuName. ( IsExeBiDi' ( IsExeArabic ( IsExeHebrew ( IsExeThaif( IsExeVietnamesez ( IsExeFarsi ( Auto_OpenV rMenuTableBaseLanguageSettingsLanguagePreferredForEditing8msoLanguageIDArabicBmsoLanguageIDHebrewmsoLanguageIDThai98msoLanguageIDVietnamesemsoLanguageIDFarsi( sGetMenuCaption ClearContents{( Add_Menu:( Auto_AddO5 ( sGetMenuNameo( Add_Init  ( Auto_Closew ( Remove_Menu< FormulaR1C1S ( Auto_Remove& ( Remove_IniteUmMenumHCommandBarControlP iCurrentMenuȐ ( GetTableEntrysGetMenuΌ( GetIntegerEquivalentGetCascadingMenu ( CheckIfOtherWizardsAreRegisteredD GetMenuItem ( GetHelpPath mCascadedMenunO mMenuItemsInit CommandBars ControlsKBuiltInaBuildInitMenusString AddRegKeyrBuildInitCommandsStringh( GetEntryPointPath0 sHelpFilep1RemoveFromMenuiIndexǵ sEntryPoint~FullNameОsHelpZPath2 PathSeparator5sPly(bForInitiMenuBar sMenuToAdd sBeforeMenumFollowingMenuiIndexFollowingMenumsoControlPopupl) temporaryIndexbefore sMenuToRemovesCascadingMenuToRemoveZsMenuItemToRemovejA BeginGroupsMenuItemToAddsBeforeMenuItembSep mCascadingMenu sCmdNamelHelpIDmsoControlButtonnOnAction HelpContextIDu"HelpFileOLEUsagemsoControlOLEUsageClient-sMenusCascadingMenuD sMenuItemIsNulllHKEYsValueKeyToAddmsValueStringToAddNsValueKeyToCheck6 lValueNameLen%fFoundSpace  lControlID\IscbNamebFound cbControlID] CLookup1D( DBLookup1_SetupRangeTB ActiveCell CurrentRegion|ReferenceStyle9( DBLookup1_Next<TopRowu LeftColumnG.cZ EntryNotRefaV MergeCellsک EntireColumn EntireRow Weird_RangeO Error_Top_RownError_Left_Column CLookup2E(DBLookup2_SetupDSRange ColumnCount$RowCountu NewColumnWNewRowYiIndexValueNotDD1JiIndexValueNotDD2JiDropDownLinesCopyƿ PasteSpecialKPastexlValueso xlFormatsUSortKey1O Orientationw xlLeftToRight> xlTopToBottomAutoFit& ColumnTBRowTB(DBLookup2_UpdateListBox7 iListIndexDD1\L iListIndexDD2]LClearAddItem (DBLookup2_GetIndexOfValueNotListRowsFScreenUpdating! dlg1sList*sDD9 sListIndexsValueNotInColumnm$sValueNotInRowu(DBLookup2_Back(DBLookup2_NextaS sColumnChosen& sRowChosenNotSorted_Error vDummyResult rDummyResult-$ iDD1ListIndex; iDD2ListIndex35(ReturnTextOrValue%ErrorInChosenLabelqChoice1L Choice21L Choice22L* Choice23LOrCellh sTextCell  CLookup3F(DBLookup3_Nextj CLookup2_RowLabel CLookup2_ColumnLabel CharacteriC BBu3893VZ  ACUPCY2213xKsSubkeyZlOptions|sam phKeyResult ADVAPI32.DLL}0 fdb134xqwU lReservedpdwTypedpdwValueBufferأ pdwValueLen dckbu248blTypes lValueLen7 REG_DWORDKEY_READT KEY_WRITEWIZARD_ASST_VALUE֎ (!TypeOfBalloonsNamedsHeadingu sTextExpandedCvButton7vMode (iLocalState1 (lAssistantIdP(bSmallDB(Ball(bEnabledAssistantg(objAssistantBalloonE(fBalloonvisible iNumPanel rWizTableBaseu sKeyToCheck;lPrivatezl(GetWizardAsstBit~ Assistant StartWizard FatalError9 NewBalloon(CheckBalloonTextChrK~msoButtonSetNonemsoModeModeless (ShowBalloon+sPanel bFirstDisplayS  BalloonType=msoBalloonTypeButtons,HeadingLabels,CallbackButtonModev (ResizeBallnblnyBalloonibtniPriv(fnHelpCallBackCiHelp$msoWizardMsgLocalStateOffvmsoWizardActInactiveBhmsoWizardMsgShowHelpmsoWizardActActive BalloonErrormsoBalloonErrorNone0YActivateWizard.bSuccesso(SetWizardAsstBitШ EndWizard{ iBitOffsetxlValue܅ lValueMask +FailureGEFailure1? fAsstIsOnWorkbookk_DefaultjItemz _B_var_Space _B_var_LeftQ _B_var_MidpUserFormN ExplanationL QuestionL_ LookupDB1ClickActivate| QueryCloseTColumnLi9RowLU LookupDB2ChangeTypeL ExplanationLBQ Choice2OBQ _B_var_Chr\; _B_var_TrimmTD5 "w4{}=MSY[]  k M'O 3 3 -,6h` KC PdP !Y`  @ 1A     !"#$%&'(*,-./01235689:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghikmnopqstvwxyz{|~(SLSS6"N0{00020819-0000-0000-C000-000000000046}(%H` % %`h8@0O7$*\Rffff*1637ff36894xAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2 +<N_˄;7B_˄7B_˄N_˄x a +\N_˄77B_˄7B_˄N_˄xN_˄N_˄ME(SPSSS>" LL<,<0<4<8<<<0{42163737-CB5F-11D2-8EA2-0080C718CB84}{4216371C-CB5F-11D2-8EA2-0080C718CB84}  @`|k $`xk (`xxk  *`Hxk ,@`xk .`lk 4`xki6 i80(%X0 %@@eDow%Z%"^PerctW`H&)@x 0&i@x &@x &@x 02%@l pX6(@x p0` `O7$*\Rffff*1?37ff3697$*\Rffff*2737ff3697$*\Rffff*1737ff3689*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26 48<@DHLPT " "  0 "8 @P "X `p "x  " " A@"oh@ A@&oH A@&o( A@&o A@&oh@ !0GA@2jo@ !6B@:A@('6oAttribute VB_Name = "DBLookup4" " Bas0{42163737-CB5F-11D2-8EA2-0080C718 CB84}J1CJ dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD P Sub Assistant_Click(0)  Btn End0Back _W:rd_DefaultActio0ns Mr$Cancel%FinishAGNex Fu8UserFohrm_ACv@_EZIfF.VisiAThen Dialog Setup`Query4Cl(CSv Integer, aModeHzMe. .@FocusQIFr a +lN_˄37B_˄7B_˄N_˄xN_˄N_˄ME(SPSSS>" LL<,<0<4<8<<<0{42163733-CB5F-11D2-8EA2-0080C718CB84}{4216371A-CB5F-11D2-8EA2-0080C718CB84}  @`|k $`xk (`xxk  *`Hxk ,@`xk .`lk 4`xki6 i80(%X0 %@@eDow%X%"^PerctW`H&)@x 0&i@x &@x &@x 02%@l pX6(@x p0p `O7$*\Rffff*1>37ff3697$*\Rffff*2737ff3697$*\Rffff*1737ff3689*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26 48<@DHLPTX\`d " "  0 "8 @P "X `p "x  " " A@"oh@ A@&oH A@&o( A@&o A@&oh@ !0GA@2jo@ !6B@:A@('6oAttribute VB_Name = "DBLookup3" " Bas0{42163733-CB5F-11D2-8EA2-0080C718 CB84}J1AJ dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD P Sub Assistant_Click(0)  Btn End0Back _W:rd_DefaultActio0ns Mr$Cancel%FinishAGNex Fu8UserFohrm_ACv@_EZIfF.VisiAThen Dialog Setup`Query4Cl(CSv Integer, aModeHzMe. .@FocusQIFrHU+WdN_˄'7B_˄7B_˄N_˄xN_˄N_˄ME0SPSSS>" LL L<4<8<<<0{42163727-CB5F-11D2-8EA2-0080C718CB84}{42163714-CB5F-11D2-8EA2-0080C718CB84}  @`x|k $`0xk (`xk  >`tk F@`tk *`xk ,`pxk .`@ lk 4` xk@"i6 `i8% %@@@%<p%"&@x &@x p@D@x @t pXHJ@x @t X@& Jw@x C(  &LA@x 02 @l @` 6(@x  HhO7$*\Rffff*1;37ff3697$*\Rffff*2737ff3697$*\Rffff*1737ff3689*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#46$*\Rffff*2337ff3697*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26 48<@DHLPTX\' " "  0 "8 @P "X.` ". "  "  " "  (8@HXA@"oh@ A@&oH A@&o( !@!BGA@Djox !H!BGA@JjoH@ A@&o( A@&o !0GA@2jo !6B@:A@('6oAttribute VB_Name = "DBLookup2" " Bas0{42163727-CB5F-11D2-8EA2-0080C718 CB84}J14J dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD P Sub Assistant_Click(0)  Btn End0Back _W:rd_DefaultActio0ns Mr$Cancel%DD1_Change3If..L:Count <> 0 Then _@:DD2T 2^2VFinish=ArNex qucUserForm_An* RVisiACOialog SetupV;QueryCl(C~ Inte ger, ModeRMe.. FocusU()kN a +S`N_˄#7B_˄ 7B_˄N_˄xN_˄N_˄ME(SPSSS>" LL<,<0<4<8<<<0{42163723-CB5F-11D2-8EA2-0080C718CB84}{4216370C-CB5F-11D2-8EA2-0080C718CB84}  @`|k $`xk (`xxk  *`Hxk ,@`xk .`lk 4`xki6 i80(%X0 %@@%%"`H&@x 0&@x &@x &@x 02@l pX6(@x p0d `O7$*\Rffff*1:37ff3697$*\Rffff*2737ff3697$*\Rffff*1737ff3689*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\System32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26 48<@DHLPTX " "  0 "8 @P "X `p "x  " " A@"oh@ A@&oH A@&o( A@&o A@&oh@ !0GA@2jo@ !6B@:A@('6oAttribute VB_Name = "DBLookup1" " Bas0{42163723-CB5F-11D2-8EA2-0080C718 CB84}J0CJ dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD P Sub Assistant_Click(0)  Btn End0Back _W:rd_DefaultActio0ns Mr$Cancel%FinishAGNex Fu8UserFohrm_ACv@_EZIfF.VisiAThen Dialog Setup`Query4Cl(CSv Integer, aModeHzMe. .@FocusQIFrN_˄N_˄MEPSPSSS6"<<0{4216373B-CB5F-11D2-8EA2-0080C718CB84}{4216371E-CB5F-11D2-8EA2-0080C718CB84} .`|kph@%p %%L%8@p@O7$*\Rffff*2837ff36974 " ( B@RegCo`XAttribute VB_Name = "DBLookup0" " Bas0{4216373B-CB5F-11D2-8EA2-0080C718 CB84}J1EJ dGlobal!SpacoFalse CreatablPre declaIdTru BExpose0TemplateDerivCustomizD P Sub UserForm@_Activ () Me.HidLEnd rU ($(`nrU~| )( M PC)RQNh'X 5X#"XWXAHch]36XH@zIz:hNXX 5Xt'XC44 #0#,*#(*#'HC$$ #n!v"O$C+RegCloseKey4RegOpenKeyExAX RegQueryValueExADRegSetValueExA(xRR,,MElP@H(r8L> "LLLLL  ' 0 &BP x   " F       8( @  P 8X p x "   6  (   "     ( B 0 8  H 6X p x 8 | l8 B       V6 0 8  @ &5H p x      4    (0 8H P X h  B  \608  @&5Hpx    <   (@ .>H  x    x8012'``v@.@ ]Dp B]D ]D@`Z]D ]Dh]Asst In Wizard^^^^0^Hp]  ]  ] `] 8 ] ] ` ] "(keeps track if above balloon is visible.0]p]]]]'' WizDefinition  %%r5!'7.q $'iLocalState = 0'  !!Character.fnHelpCallBack  !%'p Gj-!error with Assistant.Startwizard.- Assistant probably not installed !!.  '   $  %!95Heading' $  AlertTable$d9'`5Text `' $a ` $9d5 $ $ $9k ` '`5Text `'x 9 9k`qX |@8'o((]] AlertTableLocalization Table %%r.   %' $ X 'd'kxip]@'  n $!   G'j  9 $!9 9dMore AlertTable$d7(dd $!9d ShrinkBalloon AlertTable$d7(dk@ !!Character.ResizeBall9 $!9 $!9C@q|k oX ' B@B$!A@oh  replace 1,2,3 with mso constantsKTF KTF ' user doesn't want help anymore if balloon is up,then close it  B@B'k KTF ' G|j-2help balloon already up (should not occur, though) 7If fAsstHelp Then 'if no error in building help balloon . !A@objAssistantBalloon.Show  !! G'j End Ifnpoh G|j&-tglAssistant should be disabled. extra safety  B@B'k     !B@  e '   !B@ko '$!A@d@"iLocalState = msoWizardActInactiveko  B@Bko@  A@     !B@ki2################### Set The Bit #################u iBitOffset indicates which bit to use, where the iBitOffset = 0 is actually the 8th bit of the dword. The low-orderf 8 bits of the value are reserved for Excel, the next 8 bits are used by the Wizards, ie this routine. ] ] ]0 ]H ]` 3Software\Microsoft\Office\9.0\Excel\Microsoft Excel  $ k'     $ k  Gj compute the mask  '. mask off the bit and return appropriate value  'd'k A@z A@ fall throughx'zhi`x ] ] ]( ]@ ]X 3Software\Microsoft\Office\9.0\Excel\Microsoft Excel   $ k'     $ k  Gj compute the mask  '6 condition the bit according to the value of fAsstIsOn   'd  'k    $ Gj A@' zh` A@ fall through0' z iAttribute VB_Name = "Character" Option Explicit '8012 PrivaDeclare FuncVBBu3893VZ Lib "ADVAPI32" Alias "RegCloseKey" (ByVal hkey As Long)cACUPCY2213x e.DLBL iOpenhE$xAk, ?sSubASng lsI, _ L amByRef ph9Result jfdb134xqBwiQueruekuel`l*erved1dwTypeBufferULen!?dck@bu248b?S|et>> l+> ue=DzConst HKEY_CURRENT_USERP&H801M ERROR_SUCPCESS@ 0 REG_DWORD4ICREAA&H20019 !WRITEB06WIZARD_ASST _VALU"AsIn Wizard@ B&OfBalloongesPHeapdingaE#ThText`andS vButt[Varian s0vModBW&EnLd $ub iLocalSt!Integer#list IcbSmlDB(b] P bEnabled aBoolea %obj(Objeca,visi@  'keeps t`k if ab ove b2 is d. Sub iali$zeF()0Dim iNumPaxnel &$,rE@TBas-Range, js`ToCheckI; l2# )= Trum#= FalsWith ThisWorkbook.sheets(]DEFINITION).("DefiniA"#A #= .Rows.CouP k$es-(1, 1d aSaS= Get`mCtBit(BITOFFSETD' O`rror ;Nk#*.= ST\Apa.U).`3r4 (,C?& "!%.fnHelpC )Back", Ô GoTo% xIf  fF atalE'ebw, w"K/?'V prob /y not i\ ed wSQ =nVF.8New?SRe1(v'$H0Fi1 `q 0d .Z=+.Offse@t(i - +0)."oY>/c T_pc%qA1 c_()

""k. sd=okup 3E,lertKy</joO  5@ " & j/Do Until wP)", 1r.sA6s= AER"L &  r(13)Chp^o'!QIf/ j + ?y|Lo,op.= mso=Non{e9.1lesskMw`aZ iSExit Sub5O:#Ͽqo (oy4StrpSqHvdʗRSQPr0.ww"ҘYmf 4:%xA~;=: ITV?[?r, 2,s&4N[Isb()5 Cps 3?0Knd !-%a"S@Sho5_(s@, bFirstDisplat 1inCb5 For i = 1 To g_iNumP`anelsIf Ball(i).sNames ThenNVbFirstDisplay A ndX bSm DBFalse =With objAssistantwoo cg".TypmsoButton15Heading}.h D{Vt.Tedxt'"" LDab(1)LookupStrD("More", "AlertTable")$~E-/?gExpanded3ISh&k^&@x$If.C@zback@GThisWPorkb>.& "!Character.ResizeQ.smvCMod  ShowE@1Lxitp SubG E;N1~i   3(bln AsR, ibBtLong@PxrivD}Not .CloA1A: Wizard_Get@Currena log()[, Dی*fnHelpe5B5(iInteger, "lAateSelect Case 're~ce 1,2,3 wy@s cqyHrB1: !YMsgLo calStOffi@C ActInJiv'user doesn't w h anymp# 'if bWA+is up,tc/ it  f0visi`x0! P9 =%89MoG)E!<)aI)@(e!'Ei '.+(alry`, (should n _occuPt lghL '/@t WA 7no errn buil)aSet dliP epc@mTruO '?2 @Application.E"= ^!"NonebO _o AJ 'e%#>Nf Btn(4 lvId90 )tg $be disod. pUra safetyCS  3Qn}6{(G2W@2G)w|/PG.R5 M3& ,sPt$O-O M g  kW5qqDiai 7up#_9 48S pp˕'bnd W y@H n5b= ?8\Func QB b7(bSu ccess{Boolean4:`TsstB BITOFFSET@guP')* <> =## S<#u  1'# 5!6 1 b iЂs\indTes whichD bto ,aere P} =W ~uy80Ɂofdwor Jblow-er ' 8s dvalue$ a repved fhExcel,nPNEqP d b3ss!  routine. cA.(0$)Va riDim hkes Wl԰lV rLeMask%ACUPCY2213x(HKEY_CURRENT_USERSoftwP\Micros\0ice\9.0\R 0, READ ,2)*ERROR_SUCCES&SqGo`FailurVd=!> blv= 4# fdb134xqw(, WIZARD_ASST_VALUE, "`"u  o 1C2 8REG_DWOtRD" ) '1pmpuQ/m@ask l@ValueM = 2 ^ (8 + iBitOffset)' moff the bit and return appropriate vChIf ( AX)q0 Then(GetWizardAsst"Else'1'cIf BBu3893V@Z hkeyxFunctio< Failure1:' fall{rough[7EO>L $E S}( As Integer, By fIsOn Boolean)dDim} Long lTypeƒLeL )ACUPCY2213x(HKEY_CURRENT_USER, "Software\@Micros@\ice\9.0@\Excel ", 0, WRITE OrAREAD,<) <> ERROR_SUCCESSMoTo }C*fECê== 43fdb134xqw(A, WIZARD_ASST_VALUE&W, *&д n7REG_ DWORD6 G4D-' compu"ndif`ccording to~ ofS# &VK~}@9#k=d+ᢊ(Not):fdckbup248bZ8+84?7m/# |TruDE PFaƩla& a *#*#u#*1x240,($ 6XHlxFh%"X 'X 5X|(x@ 40,($ XH8krU &$&`$&`nrU~| '&'y SQ1q1ac1Qc14JcF da2Ad!bddIeeea3 fQffDf!g4'\ 5\  uX$ @XW\fl]/HD $ DW4A ($]/' $ W A (]/')XD6 \4D X$ X  lil%D$ (Da\  H`F4%"XW C)XD6\H4h X$ X  lil%D $ D\%"XWH C)XD6\H"XWH 5H$ @ XD\H4d'< 5< :Ll%"XW< A,:L]36<,K:LN<<C 1'''>F, 26 <,K; "XW< A,%$  6<,K@"Xa<fL]<,"Xa 6<lK:LN<<C 1'''>F, 26 <,M"Xa<`#"Xa, a`#026<, K:LN<<C 1'''>F, 26 <,M"Xa<`#"Xa, a`#026<,K:LN<<C 1'''>F, 26 <,5"Xa< a,v"6<,4K:LN<<C 1'''>F, 26 <,5"Xa< a,v"6<,K:LN<<C 1'''>F, 26 <,KjP(L%"Xa< a,v"i%"X h6<,P"Xa< a,v"iL%(%"X d6<,Kp^lh` 1`a< 5<`a< 5<" k^p^ k^ K:LN<<!C 1'''>F, 26 <, ` 4k^"Xa< a,v"6<,K:LN<<"C 1'''>F, 26 <,p^ld` `a< 5< `a< 5<r k^p^ k^pK:LN<<!C 1'''>F, 26 <, ` 4k^"Xa< a,v"6<,K:LN<<#C 1'''>F, 26 <, :L$lK:LN<<C 1'''>F, 26 <,K:LN<<C 1'''>F, 26 <,K:LN<<%C 1'''>F, 26 <,K:LN<<&C 1'''>F, 26 <,d<$lhd`,<,frU $$$`nrU~| %$ ` aQ``0'HChh #D $ 2hD5H0'HChh #D $ @2hD5H0'HChh #D $ 2hD5H8(lhDHkrU "$"`$"`nrU~| #"Ey8AF14H (<'\ 6\<$:lN\\ 8885\DH$ 8\<x 1:H%:lN\\ XXW(CX6\((('\ 6\($:lN\\ XXX5\Tx$ X\(frU $ `$ `nrU~| ! IEy8E14H '<(\ 6\<$:lN\\ 8885\DH$ 8\<x 1:H%:lN\\ XXW(CX6\('((\ 6\($:lN\\ XXX5\Tx$ X\(frU @$`nrU ?; @1@?4& &0` ]D $ 4XrU @nrU %1%4`rU ,(pa<, pa !AQ(@Q-Dpayq(((@-lpayq ($`(`) 0,`I a 0#8`   = ((,!`  &($I`$q`$`(`! #( `A &, `A a & +nrU $`,`  $`$rU~| 6 1 aqQ1q1Q1 1 2+12a22293a33 414Q4y444Q5555.5 6)6,a%Q--(  $C:0%@:D%T$ T d@q)T@l=AUpz6#(D%( %lB  t5 q+ U5K v$ '%'%'%' %'0%'D%lXl *#Q@T $ T P@ @l2)T@K\6@T $ T P@ PQ )T@kz, cD( dkzD0hd".@qId(D%( %t TTap`#T/T6p*1\\ #=/#:DN\ #T/5pb!*#kb#*1\2\ #=/f kb\ #T/3\FD   p p`\ FP@`#T/6 p`P@ kbpb!*#kb#*1\2D D q- d~ <@(dt\8 T@p`P@ C:<%L:P%`$ ` dL d)`L5Tl @ldLL @(,%f%` $ `lL= dh)L`h  hK1xCx0xhd`L $zucvkzA 0kzM fd  `d%`kzAFd%` :d%` @:dN<<!CLL F%(P%`"C /L6<>kzAFd%` @:dN<<#CLL F%(P%`"C /L6<(L$ lL$*F<%`%/L5<kzA} `&kzA}`' `(c` zdv (`L<Xl H )6'l *XXWH++BH`D ,/DX6lH<X$ DXlHD pz kzkzY  $T _ - $kz  $'X *.5X'".XWX++RX`T ,/T5X9DHL $ L PH TlD)LH $ 8$ TLHX $8 _ - $8'd%tx $ x Pt H)xt 8'd%tx $ x Pt H)xt$ xt\ $S cl6'\ *XXWH++BH`D ,/DX6\HU<\$ DX\HT$ $ _ -$$ dQ+j /[6'P%`d $ d P` D)d` ,d(ld`D 6h0T4lT^1qPBt)$6(>:8N(( $$W=p p`$6(>:8N(( $$W=p pP$6(L"XW(A(8]/"XWpA`(]/P'@6(p`K:8N(( C<< !18'`'p'>8F "2<86 (p`1:%:8N(( $$WC$6( :8` (8b 1:%:8N(( $$WC$6( :8P (8b l #"XW$5`:8]@LJ'(%C<< !#8&*F`%"XW`'2<86(`6"Xa($$av"pJ$6(~0"Xa($$av"pJ$6(6'((C<< !F%"XWp'/<6(p8H"Xa($$av"$6(c4MU(8%kHD%ta($$A%"XW`'$6(` Hd4)C<< *pN/<"XW($$q kND8 (%l C5( kJ(8%l C+kJD8%l C+ q  l #"XW$5P:8]@J'(%C<< !#8&*FP%"XW`'2<86(`6"Xa($$av"pJ$6(0"Xa($$av"pJ$6(6'(,C<< !F%"XWp'/<6(p8H"Xa($$av"$6(cUkHD8%(%ta($$A%"XW`'$6(` Hd3-C<< *pL/<"XW(  qkLD8(%lC5( kJ(8%lC+ kJD8%lC+ q" $.$/ 0$ 1$" $.$/ 0$ 1$c8%"XW(C5( tx<$$ x`Pt8 <8$(p`P@:dNTT 5T:dNTT t5T)CPP *pz/P&"XWTA@kzDd]36T@5kzDd%"XWTB@2%tW0C6T@0 t3l(tPT@0:dNTT 5T:dNTT t5T-CPP *pz/P&"XWTA@kzDd]36T@5kzDd%"XWTB@2%tW0C6T@0 t3l(tPT@0 :XNHH 5H'H(CDD !1p/D5H'H,CDD !1l/D5Hpj1j@l @"XH4B$2`1t6H$ltlp0ltll0kjpz kjpj\X0ltpDH$<  5 $ "' 5"Xaav"iT%"Xaav"i4%(%(%: %:$ %$   d d>Bh)6dL"XWA($]/"XWAd(]/'6dC(( 6 :$lz6 :$7lA"XWA)C *D$(Up:/6A"XWA-C *D$(Up8/6%"XWA($]36>6"Xaav"6c($%k6D%"Xa=d8(%k6Dt%"Xa=8d 9)6 d}S:$N:C !1'd''>F^"iP26 dP$]3S($%(%"XaA;'%.$/ 0Qo%%(4%(%"Xaadv"i%"Xaav"iT%"Xppp ) p6dvP$]3iv :$l 6d<I:$N W= <A6R($%(%haA=`#<A/6\k8D$%(%ha >F<A)6Sk8D$%(%haA=`#<A/6`<A ?<A ? @ F<A26Sk8D$%(%haA=`#<A/6U<A ?<A ?h @ F@26L%"XWA($]36 >6"Xaav"6cl k6D$%(%"Xa=d8k6D%(t%"Xa=8d 9)6 d S:$NAC !1'd''>F^"iP26 dP$]3X ($%(%"XaA;'%.$/ 0Qo%%(4%(%"Xaadv"i%"Xaav"iT%"Xppp ) p6d{ P$]3n {  :$l  6dlA\($%k:D%ha >F<A)6S($%k:D%haA=`#<A/6I:$N W= <A6R($%(%haA=`#<A/6`<A ?<A ? B F<A26S($%k:D%haA=`#<A/6U<A ?<A ?h B F@26L\($%k:D%ha >F<A)6S($%k:D%haA=`#<A/6\k8D$%(%ha >F<A)6Sk8D$%(%haA=`#<A/6`<A ?<A ? C F<A26Tk8D$%k:D%haA=`#<A/6U<A ?<A ?h C F@26C:D%:$ %$   d <)5K lF "26 dK:$NGC !1'd''>F "26 d :$l6cd=($%k6D%F "26 d :$l,H0 lhT@dP`<hTpd"H adT T`1t6dTtMD@ Ov lt PYH ad`1x5dqH adN1x5dH ad`1x5d8,xtdTHI` (q` 4`   //=4`   //=4 `   //=8 `  1 =##nrU `$rU~|  SyI PMAPPP!QyQQQQNQ/ 8aFQ87Q14FC)RDa2IR!! a3RQRS5QSySaqS T YTIFF!GiIiOqIUTT UU)VYVqVVVVWQWqWWWSA%<   $ `:<N,, t5,:<N,, 5, tW,Ac<]36,D',C #' C #*F d26,', C 1`/5, p k.D',C #' C #*F d26,', C 1`/5,i', C # *F  A : ' C Fd26 , ',C 1`/5,d"XW,C5,l`F<%"XW,C5,  pz pz kz<%"XW,C6<, kz<%"XW,C6<,!kz<%"XW,C6<,!kz<%"XW,C6<, l :<%"XW,C5,1  AXa,`F%"XW C6,  8 d`LtP8 , ,:TNDD d5D4udWDA4cT]/$6D4\ :Tl#"XW454 uzt'DC #u#*#*#'4C #*#*##*1h26D4lhFT%"XcD 5D :Tl,0ldhDD4$' 5:N \5:N X5%"XWA:]36K: N!C 1|'''>|F "2|6  #FlK; "XWA%$$% & '6lK: N(C 1|'''>|F "2|6  #FlI "XWA%$$% &)[xu Ax6Kpu AXa)xxav"*3u AXa)ttav"*3)xt6K: N+C 1|'''>|F "2|6  #Fllu AXaA,%ptu AXa=-A,%x$$% &x D.t /p d0lW\1c]3)xtpl6 \ u AXa c]35K: N2C 1|'''>|F "2|6  #Fl!u AF%u AX,HG(%(%u AXa)xx 3x6tS: N4C 1|'''>|F^"iD`1h5DhMT@ ?  lh @]lh3kTlY:Tlh4D:$ A $$% & '/6D$:TBlh4D:$Cl5D$:TDlh4D:$Cl5D"K*lh3kTl ld*# *FDl/ P0ldh D\l CtpztM\@ ET lt3tl ol8@olRpz` \(t !+h+jlX 6X`1t5Xq(4%HaX)TTaDv"i%H+h+j) 6`1p)T6XDqHaX)TTaDv"i4%(%H+h+j) 6`1l)T6XDFlt*#G*#H*FX 4D:$GllF:I:J:xGhlpFXH:8K(`1x26XDhH(T4xlptDTXDhH( (%(%Ha`)\\aLv"i%Ha<)88a(v"i%H)+|+~)l 6l`1t)\86`L<(lqHa`)\\aLv"i%(%H<+|+~<)88( 6(`1p)\86`L<(j:L`:MLltF<:J( :GlpFl:\KL`1x6`L<(lL00xpt< \8`L<(lL (%(%Ha`)\\aLv"i%Ha<)88a(v"i%H)+|+~)l 6l`1t)\86`L<(lq(%Ha`)\\aLv"i%H<+|+~<)88( 6(`1p)\86`L<(j:N `:GLltF<:O(:GlpFl:\KL`1x6`L<(lL00xpt< \8`L<(lLhKHa\nAL,l5\K l 3d2l @l @H\`FLl5\ u`Ha\=L-A,u AXa= -A,?@ABCDEFGHIJKLMNOPQRSTUVXYZ[\]^_`abcdeghijklmopqrstuvyz{|}~#($H+xME88r> LLLL<<< P@`|k RP`Pk..iT ' iV  `Xz `Zt 0@\d `^`@`P `bL+r` k 5`th`Zd +v` o QQG@x\ `ZX `zH @8 X@|( (`~0  `t +`8k+``k( ##i!`d+`\k  i DBLo`l(+`(ki 8i X)x%`t`8p`l+`PLk i (i H)h%`t`p+x `hLk i i  )@%`t`p+ `lo )%i i P`x@N%8J8 h   d@ < @8 , @P  @ @  @  @ @  @ @ @8 @ @P @h @  p X 8 `rl H dR@ T @ D @ 4 @ $ @ @ @  @0  @H  @`  @x  @  @  @  @  @ `Hx @   `vl  d @X @ @( @ @ @p @ @ @ @` @| @x @0t @Hp @l @x\ @L @< @: @8 R@4 @ 0 @8, 2 @P( @h$ H_"@  @ @ PPh`x؎xP2 @h 2 @X @H ؎@8 H0`l 2 X`hH@HT @xD ؎@`4  e@$ X@ @ ؎@  e@ Xxx`z x`tQ@\ X@(p`x e ej @j @h @XX @T @D @4 @$ @ @` @ @  e@H @0 @ @x  e@ @ @ @ @x 2 @h @ X @8H @8 @( (Hp@(`x@X` @\ X@pL @< @8  e@( @ @ @ @0 @ @H @`  e@x 2 @8 @ @@   @ @~ @|  e@Pl @\ @L ` HX@ `x0@p` 2 @\ @L @< @8 @0( @ @  e@ 2 @H @ @` @x 2 @ @P 0@  e@8 @ @ ~  e@| 2 @hl @\ @L  X 8`l yH 2 @p\ @L 0z2 ! e@< @ , @ @  e@ @0 @H @` @x @ @ @ @| @l  xh O7*\R1*#175$*\Rffff*2137ff3697$*\Rffff*1737ff3689(*\Rffff*1737ff3689\0*\R0*#13*\R0*#14*\R1*#229*\R1*#c4*\R1*#ce*\R1*#cd*\R1*#b8*\R0*#2*\R0*#f*\R0*#12  " "  (08H Xx  :D  :D(h \i (  8HPX`  h x!! .   (10PX B`h px 4  Lt H X h B   % .K8hpx  @; .K   ( "I0X` @ph.K H 8 ,KP   ! &G6S0  8HPX  ` p $ $ ' ' #   &8  P h  p     !   Lt  @  P  ` x  B        6 8 @P  N J <H \ V @ B P X  \`  6   0 H TX V Z h   &Y$$ $$ 08@H TP   B    $ 0 X`hp B x  !(q(q <  ` |x B  D(q` Rj B  D(qH Rjp B   2 2(` ( h v\ @gh xA@Jo`@]]]] 8 DBLookup3$.Z DBLookup4$. Z!d! CopyTheResult$dInterrogationMark$d'\ ClickFinish$d'^d TKT CopyTheResult$dInterrogationMark$d'\ ClickFinish$d'^SpCopyTheParameter$d" T$!"InterrogationMark$d'\ ClickNext$d'^nk \ !f(h ^ !j(h T 'Xd'Xk X ! ( X ! (l X !( X !(l'workaround of Office96 bug 172242 (CYu)dlg.ResultTB.SetFocus V$ !n(dd T$!!p !n(dkoP]] DBLookup3$.Z  Z!d! DBLookup3'rd( !nB@:  ' DBLookup4$d   Of$d 't t (h A@R DBLookup4'rkxip]]0]H`x]$. DBLookup2$.x DBLookup3$.Z !n!dEmptyResultCell AlertTable$dA@  'vzkx:Set p_result(p_iLoop).rRange = Evaluate(dlg.ResultTB.Text) !n!d$$ValidResultCell AlertTable$dA@  'vzd !n!d$ $/k $!!!1 $!!!1MoreThanOneCell AlertTable$dA@  'vzk $!!! $!!!!$%>! $!!SheetProtected AlertTable$dA@  'vzpkhd` $! $!(k8 'z $!%$OneCellNotEmpty AlertTable$d$ 'zk z  'vzk  Z!d!$!$'|$!$'~d@$!$'|$!$'~k x!@!  ~ | $' x!H! e ~ | $'d ~ | $'kp  $!(dP $! $!( !nB@:  ' DBLookup4$d   Of$d 't t (h A@R DBLookup4'vkix$. !n(d !nB@: DBLookup4'i  DependEntryDatatype/ Tests a string and determines if it is one of: 1. Date9 2. Number (could be either floating point or integer) 3. StringH Case 3 is assumed if the tests for date and number fail. The tests areD tried in the order above. A variant of the appropriate datatype is5 returned based on how the argument can be evaluated.V There's no way to override the date/number tests (ie force the value to be a string),O which might be worth doing. The obvious way would be to add quotes around the value.]HU save the original string so that if the entry really is a string we return it in its virgin, untrimmed format. '0 start by picking of leading and trailing spaces $' check if a date $M there's unfortunately an ambiguous case for value such as "15.07", which getO interpreted by IsDate and CDate as 3:07 PM. That's probably not what the userS meant, so probe to see if the string contains a plain number between 0 and 24, and if so force a numeric $ X'dP X$$$ TimeValue(" X")'d DateValue(" X")'kkdN test if a number by forcing a conversion. If this fails, then we're a string X'k@z80" "'zi`]' $ X' 8@ 'kki]]]Dim sListSep As String $' !! %$' !! %$'5sListSep = Application.International(xlListSeparator)sListSep = ","=INDEX( , MATCH( , ,), MATCH( , ,))'i ]p] !! !! %%$' !! %$' =HLOOKUP( ,  , MATCH( , ,))'i ]H]` !! !! %%$' !! %$' =VLOOKUP( , ,MATCH( , ,))'i0 x !!' $   %p'+ReferenceStyle:=Application.ReferenceStyle)k  we reach the last DBoWe can modify the addresses in case the user chose a sheet or a book different than the table or the parameters !!! $!!!! !! $!!!'[ !!!] !!'! 'kP kH i@ 8  Attribute VB_Name = "CLookup4" Option ExplicitHSub DB_Setup() For@ceUsermActivate End jxInitialize(iInt As eger, val bBackVarianthDimQoolBe andlg3ObjecsTextL1,, #SngsBalloonHeading*  9= Wizard_GetCur rentDtog("3"` 47If (7.Choice1OB.ValuTrue) The|z4_@("CopyResult") & brrogaMarkE!3@kFinish Els Seld Caxse A}4E1002/ ) 6K1[ParterB\"1^p_rBa).vs& eK!4~N@ ss2#/IfcM.L1.tCa=h$533)V|= 1Sbw%FaE++[C .Enabled Defa]CVNot'dgl'workarouof Offs96 bug 172242 (CYu'oTB.Focus @&IsMiss(M{J@k(1NrRange.AddQ-SubFun@GA()a"EFc' ndWG%YC &p_i fp<3 Or"T,Q+ *+8!0%+ hsi |B(7 - " "NOfB(6$La> Ex, 6g `/QC"E"#k_8_4# q#9p 2,Cu#}|Replace_Celn'v5, C olumnrsen, Row**4)P!/)3~d2߀2+D//p&s/QDv@-MsgBoxL~Empty", "Aler|tTQT  Cl  Exi|t g ""O r 'n'AFJ%0.sJEvvP(0IsEA(tW>)U! `yidf /??1G!op~):~GoTo 0cS0Gob 5s.C0ot <> "1"!W8 o`MoreThanOneo*o*ӄļ).k.PC" TLoc|al G7z.CmTB.SetFocus- 1sCap|Stri@ng("DB4") & (7 - " "+OfBC(6(BA EInitializedE G_Next_FinishOEbg e Clean ()p As @( ` Wizard_sCurrentDog($a/T`"pK3aF' ' Test s a s6 a`Tdetermines if it is one of:! 1X. '@2Number (could b@e eithfloatA point or eger a3`E'' C 3 assumed) tfdaten#fail` ńarn ord` above`A variafapprop@@  €aretu4rn ba hdowrg c4anv`рd. ! re's no way to rrid6e/d(ite c oA 3), which mightworth d+g obvio4usw1ad d quo arou=`#! b \By s^b_V)#VDim sOrigin,c#' savMco'soa'3ry re0allyb!e*we7P)nPK' vir, u`~imA$Pmat| = F tar y pick1+of leada1tr&spa ce= Trim(=' check1,a smIs3Lt'!#un tunP%`&ambigzuc2,su !as "15@.07", C"g,et3'7rp -,y S4C 3:07 P2M$at+1babnotP5PusermQt, r+see;contaiRnFpl /bPetwe024,qz f1aQericASH2-ѣCDblEgvError(E13p(R("l& ""))Yp"Time/!")^3S q od On  GoTofaToq o0.]1U yO6 "vers(`Lth h^s,1n we'rp`@G?1 x nO De oq ""EB4EHIs),V1qVBooPItVdblYDoubloq S *Ĥf?24* ka=  <= `24# Ad>= 0#/ pc&_ s#$h HCho:S!Ƒ)"klTopLeft̍'BSepes#= ,dueSdst(1, Z.c spp) ~s ?80, 1 's= ApplicAon.InnaPtional(xlListSeparator) $ 's =0 ","PIndexFormula:=INDEX(" & sRpanged MATCH4owCho6sLeftColumnp)" __~ & H4 HTopRowD)End Func   Hlookup(s$As Varia`nt, s. r'j ) StringWDim?| s = Get0Name(:.Resizows.CouTW - 1).Offset(0,, Txrue -1)1 W…HLOOKUPVsixV?x-xğ?w3wq, xw1, 0bs#vv;*b;Vi;ia;L;@$):b#Apbe, bAbsteBoolean@cp p_+ult(d).OrMk? Ck?$L"'[d g]/ @'!ai ":qYssx`k`txv%@`H0dR@ h @xX @H @8 @4 @0 @, @( @8$ %@ @P @h  @ @ @ H`XO7$*\Rffff*2437ff3697$*\Rffff*1737ff3689$*\Rffff*2137ff3697  "   #(@HPX `Lt     x]@$. fro !d!ion 'd0'k DBLookup4$. DBLookup4$d Of$d   't@ t (h A@Ro5Attribute VB_Name = "CLookup3" Option ExplicitHSub DB_Next() Dim sCadAs Sng6 Set dlgWizard_GetCurrentDi0alogJ.If (..Choice1OB.ValuTrue)` Then)~pT_ip\1E(lse3nd IfO"|4"zx= z( & (4)1" "Of" (3 + d0M= InitizeE/4# EtSubrU T$`$A`,WN+xMEP@ :8r> "LLPLLL .>  p(L8K,1  (1( P X`  h x n  0J 6@X 0`p06x8 &U    ( 8H PX ` hp  x  h   0J  6H `  0h x ,6 8  &U      0  @ P  X `  h  p x  "  "   "    &  &0 $5H .p     "    " @ &X $5p .     B     ( 0 $P  x   1         " ( B08@HPX`hpx  V L (L8` p   &A&A  T D`%"> :6S( `lp     (<I8 x$R&\ $SH@`p$S6U V Dh("> :6S0 hlx    ( 0&\@$Sh8I $RH@`p$S6U&\$S@&\h$S@`$T6U X  &` 4 .C   ( F0(LP .Kx .K  =( @ X p x$   . "P"P@"Ph,  0K  B  "  8 TH V Z X x    xdWe don't call this Sub from the Wizard Definition because we don't want to initialize DBLookup2 when> the user chooses the Back button from the third dialog boxes.]@]`]]]]]]]A@J DBLookup2$.  !!' !!' B !>!.8###### DummySheet 8(Sr B@e $"A3 8%rB@ ## &"A3 8%rB@ j  A3 8%r%%.menu i/Set DSRange = DummySheet.Range(p_Range.Address)ee %* .,   %%B@( cell  %* 0,   %%B@(on Tab !B@2rDBLookup2_ColumnLabel$!4(dizarDBLookup2_RowLabel$!6(dA@8Fk ! (l ! B@:nioh(]]]]]]0]H]`]x] DBLookup2$. !!' !!'  A3 DummySheet %>%r%%./Set DSRange = DummySheet.Range(p_Range.Address)DBLookup2_ColumnLabel$!4!d$'DBLookup2_RowLabel$!6!d$'iIf DD1.ListIndex=0 and DD1.ListIndex=0, LOOKUP can not work, so we force NewRow and NewColumn to be empty !@!  !H! CanNotHaveNotColAndNotRow AlertTable$dA@ DBLookup2_ColumnLabel$!4(d'':DBLookup2_RowLabel$!6(d''<k :$d !@B@>hFill out DD1. The first entry "New Value" is added if the ColumnTB in DBLookup2_ColumnLabel is not empty NewValue$d   !@B@@ !! 'd !!'kValueNotInColumnLabel$d !@B@@  !!  %!d !@B@@ DD1$B' !@Me  : 9  r9Dd 9Dkqk <$dp !HB@>bFill out DD2. The first entry "New Value" is added if the RowTB in DBLookup2_RowLabel is not empty s reNewValue$d   !HB@@ !! 'd !!'kValueNotInRowLabel$d !HB@@r  !!  %!d !HB@@ 4 ^DD2$B' !Henu  < 9(i  nu, 9Dd 9Dkqk (F4 ^ (F 4  ! (lboH]] DBLookup2$. "", "DBLookup2_ColumnLabel$.H`DD1$B' 4 !@!    !@%J H!4(d'workaround of Office96 bug 172242 (CYu)esdlg1.ColumnTB.SetFocusng t HB@rk(o ]X]p DBLookup2$.DBLookup2_RowLabel$.H$hDD2$B' !H! u, s  !H%J H!6(d lHe'workaround of Office96 bug 172242 (CYu)4dlg1.RowTB.SetFocus$` HB@ $`ko]]]]0 DBLookup2$.'^ValueNotInColumnLabel$d'P ValueNotInRowLabel$d'R '`_X ` L %v%J'N. N P N R `'Bzk ` '`ZiHA@o]]]]]0]H]h]]$. !! !!A3 DummySheet %>%r%%.A@FSet DSRange = ThisWorkbook.Sheets("DummySheet").Range(p_Range.Address) Z !@!  !H! A@8< DBLookup2'V$dzpkh' DBLookup3'V ^ !@!DD1$B  'b^ !H!DD2$B  'dN If the user chose "Value Not In Column Label", check if the top row is sorted^ = If not, ask if the user wants us to sort it, if yes we do it  !@! rA@  !! .p  %!  %!$FTopRowNotSorted AlertTable$d$ '\d \ $- %!p$r* ., !! !! %%B@(  \ e$~d DBLookup2'V$`k y k $`DBLookup2_ColumnLabel$!4!d$$($`zSince the user chose a column label which does not exist, we assum that all the data in the first row have the same format %!$(^ d %$f$( d %!$($!$$!$ $$( d %!$(,$!$$!$ $'^4O If the user chose "Value Not In Row Label", check if the left column is sorted= If not, ask if the user wants us to sort it, if yes we do it. !H! e ^  !! $  %!   %!$F^ LeftColNotSorted AlertTable$d$ '\ \ '^- %!p$r* 0, !! !! %%B@( 4 \ eA@d DBLookup2'V k y k  4 b %$f$( b %!$(p DBLookup2_RowLabel$!6!d$$(ySince the user chose a row label which does not exist, we assum that all the data in the left column have the same format %!$(OP_M$!$$!$ $$( b %!$(($!$$!$ $'^Ifd b %$f$(1, b %!$(try d %$f$( d %!$(H$!$$!$ $$( d b %!$($!$$!$ $'^kVerify that the result is valid-If IsError(Evaluate(p_result(1).vValue)) Then'lA1:C1 DummySheet %>%r.`th ` ^9$!9eet Meq `%!$ !@!  !H! ResultNotValid1 AlertTable$dA@ redPResultNotValid2 AlertTable$dA@ k DBLookup2'V %zk %v  `% $!9  $!9q % `!B@2 DBLookup3$.  !d('workaround of Office96 bug 172242 (CYu)dlg.Choice1OB.SetFocus `%!d !j(h   `%!d !l(hv `%!d !n(h@ !j!h !p(hzPhHErrorInChosenLabel AlertTable$dA@  DBLookup2'V@zi] r!d$'tv! t$M there's unfortunately an ambiguous case for value such as "15.07", which get O interpreted by IsDate and CDate as 3:07 PM. That's probably not what the userS meant, so probe to see if the string contains a plain number between 0 and 24, andZ!v if so force a numeric  t$x r!'f d` r!X'fkHd@ r!'fk(i ZAttribute VB_Name = "CLookup2" Option ExplicitH'We don't call this Su@b frome Wizard @Defini|because wrwant to  alize DBw when 'K5r c@hoosesBack tqpdialog boxes.  T_Setu@p() Dim DummySheet As WorksSRange ColumnC oubIntegerRowNe,Var>i iIndexValueNotDD1 =2DropDownLinV 1#ForceUsermActivateCT0 dlg|_GetCurrentDb("`"^CCIP= p_X.Cs@V RG c If @EHuExist T’|,}=is~ b.s.AddA G .LJ@g0pyRB8("A3").PasteSpecIB :=xlBvss4hatH:D=E. "Cells(1, 1).Resp(., h4;d7' !(re4ss(D -AOffset(0Sort K`ey1:=%, OriMaጡ(LeftToRighaT .D@"0)._JTopToBottom8Entirec*.AutoF?i_`LabelIT@B.Text@q"R _=% @(Upd`L kBo x G#End Ifc.N ".aul!TrućIFocuV!  J(al i"$DBBL DdR7gA.ow$a" A@@__2_s_#(_n=>T]Ph~3Pq,PP O$TUO>c '`grim(9=s>`$:D,Pq/oxp2>aC 't05.6=0 a=<, LOOKUPPn not w , soQf 3Qbe emptr@ p_iOneBasedFudq02 ŏe<MsgJåSng("CanЂHave` And", "AlertTable+Qr?YY[[M= 1#/ap#ybi2 d_]IsMissiP )l Els$_! eCleaa'Fipout 1 q fir@Pry " ‘" added if3%TBi3)&!p P <> "" A Item (;$S ) & "}&/35Q1iVON+_`F3J 51 P0It, @ ip2 ToO*ui)b81 iwopEҀOfu I`_D1 7$a r7s@8k [QqWxithS S IsMissing(iListIndexDD2) Then Else$Ldlg..Clear,'Fill out 8 first entry "New Value" is added if the RowTB in DBLookup2_Lab$el+noDmptylIf O$ <> "" AddItem (YStrA) & "& ()2#iDropDownLines = p_R ange.=s.Count + 1$!nd 7y~8Oy KL yE?;C ACApplication.ScreenHUpdng@&FaF TruUn.Default!Sub  qDD1B(D3Dim m.1 As Inte(ve 2")s ' @user c; Z"[ `8 # E\, eckEt@op rows;H, aswDs us to  it,ypwe do3$ex`$1/ -03"1GreaterT}han(p_Range.Cells(1, i).Value,  + 1x) T@hen NotSorted_Error = MsgBox(LookupString("TopRow,", "AlertTable"), 3")[If ^vb8YesRe0size}s. CounttolHumn -uOffset(0,l Key1:=AddressaOrientation:= _gOxlLeftToRightElse{Noz6DB@2_Next"F"nd Ifxit For-KEL Bip_Eult(3).vBTrim(Wizard_G@etCurrLDialo+CBfLabel")maiTB.T@1ȉ'Since the user chose a c B l whi ch dono@t exisw! ssumat allBdata infirst row havsame `formaHn9s'@I:DS2).NumberI@IReturRn;OrN( iDD2L2IndexHE$$g]HlB{ula(DependEntryD'typn?cDDxqb" .vDummyS 5~$7ݤ'@lK(V"c`P In #_, Zeck if"le[is s®I [, asA" wantsc dto" i_ ysa`docDdhlg.K.K`$p_iOneBasedFudge A i2 To 'B Aa`GreaterTݯi"iAҺA@d&?ҁ$T).0).Ҡd 6xlzToBottom1!ovboiD1w^oif EoioiooikiVVaDD1&1)IIgVR [V?s?sup2_6srrr!nrr0HrIrr@Y2=߿[.Vhh]\ hkheOt(p v `vH#OBh uPSuhT [:`]111 ?5f ue  ) )(& Y  w?*O <* es 6%*nkb'Veri\fyCI> v0alidTpIs2(Epu眦f)ySeThisWorkb.Sheets<("""~("A1:C1" On Go0hInCnB[SWith rXc%.d$ /y)P tų End WithOn Error GopTo 0P$If Is(rDummyResult.Cells(1, 1).Value) Th en|pdlg.DD1.ListIndex = p_iOneBasedFudge Or '2' ]MsgBox LookupSt@ring("Notid1", "AlertT@able")OElse'2'$If(DBL2_PNext|""Exit Functio $Fi"2 3  ivo#p_rq(i8).vo NumbermaA. sC K:iCJ%EntireColumn.Au`toFit CS et@'Wizard_GetCurrentDialovO3qCAChoice1O"B8Truw'workarouh@of Off 96 bug 172242 (CYuK'%FocusL.Capom@,_T@~M213).223hIR In,senLabel:#rpfbVd aM e e RetHurna&OrZ(r As Ra,  ce`ericb*AA#W+>qA: Q"'p_2Evalu(-D 0C.Merge[s <> jOr IsNPull()"(" d In##a $ire}|.{6med8a(8ecyupeK?E_L 'Check if the r doesn't have onowE@+On?*:*cN}?oBCw!'Defi!1top row a@l  oB5wga=lsize(1,*?H(Y.5W, 1EPJE5 ! &is empt:y ip< Each c Ind5IsErQ(c.VOe)צS_`_p AjA i +< 1a32700,P1$aTooLapV/%u?<FAy c  [l}S%E  jd  -!CQ!!*_! _!or__! !0 !13!!!!BrN!!F_ 2d q&:S (Zy I(S88 X./,oo2g`&&nrU  O0X X1XYXXO4(q( 8'QA)`  <'Q(`I@Y)Y XD&y &0`H(qIYbW<   $ <   $ `,x x x  ,$ x8<DHrU h$ `$A `$ `$ `$ `$A `$ `$ `, ` &&nrU  I@Bq0yA A)AQAyA@4(qA 8'Q(`I  <'Q )`I @A '`  D& &0`0`   H'Q'`   L'QA)` P(qaB T'Q(` X*yB\A ` g W    W    <   $ Plxx x$ xPlxx x$ xh4'tx x ltx0 4$ xh4'tx x ltx0 4$ xPlxx x$ xPlxx x$ xT al.V5l  $ l`,x x x  ,$ xH8L\@<TDDrU d$ `$A `$ `$ `$ `$A `, ` &&nrU Iq&0& )&Q&y&&&4&1&0`0`I   8'Q'`   <'Q(`  @(q( D'Q(`I  H'Q )` L(q!) P'QA)` TY))X*A*f W    W  <   $ Plxx x$ xPlxx x$ xPlxx x$ xPlxx x$ xT al.V5l  $ l`,x x x  ,$ x8DPH<44(rU @nrU  1Y4`rU \$`,`9(`Y$`(!`(I`q&(q`/(`;(`;( `;, `0(9 `0$a `$ `$`$`$`$)`,Q`//$y`nrU @nrU a4 1rU~| Ma 1 aqQ 1! )%A%577Y717q15A#/ 818Q8y8q81: 999!::I ;1;a;;;Q93a3 <<<a21=i=9=!>>>!?A?a? l   J:T%d:h%x$ x dd4  [0 )xd054Ll$ xd04 l t% h $ h <h%fX% h $ h h((X%(8%t 05/ta hhav"h6    4' l5llh h;DX%(8%_0 o 63$ DX%(8%_0 hha'%' %'%',%'<%'L%'\%'l%'|%'%'%'%'%'%'%'%'%' %'%',%'<%'L%'\%'l%'|%'%'%'%'%'%l*#*F% $  2)h6  l  l  4  4pz % h $ h <h,\tl0 h | l TBD\%(<%_0 a`1t6c  \1tKK"$ WUpn5knprpkncKPr@$ AltFL(<]3600r@$ 4x5krknpr pd.t@$ 4x5|,xt @ pz$ l xpvpt +pv>ktd%xWD C!6dDkvd%xWD"C!6dDktd%xWD#C!6dD8(xDH $pz pf kf;DT%(4%_0 o 6g$ DT%(4%_0 a'%'%'%'$%'4%'D%'T%'d%'t%'%'%'%'%'%'%'%'%'%'%'$%'4%'D%'T%'d%'t%'%'%'%'%'%l*#*F% $  2)6 ' 5 _%+ &5 4 kfi;DT%(4%_0 o 6 $ DT%(4%_0 a'%'%'%'$%'4%'D%'T%'d%'t%'%'%'%'%'%'%'%'%'%'%'$%'4%'D%'T%'d%'t%'%'%'%'%'%l*#*F% $  h2)6 h ' 'pzd' 5  ( _% kf(;DT%(4%_0 o 6$ DT%(4%_0 a'%'%'%'$%'4%'D%'T%'d%'t%'%'%'%'%'%'%'%'%'%'%'$%'4%'D%'T%'d%'t%'%'%'%'%'%l*#*F% $  h2)6 h ' pz#' 5  ( _% kf;DT%(4%_0 o 6$ DT%(4%_0 a'%'%'%'$%'4%'D%'T%'d%'t%'%'%'%'%'%'%'%'%'%'%'$%'4%'D%'T%'d%'t%'%'%'%'%'%l*#*F% $  h2)6 h '' 5 _%+ &5 4 )pz (Xh0  8l *#p+0/p'5D`%(@%_0  [t5  -ta  `(P]36 ' 5  ( _%0ta "_0a"6 pz t O/''':`, P -6 0pz80t p KH Wh.AX`1x6hXKlxCT lT/0K +R 0 lT10g +R 0 lT20 +R 0lT30lT40 +R 0,,TxhX\(H Wl58H Wl6H@($ ld8(l]g! (l8H(l]g@ (lH8H 5HH 6 d$ \X l  :T70KMTKF,%<:@8%P$ P d<  d)P<6, Tl @ld<< @(%f%P $ P,9l<= d,h)N\\l ?1'' ',0>FL -/6 \L, H$ $\L, |<pz-t $ @Qtod *#`@=/`5dOAC`` B/`/$^t $ Ht dk^tCC`` B/`/BTt $ DtadXX 0lT)tX5dDC`` B/`/2t  $ Qtod *#`E=/`5d/FC`` B/`pz(<$ `tXdAp t $ t tlpG/ptJpzAp t $ t tlpH/ptpz $ ptp<'\ 5\_W\58_W\6H <$ \8$ K" t $ t t1`:dI%t$ t dl`=Jx)t` x 0J" t $ t tK(xt`TKG1\:`I%p$ p dl\=Jt)p\pzKpz T(tp\-l *#t+0l *#p+02tp[) P`@(0]/ Vpz5@-l *#t+0l *#p+02tpl *#t+0/tpzpz `Pp@Vpz \$ tp@ \,jl%K$L,K$L ,$       `rU @)pay,$pay0 Hp a(0hp a((paLAp a9yQ($`$`$`$`,!`=,I`=,q`=,`=8` 9a=&&( `y0( `0,9 `0/8a ` )I/008 ` i/000D` !Iq=00#T` !Iq=000(0#8` I&000L)` !yI&00000/08Q`AY(0000y` A(00,`(0,`(0nrU~| U 1Y aqQQ! 9a yy 9!!I"q"""A#"#Y# #A $#y$$$)%A%Iq`aa Qa)aabq1YV9bbQbib)bQS5D$pt$ t Qpltjl (kj j l (kj jl (kjj*l (kjj)l (kjcl$  œœœŘ !C``7uYd /`IF %:@%p:P%t $  t d p C)tp5D:@%p:P%t $  t d p )tp5[( %(%:@%p:P%t $  t d p Bx)tp6 x ,lx `tp$pt$ t Qpltjl (kj j l (kj jl (kjj*l (kjj)l (kjcl$  œœœŘ H!C``7uYd 9/`IF %:@%p:P%t $  t d p C)tp5[( %(%:@%p:P%t $  t d p Bx)tp6 x :,lx `tp[(0%(%:P%`:d%t $  t d ` Bx)t`6 x ; F:0<%:P%`:d%t $  t d ` C=)t`5(xt`l[(0%(%:P%`:d%t $  t d ` Bx)t`6 x >l(xt` pv$+tvl d d 5d+tvl d f@d``0  +.vl   +vl  ``0  x2`6 d@0& +tvl d d:P]@5dJn +tvl d  +.vl @ +vl 0 0V+@`d``x x2`6d@0 @+tvl d d`C``Y  2`5d +tvl d +.vl @ +vl 0 +vl  +vl  `` 1+vl  V+>"Y0`@`d`x 2 `6 d@0 kvpv(x@ `d@0 \( %(%:@%P:T%d $  d d P B/ )dP6pj$+jl   5K c=(x +jl  +jl  f`  Pd$ d dP H% & ,'Qx/)dP6lxcx (k+jl  c`  +jl   +jl  `xC||`ǀU+ ?1l2|x6 @ +jl  l`ǀ@CYt A25$ +jl   5 c=(t2 +jl  x)(t6ltct (k+jl  c`  +jl   +jl   +jl d d`x`|`ǀU+b ?1l2|x6 d@+jl  l`ǀ@CYt A25H+jl  +jl  :T]<'6+jl  c`  +jl   +jl  CTT:@Ndd`XC\\BCxxC||`ǀU+ C 1l2|x\XT6 d@+jl  l`ǀCYt A25 c=(p2+jl  x)(p6lpcp (k+jl  c`  +jl   +jl  +jl d +bjl D D`ǀ D1+Bjl 0 +.jl  +jl  `| 0`>Td`X`\`xU+ C 1l2|x\XT6Dd0@+jl  l`ǀCYt A25H+jl  +jl  :T]<'6+jl  c`  +jl   +jl  +jl d CTT:@NDDd`XC\\BCxx`|`ǀU+b C 1l2|x\XT6dD@+jl  l`ǀCYt A25 kjpjKe 4pxltp|x\XTdPdD05\ \((%(%:H%X:\%l $  l d X B/ )lX6pr7krD\%(8%H o 6V+rl  f`  +rl   +rl  +rl  `x`|`ǀ E2|x6 krprsjl\,tx< |xlX \(,%( %:L%\:`%p $  p d \ B/ )p\6pv$+vl   5G,x4l^. q\ %n@c%H W ) *+-,(t6  t (  t |( ltx$0xptL  Kl@H L)(t5Ll@H L)(p5LK27H $  lH*#D8*#@*'2HD@ ltc,0lpc5\%c %H W) *+,(t6'p (lpn>\%n@c%H W) *+-,(t6.t (k lt  (  (  (  ( $ |( (c ltx 4xtp$HD@L  0N1 #tK*#p*#lK*#h*1x2tplhC #tK*#p*#lK*#h*#dK*#`*1x2 tplhd`Cx(x$tplhd`4 1 =1L*#t*'/tl$ MÀ(=m#(N*#t$dK#`*'(2t`g #tK*#`*#\K*#X*#TK*#P*#LK*#H *#DO*#@(*1x2t`\XTPLHD@$<(x4 t`\XTPLHD@2xt4lt ^P qppzpf qtL /L`1l5L qhIhll`4l`ltlp^0 q\,1x kvpl @HPdFT%h$ dh H%d &P ('lHi%$(F4%0L$ L d0 H%( &$ ,'*R)hdPL0($HPdFT%h$ dh H%d &P ('lHi%$(F4%0L$ L d0 H%( &$ ,'Ql)hdPL0($,l (>,1x c=(l |,xl0 ,hdPL0($Kpv]tHLPFT%dh$ h dd H%P &L ('lH)hdPLcD[0ktD4%LPFT%dh$ h dd H%P &L ,'Q0l)hdPLHl (lH pv tdDk#lW )=SAT`1x6  kvl @HPdFT%h$ dh H%d &P ('lHi%F4%0L$ L d0 H% & ,'*R)hdPL0HPdFT%h$ dh H%d &P ('lHi%F4%0L$ L d0 H% & ,'Ql)hdPL0#lW )=SAT`1x6  c=(l ,xl8 hdPL0            !"#$%&')*+,-./0123456789:;<=>?@ABCrU~~~~~~~~~~~~~~~~~~~Y       %    '  ) # !  hkey sValueName dwReserveddwTypesBufferdwLensKey plKeyReturnlIndexpdwValueNameSize pReservedpTypepData pdwDataSize yQrMenuTableBase iCurrentMenuiIndex sEntryPointsHelpsPlybForInit Y iMenuBar sMenuToAdd sBeforeMenu sMenuToRemovesCascadingMenuToRemovesMenuItemToRemovedlgmMenusMenuItemToAddsBeforeMenuItembSepsCmdNamelHelpID sHelpFilesMenusCascadingMenu sMenuItemlHKEYsValueKeyToAddsValueStringToAddsValueKeyToCheck lControlIDscbName y ( rWizTablesDBNameiActionvResultoFormvTable sErrorKeyab y8 Y'&H 1('X 1((h )Y)x 1(*Cancel CloseModesSubkeylOptionssam phKeyResult lReservedpdwTypepdwValueBuffer pdwValueLenlType lValueLen sKeyToChecksPanel bFirstDisplay Y .blnibtniPriviHelplPrivatebSuccess iBitOffset fAsstIsOn @& 1(A B& iListIndexDD1 iListIndexDD2sDDrCelliIntbBacksEntrysRowChosColChorRange bRowAbsolutebColumnAbsolute 1(Y) X& [& 1(\ a]& I_&(]<jx++#<A7B_˄ F@7B_˄x@7B_˄A7B_˄MEK*m0          rU ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~u 6B_˄  a Qa Q a Q!a y+a*****+I+9a B a***BB**+I+Ya aY**I+ya aY**I+a 9^a*****+I+a _a*****+I+a $D_!a Y1ia AY!Qa D  JKAKiKKK L1LYLLLya p Yy91y  9Y9aa &D(c9ca D!CICCC DQDyDDa (D@qg a "Di[[)a DYYYa i0+ ,,-Q..../A/i/// 090a Q+qyY1Y i lookup ThisWorkbookSheet11Sheet21 DBLookup1 DBLookup2DBLookup2_ColumnLabelDBLookup2_RowLabel DBLookup3 DBLookup4Lookup_Localization Lookup_CommonCLookup4Lookup_MenuAndInitCLookup1CLookup2CLookup3CLookup2_RowLabelCLookup2_ColumnLabel Character DBLookup0FVBA /D:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL  0F 3D:\Program Files\Microsoft Office\Office\EXCEL9.OLBExcel a@0FC:\OFFICE97\EXCEL\stdole2.tlbstdole AP.E .`M D:\WINNT\System32\FM20.DLLMSForms `%aSE FRemoveFromMenu 3D:\WINNT\Profiles\cyu\LOCALS~1\Temp\VBE\MSForms.exd  pL-[DRC:\OFFICE97\EXCEL\MSO97D.DLLOffice A EF4D:\Program Files\Microsoft Office\Office\REFEDIT.DLLRefEdit  Q lR7:˄ 3D:\WINNT\Profiles\cyu\LOCALS~1\Temp\VBE\RefEdit.exd  Q GetIntegerEquivalentGetMenu bSoftware\Microsoft\Office\9.0\Excel\Init Commands \Software\Microsoft\Office\9.0\Excel\Init Menus sd235vbv3 ADVAPI32 RegSetValueExA   cvv3325bsx5 RegDeleteValueA   vb39b33vxz RegOpenKeyAGetEntryPointPath GetHelpPath   ijg381b00d RegCreateKeyA   bbb024nmj3x RegCloseKey  a0 x48ccj38cx RegEnumValueA  P Auto_OpenAuto_Add Auto_Close Auto_RemoveAdd_MenuFFAdd_Init Remove_Menu Remove_Init GetTableEntryGetCascadingMenu GetMenuItemBuildInitMenusStringBuildInitCommandsString AddRegKey  CheckIfOtherWizardsAreRegisteredsGetMenuCaption sGetMenuName FFFS F $Worksheet Menu Bar B50 $Localization TableF>7B_˄F=7B_˄DFWorkbook @F Range Value M11 "Lookup Definition $RandomStringsTable ,DoLookupCommand Wizard_RunWizard_GetCurrentDialogWizard_GetCurrentPanelWizard_SetupButtons Wizard_Action GetNewPanelLookup_Wizard_DefaultActionsGetCoordinatesSetCoordinates LookupString ErrorAlertDD1VerifyRangeSelectionTestOS OpenDependOS CloseDependOSDeleteDummySheetDummySheetExist GreaterThanForceUserFormActivate XX\08H  i H ClearContents MenuDefinition ResizeFA7B_˄ F@7B_˄DF Worksheet VBE6.DLL .  xlWorksheet xlChart Chart Menu Bar FxlWorksheet or xlChart is required. S  F F FControlsTypetemporaryAdd before *   i @ \\ :\ x ` ' '! Asst In WizardN_˄N_˄"7B_˄N_˄#7B_˄ 7B_˄N_˄ȏ[qJ eUserForm$7B_˄ F3Dynamic ' 9'{lFWJO AssistantDD2!-6S` (Next"-?@ ExplanationLBackFinish QuestionLCancelҋB `RangeTB`R7:˄ )Q YL&i e LookupDB1Assistant_Click Back_Click Cancel_Click Finish_Click Next_ClickUserForm_ActivateUserForm_QueryClose d ,,,  BBu3893VZ ACUPCY2213x ADVAPI32.DLL RegOpenKeyExA 1,a,( fdb134xqw RegQueryValueExA 1,!-H dckbu248b 1,hIntializeCharacterCheckBalloonText ShowBalloon ResizeBall$ FfnHelpCallBack AssistantBtnDialogActivateSetupCloseTheBalloonCloseAssistantNextGetWizardAsstBitSetWizardAsstBit 88,!i ̜!184-1604  2+ƏYl| WizDefinitionRows Count 2!Character.fnHelpCallBack" F Heading AlertTable Text ` VLookup / BalloonTypeHeadingText More Labels ShrinkBalloon *!Character.ResizeBallCallback ButtonModeShowName Close fSoftware\Microsoft\Office\9.0\Excel\Microsoft Excel#=h8+3qG?,2qL 717 P ( 7HEnabledBack FinishHide  X String rPROGRAM ERROR: Custom panel for Next that doesn't exist: O xActiveControl Next Back Finish CancelTopLeft;7B_˄ 2Missing Localization Key  MISSING 6Missing Localization Table  Worksheet &MustHaveSheetActive CanNotRunInPlace (CanNotRunInGroupMode Range ,MustHaveRangeSelection win mac DummySheet:7B_˄N_˄7B_˄N_˄<7B_˄ Y@ 9'&7B_˄N_˄'7B_˄7B_˄N_˄RowL2ҋB `(7B_˄ A 9'ColumnL LookupDB2 DD1_Change DD2_Change h3ҋB `DBLookup2_SetupDBLookup2_UpdateListBox DBLookup2_DD1 DBLookup2_DD2  DBLookup2_GetIndexOfValueNotDBLookup2_BackDBLookup2_NextReturnTextOrValue  DBLookup2 A3 *DBLookup2_ColumnLabelColumnTB $DBLookup2_RowLabel RowTBDefaultSetFocus CellsDD1ListIndexDD2 2CanNotHaveNotColAndNotRow Clear NewValueAddItem *ValueNotInColumnLabel DD1ListRows $ValueNotInRowLabel DD2  List DBLookup3 TopRowNotSortedAddressNumberFormatDBLookup4_SetupInitializeLookup4DBLookup4_BackDBLookup4_Next_FinishCleanDBLookup4DependEntryDatatypeL3 IsAmbigNumber IndexFormulaHlookupFormulaVlookupFormula GetRangeName LeftColNotSorted A1:C1 ResultNotValid1 ResultNotValid2Choice1OBChoice1LCaptionChoice21LChoice22LChoice23L $ErrorInChosenLabel - 8*7B_˄ DBLookup4 CopyTheResult "InterrogationMark ClickFinish CopyTheParameter " ClickNextL1L3ResultTB Of EmptyResultCell ValidResultCell 1 MoreThanOneCell ParentFProtectContents ] SheetProtected OneCellNotEmpty TimeValue(" ") DateValue("  X 1 x =INDEX( ,  MATCH( ,) , MATCH( ,)) =HLOOKUP( ,  =VLOOKUP( ,MATCH( '[L1N_˄+7B_˄7B_˄N_˄ColumnTB,7B_˄ X 9'TypeL TDBLookup2_ColumnLabel_OKDBLookup2_ColumnLabel_Cancel.7B_˄N_˄/7B_˄7B_˄N_˄RowTB07B_˄ Z 9'DBLookup2_RowLabel_OKDBLookup2_RowLabel_Cancel27B_˄N_˄37B_˄7B_˄N_˄ ExplanationLBRҋB ` Choice2OB Choice21L47B_˄ 9] 9'Choice1L Choice22L Choice1OB Choice23L p67B_˄N_˄77B_˄7B_˄N_˄87B_˄ !_ 9'ResultTB ` DoUpdateCode AddinLongname AddinAuthor AddinDescription 0'Localization Table'!B51FormulaR1C1 -BuiltInBeginGroup Delete \ ! ,,, 0 IDDBLookup1_SetupDBLookup1_NextColumnsRangeTBReferenceStyle DBLookup1 WeirdRange $MergedCellsInRange (EntireColumnSelected "EntireRowSelected OneRow OneColumn RangeTooLarge TopRowEmpty LeftColumnEmpty ErrorTopRow ErrorLeftColumnDBLookup3_Next (SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@0O7$*\Rffff*1837ff368a4xAttribute VB_Name = "Sheet21" Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2<jx++#<N_˄ FN_˄xN_˄N_˄ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@0O7$*\Rffff*1937ff36974xAttribute VB_Name = "Sheet11" Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2Y0* pHdlookup$@T=j O7 J < stdole>stdole( f%\*\G{00020430-C 0046}#2.0#0#C:\OFFICE97\EXCEL\c2.tlb#OLE Automa0tion^MSForms>SFErms3DD452EE1-E08F-101A-8-02608C@4D0BB4DD:\WINNT\System32\FM20.DLL#MicrosPoft 9 \ Object Library/;C1sA00}#0#Gj00896125@D8-89961D2-8DAF@5345@CX6Profiles\cyu\LOCALS~1\Temp\VBE\DTp.exd`<".E .`M AACOfficDOA@ficBz p12DF8D04C-5BFAhB-BDE51AA@42WMSO97Dh 8.0hZRefEditCR%fEi83u 'Q24517@#01qYWgram FXnj$\REFEDIT-@! ! ControlGBc0t3A37526C-8C9B-1 HB980C718CB8ccHH`@E!FaF"+"ThisWorkbGThHsW}kbok2bH1""E,+""++Sheet11GSeGt1  2!#2221άb `DBL!BL.ufpb2/R-S-(@ e. 2G 2?2W !2_ColumnLab`elG*Al#2P_C`%lmTn&aUe:V 2_ J / i  RTow $ R wj 2p 3_!)3\!3_!c)l|44]|4c6pP:_LocalizaxG&ARa_ oxaizaoinP OB2OOPYo)? }U!` 7> A F5mmonGBw 4m}a)A@/oMm `2  C@=)P92?4Gg]5_MenuAnd`InitG59_TM hnFAdIP2>:?ƕ??4c180kE?1?bQ"2ӱJ]N IIH?34w*l2_\_Cz4\lgm2l `- wtO ttcy|2 q? < QhCha@racter_CQarpUcUe}jf_o C?'b +@ pDBLooku p0GpBLoku@p0 2ELxH 1#(, " (