ࡱ> njuTahomax6(OKuTahomax6(Cancelx6uTahomax6$#Frame1x6=, PUPHelpButtone (74OKButtonex, ?8CancelButtone  !"#$%&'()*+,-./0123456789:;<=>?@BCDEFGIKLMNOPQRSTUVWXYZ[\^_`bdefghijklmnopqrstuvwxyz{|}~ \pJohn Walkenbach Ba= ThisWorkbook= 0)<X@"1hArial1hArial1hArial1hArial"$"#,##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\);_(* "-"??_);_(@_)                + ) , *  `Sheet1Tccz  n  dMbP?_*+%"??U>@7 Sheet1 _`#<b$)OfF`qK#B:#ZmNx`qK#B:#ZmNb$)OfMEThisWorkbook # __SRP_4A__SRP_5 HpSheet1 J([LSS6"<,<<<<< <$<0<4<8<<<N0{00020819-0000-0000-C000-000000000046} `0N@Ti `%h % %"  e e ex L e@t | e@d  eH(`  e@\  e@L < e@H @8 4 @0 ``@XToHC/$*\Rffff*8F42de57fd4"  8p0TH0Tx8p   listindex3  "%$%&!(A@   leftPosition  "%$!A@   topPosition  "%$!*A@  "%$B@,<18o0(Attribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Bef oreCl8(Cancel As Boolean) On Error ResuNext SaveSetting PUPNAME, AP"lis dex" pplication.CommandBars () ntrols(51).LIn3eftPosiL "topTopA;Delet~WGoTo 0 Endi rU 1 Y #4 a  ` 0   4XrU @(`T#nDr_̶#<ӷHk&` FFgIcD;r8s)xFgIcD;r8s)ӷHk&`ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H0h %. %8p@@HH8oHC/$*\Rffff*0s42b05b574xAttribute VB_Name = "She@et1" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU XA2i22242Y2__SRP_8]__SRP_9aBModule1)^UserForm1c`rU @nXL_S _xME ] ]  A@L`  "%$.2 N!P 2!RB 2(Rd 2(R 2%&!T' !V\date picker.pup'!DecreaseMonthGAXjkdAXkox`]]]]](]@ Create the toolbar  "%$B@, "!$!f.2 2 9! Add controls for the Month5&!f.Zp Z Left arrow j9h9l9 DecreaseMonth9TPrevious month9nq(5&!f.6 6 Month label p9h x$v$tmmmm$9r@ x$v9zZ9Click for the current month9n CurrentMonth9Tq`5&!f.Z Z Right arrow j9h9l9 IncreaseMonth9T Next month9nq Add controls for the Year5&!f.Z Z Left arrow Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 Caption = "UserForm1" ClientHeight = 3705 ClientLeft = 45 ClientTop = 330 ClientWidth = 4200 StartUpPosition = 1 'CenterOwner TypeInfoVer = 55 End ThisWorkbookThisWorkbookSheet1Sheet1Modu j9h9l DecreaseYear9T Previous year9n9q85&!f.: : Year label p9h x$|X 9rZ9Click for the current year9n CurrentYear9Tq5&!f.Z Z Right arrow j9h9l9 IncreaseYear9T Next year9nq # Add the Day of the week text   cbUseMonday$~'d d  DayName2M$~+`  DayName3T$~+`  DayName4W$~+`  DayName5T$~+`  DayName6F$~+`  DayName7S$~+`  DayName1S$~+`d`  DayName1S$~+`  DayName2M$~+`  DayName3T$~+`  DayName4W$~+`  DayName5T$~+`  DayName6F$~+`  DayName7S$~+`k \5&!f.Z Z p9h9 \$`9r"Click here to insert today's date.9n CurrentDate9Tqh \ Add the Day buttons \* (6 rows of 7)5&!f.Z Z p9h9 InsertDate9Tq \% Add the day numbers to the buttonsA Add Help button5&!f.Z Z j9h99l InsertDate9TCustomize / Help9nCustomizeTheDisplay9Tq" Add the number format Drop-Down l5&%f.<  "%'^ < mmm d, yyyyC@m ^d ^yyC@m ^d ^yyyyC@mm ^dd ^yyC@mm ^dd ^yyyyC@ mmmm dd, yyyyC@dddd, mmmm d,  D_xME (<4<8<>$P$ X$h$ "p$ $x$$$$ $$$$$$$% % 0%x]$Power Utility Pak]$PUP Date Pickert!]0]P]p]]] yyyyC@ddd, mmm d, yyyyC@mmm-dd-yy (ddd)C@m ^dC@mmm dC@ d mmm, yyyyC@d ^m ^yyC@d ^m ^yyyyC@dd ^mm ^yyC@dd ^mm ^yyyyC@ dd mmmm yyyyC@dddd, d mmmm, yyyyC@ddd, d mmm, yyyyC@dd-mmm-yy (ddd)C@d ^mC@d mmmC@ yyyy-mm-ddC@ yyyy.mm.ddC@mmm-yyC@mmm-yyyyC@mm ^yyyyC@mC@mmC@mmmC@mmmmC@dC@dddC@ddddC@yyC@yyyyC@(serial number)C@ FormatChange9TSelect the format for the date9nv9Power Utility Pak  listindex$~9(q9This forces the row breaks    9e   leftPosition2$~9!   topPosition2$~9*9RqPoHX( Inserts the date into the active cell1 Executed when any Day number button is clicked]  "%$.2P 2%&.6 2%&.:9 2%&.< Insert the dateP "% 2%&!r' :!r 6!z $t<G  'j^&Accommodate Excel's 1900 leap year bug  Save for undo .BP5'F5'H) Enter the date and format the cell :!r 6!z $t9 <!d(serial number)G9cG <!d9jq - Widen the column if the date isn't visible !d*[#][#]*G !B@j0 Move to next cell if user has that option set "! "! KTF %B@ KTF %B@ KTF %B@ KTF %B@n k x Undo Date PickerUndoDatePicker "B@|@ 8 o0 3 Executed when the Formatting ComboBox is changedp] ]09  "%$%&.< $Range  !!$.e ! G "(j   $e <!d(serial number)G (cG <!d (j} k ek ! G "(j  o HA Display the current month. Executed by clicking the Month name  "%$%&.6  x$v$tmmmm$ 6(r$ x$v 6(zAo3 Next month. Executed by clicking the Right arrow"$]  "%$%&.6 6!zX 'p  'Ak  $tmmmm$ 6(r X 6(zAo6 Previous month. Executed by clicking the Left arrow]   "%$%&.6$ 6!zX '  'Ak( $tmmmm$ 6(r X 6(z!Ao8]xRemember current settings  "%$%&!r'  "%$%&!z'  "%$%&!r'9  "%$%&!d'Remember the position$  "%$!'  "%$!*' B@e  "%$ 7&(z 7&(r 7&(re 97&(d 9 9*q Ao Insert the dateOn Error GoTo NoCanDo9  "%$%&.<e  Save for undon .B5'F5'H) Enter the date and format the cell Z9 <!d(serial number)G9cG <!d9jq- Widen the column if the date isn't visible !d*[#][#]*G !B@j0 Move to next cell if user has that option set" "! "!"$ KTF %B@ KTF %B@P KTF %B@e KTF %B@$nkxpUndo Date PickerUndoDatePicker "B@|809 General error handler. For example, sheet is protected Problem....   N!   - ErrorA@($oH: Display the current year. Executed by clicking the Year  "%$%&.: x$|X :(r Ao2 Next year. Executed by clicking the Right arrow  "%$%&.:e :!rX :(rAo5 Previous year. Executed by clicking the Left arrow   "%$%&.: :!r1900G|j :!rX :(rAo* Updates the captions on the Day buttons]H]`x]]  "%$.2 2%&.6 2%&.:   cbUseMonday$~'d2 Calculate the day of the week for the first day :!r 6!z$t$' dG  'j G'j, Calculate the number of days in the month :!r 6!z $t $' 2" Looop thru the day controls'1st Day button is Control #14' \* \  G'j   7& 9r9 :!r 6!z $t Long Date$9nq  'd 7& 9r99nq  'kxdp 7& 9r99nq8k0  ' \qoA1pup6.xla$% %DUtilityG|j B@Bo Undo the last date enteredX B5!B@5B@C@ F9 H9q| Can't undo.  A@oAttribute VB_Name = "Module1" Option Explicit " Pub4 Const PUPNAME As SngPower Utility PakrAPrUP DaPicker7DimnmBarInsert!qCommand'TheMon`thBtn"B utton (YearDDFor0mats ',boBox(oggle'UndoCell+RangeValueVarianL Sub TEToolbar()1CheckA(ddIOxrror ResuNexSetO^P= Apa.GXs(tIf Err.Numbဃ= 0 gJu.Visi8bleL A = FalsDOA EJTru %trols(1) .OnAc<>@ "'" &+isWorkboo@k.Path"\dp±.pup'!Decreasç"8 CaCteih"End If4U I uGoTo 0 ň %C !h>biNLongsCaDSPayAbbrev(b1@R 7)LhabeBaSˆG S@tartOnzdayBYeaH ' c thxe tC][=X.Delet$CN)_cIc.mcWiCYC .Di c P fuBa7= `>n"V!'Left a~w!!.Styo= hmsoCIlF aceId@13"2LWid= ~7f a `t8ipT`bGious mY' !)'9"* lQ #Ca_`(Sel(1, (Now), 1`"m"$ b Tagl ,9ze_'CkEcurrent.)ChW(s( (Rxigh/(/(/(.((3 ./(1 [ (InX ,(p'Y'H:he whs :} y:/9seQ (.9v9ny : `8!:$[s'b: n:@.:Cg(99 /7/7/7(7d/d"'7$$7 77, &6[qpD ofweek t&;= Get8ting( , w, "cLbUB",å * -1(!0;+1 ŏ)`/)q2"M`N2ןe3T[3y1 4W45?  56F? 5 67S0"ME#ȷ1   1 Z?! r e% DayAbbrev(3) = GetSetting(PUPNAME, AP "Name3", "T") 4&4IWI5&I56&I6$FI7$7$S$End IfAFor i1` To 7 Btn.Controls.Add With .StylemsoButtonCaptionWid= 20 @Gxi~TooltipText "Click here to insert@day's @date."POnAcA)BurrentD Q>NAi  '&M theA4 bCs a42 '(6 rows of 7 :?e?e3.IIVnIF"2 numbers5A%$Call Up!7A',A Help++^&9oXWIcW.W.FaceIdH984G ' _'Yustomizpe / Q CeTheDisplayGW&-/ format Drop-Dowu(DDUs (Type:=`}dComboB$oxWDSAp praAl.Internbal(xlAHSeparator4F)>Item "mmm d, y#!g" & & "dGy#/Ym CU =d, `##%(mm-dd-yy (`)--6/dCd O@h4FH /'9_A#3h /S'z"* IOJd`mp-@"?@{?X?4  $/(.mm.dd/$ mS'm?6?d)O(ialyn>OSaChange}l Seleche?f g‘}v118&ListIndex@eX"Power Utility Pak@lPiQP1(fV~160 'This ceK@ ak.ProtPЮ arNoDoP+ EResQ}{Lef!l@Posiu 50 .Top{a"top0VisibTrue 7Sub ` (0qa0aaжve cellExecuted when a\nyBԉC cѽeDim ay As LoFormatNumberyEnter the and2k_%DvSerial(YqBtn.Caption, Month Tag)LIf DDEs.TexP"(s) nT)"#n .[="" Else '5Ef x Widenvcolumn if}isn't visibleSSLike "*h[#]*( Cs.AutoF$itMowto\ nA:Tu; Xhas@ hoN se [ppl(icaT.AAfjReturnF( Select( CaEAW Di>r hGA xl Down:H.Off#(1, 0).8}ToRightQ0, 1^Lef-]Up-U-KC2 IfOn Err@GoTo N0CIUOnk "Aa Picker",cA$Exit Sub NoCanD0o: A   caChang e(eExecuted whVting ComboBox i(s cd Di(m U@KRA As , bCResume NSnFmt!Str@#AFmq #`mBars(APPNAME).C rols(57@[TypeName(C1@R)A{Bcj [h= I!sY, .Parent.@ d ! &#unt >@ @n Scre0enUp A-= Fa '0 Eachc*In-g IsA(/)v!k!!sq  _?&ピ&Tru$Nk _! Cur6_Displ m.Dcby ck4 n@KU;@+VV2DG5n{p8(p Gr(Now)aO@mz".`q0 Call r's^BIn)@^s`aB{Y aMwaBm=4gerSd==m CP d) + 1c%Q13,1B#!)5Q)ݿnm/) Str(mO*U+De Previous?**Qo/ Z/heoe //t//g\) C$0 12#&e/!///2S2C/Y/2DstomizepDD !/MFM, YpLPosRpoIndexs'Reme cTH`Ax:q5pp2qC  U 5EOOG7)rsSYposi!Q1T8Top!~@1.xShoNA*~E4?G`P$$Arpmtx(BC= qPC!RAoLkLwPAeIntS'[|Ĭc憰OJOJCJvC Q 0t@!b ZCQҶ and format the cell .Value = DateXIf DDFs.TextB"(serial number)" Then .NXL" Else. OjEWith  'WidQolumn ifd isn't visi blActiveCLike "*[#]*C,s.A@utoFit;Move to nt=/=< = GettPC8(PUI6JUcb8Use VFay* @bI0c\ul1}qAos~wXeekf = W`p(\S27n,:%.Tagn.Kn"=* 07 e s in m1'C I(1y(O rFN AF a1 wq,m*&C 1Looopru2 y c A0= 14 '1sty6oD #143g2=zsie1 |420i >a+d8:W5(<@er4)ya %.Ena`d8Tru9.TDtip4p?#?#1'$0w)0;qQ" a H ~wo2Do?Xo  x" pBI?"O?q?nRh?%1Q??q7?' ;+O v#GwiG PrivdCheckAd8dIn1 [ClojWorkbooks("pup6.xla")$.SQs(Range("A1")9"UtiliOr " Then0AHMsg "@ day of the week characters m; be a sing@_digit.",@ vbInfation, AP`PNAME W8ith)  .SelStart/v0Ig@P t FocusEn d &KExitqG IfNa iCSaveSettG PU@B, "cb8Mon@XLH.Value * -1"DayA1@Ă1)22d"$33Z4455k6677Unload`Z/Call “eToolbar F  i_Initializexstdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation^DOfficDO>fic5DD2DF8D04C-5BFA-101B -BDE5DAAB42DProgram Files\CommonMicrosoft Shared\@10\MSO.DLL# 10.0 Object Li`braryKMSFor ms>SFrms$3D452EE1-E0D8F`A-8-02608C4D0BB4RFM260& ^L&/;!1iIpAaHp00}#7@p#G 50 AB2E8696D-4847FE-B221-040B87292B4F6DOCUME~1\jwalk\LOCALSTemp\VBE@aB6.exdHbU;!.E .`M Ј_ºThisWorkbookGTh@sWmkbok* 2 HB1ފBE,!`"B+bqSheetT1G Se_t1 !u2  ̶ UoduleUouA2Z D! User8cerfe3a2/Y )/(@ -bWorkbook| _EvaluateWorkbrU~~~~~~~~~m   Cancel Y'& ('ay  *\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{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINNT\System32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{B2E8696D-4847-48FE-B221-040B87292B4F}#2.0#0#C:\DOCUME~1\jwalk\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M   oHC/_ThisWorkbook8F42de57fdThisWorkbook` Sheet10s42b05b57/ Sheet1̶Module12r43e8486f0Module10DUserForm12s43e8486fUserForm1HY h0H8V㘸F mw}/oEt&wСKܼ SG.0?_IfThenWithExcel+VBAWin16~Win32MacVBA6# DatePickerstdole`OfficeuMSFormsC ThisWorkbook| _EvaluateWorkbook_BeforeCloseCancel SaveSettingPUPNAMEӆAPPNAMEKp Application* CommandBars ControlsK ListIndexQTop5DeletexSheet1Module1bComBarInsertDatev CommandBar TheMonthBtnnCommandBarButton9 TheYearBtns1 DDFormats`#CommandBarComboBox ToggleBtnUndoCellyRange  UndoValue  UndoFormat$2ToggleDatePickerToolbarn CheckAddInErroNumber-VisibleOnActionPath2 CreateToolbar Btnzi`DS\ DayAbbrevD DayNameLabel{> StartOnMondayyAddrStylep msoButtonIconJFaceIdi TooltipTextb?msoButtonCaptionCaptionx DateSerialUMonthNow%Tag&Year6n GetSetting UpdateDaysmsoControlComboBox> InternationalxlDateSeparatordIAddItem  ProtectionmsoBarNoChangeDock^msoBarNoResizewmsoBarNoCustomizev InsertDate|TheDay)NoCanDo=`Caller= ActiveCellValueK NumberFormatRColumnsp9AutoFit& MoveAfterReturnMoveAfterReturnDirectionxlDown0DOffsetActivate| xlT (serial number) FormatChange <Select the format for the date listindex leftPosition topPosition  " X Undo Date Picker  ! x        )     Long Date    (    8 *[#][#]*FF!-6S` UndoDatePicker Range ParentUsedRange  O X  - x 1900TextzwF)0я`n MG;v'ꂲB>PA~!F(VHh=y*ȏ[qJ eUserFormijJP#Ww F3Dynamic ' 9'"-?@Label1 #Label2Label3Label4Label5Label6Label7?F`Frame1{lFWJO HelpButtonOKButton CancelButtonBҋB ` cbUseMondayҋB `TextBox1TextBox2TextBox3TextBox4TextBox5TextBox6TextBox7OKButton_ClickUserForm_InitializeCancelButton_ClickHelpButton_Click   OptionsCҋB `ҋB ` TextBoxpj).`ǏYl| lThe day of the week characters must be a single digit.SelStartSelLengthSetFocus#=h8+3qG?,2qL..  S    .( Problem....    - Error  b 8ListIndexActivate Can't undo. (pup6.xla!ShowPUPHelpFӷHk&` FFgIcD;r8s)DF WorksheetmiGHH! )+O /C:\DOCUME~1\jwalk\LOCALS~1\Temp\VBE\MSForms.exd 3)3?}DuBJdDlH@df ; BA v~INO+DBU KqIFZ^=7 4 9'h PUPHelpButtonPUPHelpButton_ClickKIncreaseYear Next year cbUseMonday d mmm DayName2 M K*yrU~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~ ~~~~q 12hķ8*DjE;w    ) ThisWorkbookSheet1Module1 UserForm1 DatePickerF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Q y0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Iq@0FC:\WINNT\System32\stdole2.tlbstdole F YPL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice a`.E .`M C:\WINNT\System32\FM20.DLLMSForms pp3܆~D:\V .C:\DOCUME~1\John\LOCALS~1\Temp\VBE\MSForms.exd Y "Power Utility Pak PUP Date PickerToggleDatePickerToolbar CreateToolbar InsertDate FormatChange CurrentMonth IncreaseMonth DecreaseMonthCustomizeTheDisplay CurrentDate CurrentYear IncreaseYear DecreaseYear UpdateDays CheckAddInUndoDatePicker ,,0 $(FF F FfĤIx8< F F 'Fb$)OfF`qK#B:#ZmNDFWorkbookWorkbook_BeforeClose @ >\date picker.pup'!DecreaseMonth (VBE6.DLL   8 A1 pup6.xlaFF Range Utility F DecreaseMonth Previous month mmmm 6Click for the current month CurrentMonth IncreaseMonth Next month DecreaseYear Previous year 4Click for the current year CurrentYear IncreaseYear Next year cbUseMonday d mmm DayName2 M DayName3 T DayName4 W DayName5 DayName6 F DayName7 S DayName1 DClick here to insert today's date. CurrentDate InsertDate Customize / Help &CustomizeTheDisplay  F mmm d, yyyy m d yy yyyy mm dd mmmm dd, yyyy $dddd, mmmm d, yyyy ddd, mmm d, yyyy mmm-dd-yy (ddd) mmm d d mmm, yyyy dd mmmm yyyy $dddd, d mmmm, yyyy ddd, d mmm, yyyy dd-mmm-yy (ddd) yyyy-mm-dd yyyy.mm.dd mmm-yy mmm-yyyy mmm ddd dddd VBFrame$PROJECTwmtPROJECTSummaryInformation(le1Module1UserForm1UserForm1ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=Module1 BaseClass=UserForm1 HelpFile="" Name="DatePicker" HelpContextID="0" VersionCompatible32="393222000" CMG="6B69C7D389D789D78DDB8DDB" DPB="31339DC2BAC2BA3D4683EA6518C41232A00023E623FA450A68F89E018BFAE5B803B14FCB" GC="F7F55B67E7EBACECACECAC" [Host Extender Info] &H00000UserForm1ށ3Vށ3Vf7oi17 n``ށ3Vށ3Vl JCh) !"#$%&'(*+,-./0123456789:;<=>?@ABDEFGHIOiLMNPoRSTUVWXKZ[\]^`abcdefYvskgtpmqruwfoTCompObjpCompObjabedded ObjectForms.Frame.19q(SSunday:5Tahoma:@H,4S< 5Tahoma@H,4S< 5Tahoma@H,4M< 5Tahoma(MMonday:5Tahoma:@H,4T< 5Tahoma(TTuesday5Tahomay@H,4Root Entry FЦ3VBWorkbook_VBA_PROJECT_CUR"ځ3V<3VVBAځ3Vށ3V( ((8 (1)H ()X ( *h 2x 4&M$  7}R KQDBTahoma( tcbUseMondayTF'UF0< Use Monday as the first day of the week`5Tahoma n``Microsoft Forms 2.0 FrameEmW< 5Tahoma ( WWednesday:i5Tahoma@H,4T< 5Tahoma ( hThursday::i5Tahoma@H,4F< 5Tahoma(FFriday:5Tahoma: ( sSaturday::i5Tahoma:LH  }1Day of the week characters:R KQDBTahomaP(2<Label1:#$< TextBox7}$<TextBox1$<TextBox2+(2<Label2x2#m$<TextBox3(2<Label3x3#$ <TextBox4 ( 2@Label4x4#Y $ < TextBox5 ( 2@Label5x5# $ < TextBox6(2< Label6x6#E(2@ Label7x6#aR KQltBM6(001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=198, 198, 1234, 706, C Sheet1=0, 0, 0, 0, C Module1=0, 0, 0, 0, C UserForm1=0, 0, 0, 0, C, 140, 140, 1240, 690, C Oh+'0x hp 4@ X dpPower Utility Pak v6PUP v6 Support FileJ-Walk & Associates  Version 6.081999-2005 J-Walk & Associates. All Rights Reserved.John Walkenbach6.1Microsoft Excel@)j@3V՜.+,0 X`|  Excel Add-In ToolsJWalk & Associates  Sheet1  WorksheetsDocumentSummaryInformation8(CompObjm F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q