ࡱ>   <.;"#$%&'()*+,-/0123456789:=B>?@AEFGHIJKLMNOPQRSTRoot Entry F q*Workbook(_VBA_PROJECT_CUR" #q$qVBA #q #q (.`\pblehan Ba= ThisWorkbook=.x-8X@"1Arial1Arial1Arial1Arial1QTahoma1( Arial Narrow1( Arial Narrow1( Arial Narrow1(@ Arial Narrow"$"#,##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\);_(* "-"??_);_(@_)$[$-409]dddd\,\ mmmm\ dd\,\ yyyy m/d/yy;@                + ) , *    L  |  ,  |ww "|ww  lww  lww  ,ww  @ 7 Sheet1ggh'h Module1 ! __SRP_2__SRP_3oThisWorkbook n  !"#$%&()*+,-./0123456789:;<=>?@ABCEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuwxyz{|}~oRightInputBox("Form has beDaltered; whichk@crof you wa\nt"krNl?", "Choose a #"'&@DM'""EEn d@':canceled dialog box6!Len() > 2V8@JA7re than charac@=Fs$MsgF "alidAFIA @*,IfC)= 1#) S8ct CaIAsc4E 65 To 90'checcapita:lt5 Worksheets("Measurem2s-Weu").Range + "1' !97122 lower-cyleVEl@&Anon-alpha <+"s?=(ed(= = ~ =+#A #:LC+, 1) 'p doubl,e-C&Nns, must^th$;s PGBBH P MM 'N_?K8K*:GG!(HHbopo_=tBRM+"EKtE9;/%LLOD8"/a + CHv0]/Mr ~/Me !m/ !.Activa@ 'ofoҌs#oiuAAe.Ere~.,.IShifКxlTwTq2'xEyht) y@p#QAAddres=pY1`// 2!A 1*4vValusQ`e$ucurrae0d 33q3 d19/ iv# u@laR1C1"=SUM(R8C:R15C)" 'cre mr0@toЊ'WimBorders(xlE8dgesp .LineSty"lxlCinhuouX.S0 xlHairl5.$orIndex481(a  Topa ne@D1( Bottom/ / / = //s/ / 4B3    "OJ---20---R[-1]CA-" -2r0ff over0evi)S/%.11.t.2.2.pT.7ɱle = xlContinuous .Weight|Hai rlinetColorIndex B482End 0With Selection.Borders(xlEdgeBottom))rD.L`StywRwHWorksheets("Measurements-").Range(newcolumn +p "21 AveCell.FormulaR1C1"=R1P9C3-"'create f total loss dZoLeftJTop##Uܿ`9g[ [4[[(r5c/(r24c2*)*705)a]-]to calcc_BMIC=\HB__thV\____=οʣ/߿n\ \Z5F\a'move s䡰top (of   Sub rU~| 0  krU $`an I#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}x Zh@%@@" ophѰAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Open() End $ #Sheet1 Module2'*_VBA_PROJECTDj dirvFxME(6 << < `@h Macro to insert new monthly datauF 14%PxpQbC$*\Rffff*054416d81f "  b bx0h<*   (*8 6h. 6& *0 `hpVx *  6( `6p*   .   86H 6*   & *8 hpxP * 0HPh p66@8PX`hp   6 VP            0 8 @ H P h p x  6 D   ( 0 8 @ X ` h p x          6 J p                0 8 @ H `P   p Month Loss %.(9look for Month Loss column to insert new data to the leftz>C Rif Month Loss column is not found, prompt user to identify location for new columnfForm has been altered; which column is to the right of where you want to insert your new monthly data?Choose a Column$"'  Ggj%user canceled dialog box  %'user has entered more than 2 charactersInvalid column has been enteredA@$gk  $&AZLTcheck for capital letter 1 Measurements-Weight$(%*B@HazLTcheck for lower-case letter 1 Measurements-Weight$(%*B@HScheck for non-alpha characterInvalid column has been enteredA@$gnd $$&09For double-letter column names, must both letters enteredAZLTcheck for capital letter $,$&AZLT 1 Measurements-Weight$(%*B@HazLT 1 Measurements-Weight$(%*B@HSPInvalid column has been enteredA@$gnazLTcheck for lower-case letter $,$&AZLT 1 Measurements-Weight$(%*B@HazLT 1 Measurements-Weight$(%*B@HS0Invalid column has been enteredA@$gnScheck for non-alpha character 0Invalid column has been enteredA@$ce on gnkdx month loss %B@./(If Month Loss column is found, select itk  0!2B@Hon :8 4B@6+insert new columnolicy. ht 4!>$,'<d 4!>$,'<k <4 $*B@H Z 0(@+#insert current date into new column <19 Measurements-Weight$(%*B@H C=SUM(R8C:R15C) 0(B1 create formula for monthly total F 4%D0a.; J9H N9L09Pq R 4%DiV J9H N9L09PqX T 4%D5 J9H N9L09Pq  V 4%DpFhd J9H N9L09Pq <20 Measurements-Weight$(%*B@HF=R[-1]C[-1]-R[-1]C 0(B21create formula for difference over previous monthE F 4%DPE J9H N9L09Pq  R 4%D J9H N9L09Pq T 4%D J9H N9L09Pq V 4%D J9H N9L09Pqx <21 Measurements-Weight$(%*B@H =R19C3-R19C 0(B/%create formula for total loss to date F 4%DHyF J9H N9L09Pq R 4%D Da J9H N9L09Pq T 4%Dnc. J9H N9L09PqP V 4%DE J9H N9L09Pq <24 Measurements-Weight$(%*B@H@=(r5c/(r24c2*r24c2)*705) 0(B:create formula to calculate BMI 2E F 4%DTE J9H N9L09PqX R 4%D J9H N9L09Pq  T 4%Dsin J9H N9L09Pq V 4%DA J9H N9L09Pq <5 Measurements-Weight$(%*B@HC#move selection to top of new columnoH@(Attribute VB_Name = "Module1" Sub NewMonth()  T.rDescriptionacro to insert new mly` dataP0rocD SInvoke_FuncS \n14On Error ResuNeDxtet *Cells.Find(what:= Loss") 'look f@Ղ coplumnYU t@he lef2If2Is Nothing Then 'if *@is not9und, prom0pt u7dentify loContinuousAWeightzxlHairlWColor Index48 End CHTopGdeeHBottom$>PHR_$g$o am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\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:\WINDOWS\System32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL#Microsoft Office 10.0 Object Library  QbCModule1054416d81fModule1ThisWorkbook024416d81fYThisWorkbookI Sheet1034416d81f] Sheet1$ 0%Module2044416d81f^Module2GHh0H9`Ҋ9`Ҋ9`Ҋ9`Ҋ56+Excel+VBAWin16~Win32MacVBA6# VBAProjectstdole`OfficeuModule1b _EvaluateNewMonthY8cZCellsFindnwhatC ColumntoRightInputBox MsgBoxRAsc!u WorksheetsRange Right Activate| ActiveCell EntireColumn SelectionZInsertrShift xlToRight| newcolumnWAddressValueK FormulaR1C1SBordersC" xlEdgeLeftL LineStylew xlContinuous[Weight1 xlHairline4 ColorIndex xlEdgeToph xlEdgeBottom xlEdgeRight%v ThisWorkbook| Workbook_OpenSheet1Module2cMacro1NxlDiagonalDownJ@xlNone xlDiagonalUpWorkbookk Worksheetl  Y ]_HB0* pHd VBAProject4@j = r QbC J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\Syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\@10\MSO.DLL# 10.0 Ob Libra,ryK Module1Gdu1 2 (HB1pXB,BT!B+BqThisWorkb ookG TA@sisW rPkboM 2 $$ I"$SheeVtBAS@#eutvAG2B#I%Y$ G^2O^2J^2O^2O)M^GI^B<__SRP_0 __SRP_1PROJECTwmnPROJECTK*mrU~~~~~~o 9`Ҋ  a p  )A!) ) VBAProjectModule1 ThisWorkbookSheet1Module2F@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA Y 0F 3D:\Program Files\Microsoft Office\Office\EXCEL9.OLBExcel y@0FC:\WINDOWS\System32\stdole2.tlbstdole PL-[DR?C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLLOffice a`NewMonth HrU   Macro to insert new monthly data 14gModule1Module1ThisWorkbookThisWorkbookSheet1Sheet1Module2Module2ID="{0C6BEE8C-D567-4600-8C83-4EB2C5A01BDA}" Module=Module1 Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Module=Module2 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="A1A3A1A7A5A7A5A7A5A7A5" DPB="424042E1E2E2E2E2E2" GC="E3E1E340854185417A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=-113, 20, 673, 625, C ThisWorkbook=88, 116, 864, 660, Sheet1=66, 87, 842, 631, Z Module2=44, 58, 936, 604, C  Oh+'0 hp| sssssblehanMicrosoft Excel@@L@G#q FMicrosoft Excel WorksheetBiff8Excel.Sheet.89qSummaryInformation(0DocumentSummaryInformation8D!CompObjf 66Microsoft CorporationTC Measurements-Weight  WorksheetsA ՜.+,D՜.+,D!! hp|  66Microsoft CorporationTC Measurements-Weight  WorksheetsA,0 *H 01 0 +0O +7A0?0 +71bb;=8}00 +Õ勞78}M00-GߍRFCmH 10  *H 01 0 UZA10U Western Cape10U Durbanville10 U Thawte10U Thawte Certification10UThawte Timestamping CA0 031204000000Z 131203235959Z0S1 0 UUS10U VeriSign, Inc.1+0)U"VeriSign Time Stamping Services CA0"0  *H 0 ʲ }uNgadڻ30X~k6xw~o< hlʽR-H=]_/kLR`@~ ?Ǵ߇_zj1.G 1s W-x43h/Š*Ë!fXWou<&]'x1"ijGC_^|}bM "Vͮv M٠h;004+(0&0$+0http://ocsp.verisign.com0U00AU:0806420http://crl.verisign.com/ThawteTimestampingCA.crl0U% 0 +0U0$U0010U TSA2048-1-530  *H JkXD1y+LͰXn)^ʓR G'/8ɓN"b?7!Op18UN$ҩ'NzaA*^ݻ+>W~ +;R8'?J00 +)2 ^v0  *H 0S1 0 UUS10U VeriSign, Inc.1+0)U"VeriSign Time Stamping Services CA0 031204000000Z 081203235959Z0W1 0 UUS10U VeriSign, Inc.1/0-U&VeriSign Time Stamping Services Signer0"0  *H 0 P(HhzDfu]~ĸc&=C|8%Usu'iN \ *UV!a3kݣ7e S\|f5_EvNS \0"7LB U?R,z򢪍5]j=k㿖`@DQn*(P{J 0kX@( ~|vqiOG05!b<+َ*{\{❥o<00<<>c@0  *H 0p1+0)U "Copyright (c) 1997 Microsoft Corp.10U Microsoft Corporation1!0UMicrosoft Root Authority0 970110070000Z 201231070000Z0p1+0)U "Copyright (c) 1997 Microsoft Corp.10U Microsoft Corporation1!0UMicrosoft Root Authority0"0  *H 0 p;N(x^0ꢩ%_L >|Q`2kBdyvT뜆fkzb#<Ŀ-fh&:, X&F >8,(9IBlUa|`-wL陴d;P1$+=c`Xe7RӿUE:TNzmtN̖ (!W`i7Kc@0  *H  5$w\`2 >:!W,Gb;;Z6Ti$m?̪|1=pjOiCZ Ob{+7%-e%cT!RnC2gl QRǽ0 1 )M[WeIRT(~ū7,zwvj?6A5jj5EZ38nM b T?FUp:uҠ00j O "}ly~0  *H 0p1+0)U "Copyright (c) 1997 Microsoft Corp.10U Microsoft Corporation1!0UMicrosoft Root Authority0 020523080000Z 110925080000Z01 0 UUS10U Washington10URedmond10U Microsoft Corporation1+0)U "Copyright (c) 2000 Microsoft Corp.1#0!UMicrosoft Code Signing PCA0 0  *H  0 >Pz$%v!*VNʜ5y-ĨcɷֱRƽŨkSPdԂh@xD8NcQ=7c#;q@4GkF's"BQRӣ?qm!D_Bəd 4D{/ߛ!X1AU8~XYy%*/?8x>Bh~"hJxDRGOg{ }q<+f-+4He<&Ro*0&0U% 0 +0U0[pir#Q~Mˡr0p1+0)U "Copyright (c) 1997 Microsoft Corp.10U Microsoft Corporation1!0UMicrosoft Root Authority<<>c@0 +70U%+K]rT*S0 +7  SubCA0 UF0U00  *H dJti'ZS'сsκꓗ܏:.tt;@Q_<2OY(rq/5B/b11BO8pA8` < +VKJ"oD+pN,:q2X5Rۑ@o)Bp}loۜ^,_³{;St*g'u@ Fr6mkfS5jrE]f,a Yf ;|00ɠ aXZ0  *H 01 0 UUS10U Washington10URedmond10U Microsoft Corporation1+0)U "Copyright (c) 2000 Microsoft Corp.1#0!UMicrosoft Code Signing PCA0 050105232019Z 060405233019Z0t1 0 UUS10U Washington10URedmond10U Microsoft Corporation10UMicrosoft Corporation0"0  *H 0 8'^̪:;b1FFӳŸLg(C;uyj3azy]hpw/u/JA||ˇCt@WXՒ$qIU|e8#>)lƞp[}7gw ΅N45S2W(l@ I67I*k̎ֆFzJESx/.5kL$iin>LAb]~\L'1kVLq=*qM@0<0U0U4wh424c10U% 0 +0U#0%+K]rT*Str0p1+0)U "Copyright (c) 1997 Microsoft Corp.10U Microsoft Corporation1!0UMicrosoft Root Authorityj O "}ly~0JUC0A0?=;9http://crl.microsoft.com/pki/crl/products/CodeSignPCA.crl0  *H   &t<J'GrQKBQ#;e-LP8W^:sO3-%;YЮ R dwwu6 l3`/m)۵k"@+2Pƶ6w)T>~qYʄ/D"!H cro,+:YJ!埩bPuv_ؠ~W҉}C10001 0 UUS10U Washington10URedmond10U Microsoft Corporation1+0)U "Copyright (c) 2000 Microsoft Corp.1#0!UMicrosoft Code Signing PCA aXZ0 +0 *H  1  +70 +7 10  +70# *H  1z ]qut 0N +7 1@0>Weight tracker\\Awsome\public\UA\matthos0  *H ?+.wVudA-Ae{+ֲL&Joѽ7{_(lu׊Bд s"dEbTjGaවUh"WgV6dKHLdH4g2:<~@MO816cRMt>uZrIQ8 ,юnj mDN V)w'_QH Gڰ^L/FOEey7ˡ0 *H  100g0S1 0 UUS10U VeriSign, Inc.1+0)U"VeriSign Time Stamping Services CA +)2 ^v0 *H Y0 *H  1  *H 0 *H  1 050218203440Z0 *H  1_8M< &l0  *H B\ X\naI>C u4"\m?Pl3bW**&Mk)̡0oҘB gOCKA0-ң_7z.2UĴ׳ Bqų\y/ovZal2iR\vk^ H+B{ :} 0eE7zB4uU vya$ %ZƲ"GVԜ@2Agl2&ʿ믡*ECERT 00ɠ aXZ0  *H 01 0 UUS10U Washington10URedmond10U Microsoft Corporation1+0)U "Copyright (c) 2000 Microsoft Corp.1#0!UMicrosoft Code Signing PCA0 050105232019Z 060405233019Z0t1 0 UUS10U Washington10URedmond10U Microsoft Corporation10UMicrosoft Corporation0"0  *H 0 8'^̪:;b1FFӳŸLg(C;uyj3azy]hpw/u/JA||ˇCt@WXՒ$qIU|e8#>)lƞp[}7gw ΅N45S2W(l@ I67I*k̎ֆFzJESx/.5kL$iin>LAb]~\L'1kVLq=*qM@0<0U0U4wh424c10U% 0 +0U#0%+K]rT*Str0p1+0)U "Copyright (c) 1997 Microsoft Corp.10U Microsoft Corporation1!0UMicrosoft Root Authorityj O "}ly~0JUC0A0?=;9http://crl.microsoft.com/pki/crl/products/CodeSignPCA.crl0  *H   &t<J'GrQKBQ#;e-LP8W^:sO3-%;YЮ R dwwu6 l3`/m)۵k"@+2Pƶ6w)T>~qYʄ/D"!H cro,+:YJ!埩bPuv_ؠ~W҉}CX 8@ _TemplateIDTC011684031033