ࡱ>  bdx  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~Root Entry F6cF-RWorkbook)\_VBA_PROJECT_CUR"'&PD-F-VBAKD-F- \pacpinho1 Ba= *(,)+ ThisWorkbook=h\:#8X@"1+Arial1+Arial1+Arial1+Arial1+Arial1+Arial1+Arial1 +Arial1+Arial1,+Lucida Console1 +Arial1+Arial1 +Arial1+Arial1. +Times New Roman1 +Arial1 +Arial1+Arial1+Arial1 +Arial1+Arial1+Arial19+Arial1 +Arial1 +Arial1 +Arial1+Arial1 +Arial1+Arial3#,##0\ " ";\-#,##0\ " "=#,##0\ " ";[Red]\-#,##0\ " "?#,##0.00\ " ";\-#,##0.00\ " "I"#,##0.00\ " ";[Red]\-#,##0.00\ " "q*6_-* #,##0\ " "_-;\-* #,##0\ " "_-;_-* "-"\ " "_-;_-@_-k)3_-* #,##0\ _ _-;\-* #,##0\ _ _-;_-* "-"\ _ _-;_-@_-,>_-* #,##0.00\ " "_-;\-* #,##0.00\ " "_-;_-* "-"??\ " "_-;_-@_-{+;_-* #,##0.00\ _ _-;\-* #,##0.00\ _ _-;_-* "-"??\ _ _-;_-@_-"#,##0\ "Esc.";\-#,##0\ "Esc."'"#,##0\ "Esc.";[Red]\-#,##0\ "Esc."(##,##0.00\ "Esc.";\-#,##0.00\ "Esc."-(#,##0.00\ "Esc.";[Red]\-#,##0.00\ "Esc."D?_-* #,##0\ "Esc."_-;\-* #,##0\ "Esc."_-;_-* "-"\ "Esc."_-;_-@_-JE_-* #,##0\ _E_s_c_._-;\-* #,##0\ _E_s_c_._-;_-* "-"\ _E_s_c_._-;_-@_-LG_-* #,##0.00\ "Esc."_-;\-* #,##0.00\ "Esc."_-;_-* "-"??\ "Esc."_-;_-@_-RM_-* #,##0.00\ _E_s_c_._-;\-* #,##0.00\ _E_s_c_._-;_-* "-"??\ _E_s_c_._-;_-@_- m/d/yyyy"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"0.0                        @ Q"p "x  "x  h  `@ @   d@ @   ` "p@ @  "P  D  d  `  d  "x  `@@  `@  `@  `   ` @   `   `@ @   d@ @   D  `@@  `@  `  @  `@  h  `   ` @   `   `   h@   h@  Q"x  Q"x  @ )p@ )p )p  )x@ )x )x  "x  h  h Q"x@ Q"x Q"x  Q"x @  Q"x  Q"x   h  h  "x@  Q"x Q"x@ Q"x Q"x   Q"x   h@ Q"x Q#x Q!x  @ Q"x@ @  "x  Q"x   `  h  Q"x "x Q"x "x Q"x "x  h!@ @   h!@ @   h!!@ @   h@ @   h@ @   h!@ @   `!@ @   `@ @   `!@ @   `!@ @   `!@ @  "p!@ @   d!@ @   `!!@ @   a `@ @   a `@ @   a `!@ @   p@  p  p  !x !x !P P  x  x""@ @   x@  H  x""@ @   x""@ @   x""@ @ 7  x""@ @  !x !x  @  `@ @ "p@ @  d@ @  `!@ @ (p!@ @   x  Q!x  h  `@ @   `@ @   `@ @ <  `@ @ 9 Q!x  x x@ x  h  H  h@  h@   x  ` Q!x@ Q!x  x x   d""@ @ + Q#x""@ @ +   h@  h  `@@  `@  `  @  h@  `  `   `@  ` @   `   `  Q"x  "x@ @  Q"x@    x  P !x Q"x@@  Q"x@  Q"x  @  Q"x@ Q"x "x@ @  "x!@ @  "x@ @  "x@ @  "x!@ @  Q!x    0 Q!x@ Q!x Q!x  Q"x"@   "x"@@   "x"@   "x " @  !x Q!p "x@@  "x@  "x  @  Q"x@ Q"x Q"x  "x@@  "x@  "x  @  !x"@@ + !x"@ + !x " @ + !x@ @ + !x!@ @ + "x "x@ "x "x  !x@ @  !x!@ @  Q"x x@@+ x@+ x  @+ x @ + x + x + !x!@ @ + !x!!@ @ + (p@ (0 (0 (0@ Q"X Q!x )p@ )p )p  Q*x@ Q*x Q*x   x Q*x@ Q*x Q*x  *0@ * *0 Q*x *x  ` 0wInputOConfig <HelpDemo RestrictionsPMacro Configurations MHS_, Main OutLookTest  ;E   ;   ;   ;  ResetTaskList RestoreMSG SetMSG"0/g$R3HV!Tң2KFHV!Tң2KJFIF``C   %# , #&')*)-0-(0%()(C   (((((((((((((((((((((((((((((((((((((((((((((((((((T" }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ?+&k屲E76bR,  0bif ĀHn;OVus6ah e#=WКTiW RQcBdJPʫ1>lh cUԭ-YHեGURgOV89]>+ź ZvλY8}?٠lw5K>kM*kiIȕۓ@RwF56Z\C*FV(wG9NGL}E|O!;-aEsr '=qw ~xtjMX峖7i2 oCo@jډUmBQ$ vqQw>ḨqA6e=i"䌶ݑ]I|C[ɣz[oKE/]ی_1Tw8+|4'cm2Ḓ mI9͞093imtH2 Q&7G. J{]óEww;9]+]gҺM$^f%\]@|ܜɒ  tEflc$D31;*chPIB&j7#75O[{>~ҺEd~!;w}t8:6& jLNUqҀ<\H7H,ؖu&:3X<1vSÄR_Fצ;=0dsЌC^zݻD;,EΛ$y32rq4^sϨxR E$\uaᵅ)/l $vO{?|wCPҎ^PlbS"2}B޾N/SzE&55ůmFR"2(rN8“ҜSR洩i%o}?iZ&άY+x [qrU#bS )Cg>0wRNs0|;ӼKxW^SAnh|d݄qt_=+:NN>tFD&o=Ӽ[bI4Syƫf5=9J->G!_$s<~zt 8f~.=[:r=Jo/Gw|5 \^G|INeY hw }fK!_ݏS~=t_zaY % ʜ1眑2}-_#ezlb.ۆ?N_oOw:{v̶}FU~A=? >VP.ʆ3Mm,wGP:]ީsk7]/&Njw8ү#}?wZQꍤ;԰4?ӧ%ʒo=:*cI;yUw3< g!Sojծ.mat8ijH G!@A3ڨAIo`9 P|>/-e,"$۱zsؐv4 jV~KkY_cXyM/:=V\I"7c #Wt[WcQHYе~+cKr@„KqS<c?O=Y^#Yϋ~N/?jwD,xwa>Z€-x— i*c6/d9Z~x,kj+F$^ 'C)j~ -& 8f'I85`ZC1>7OܜC@zhw4|oWjE16g,}ggU ;|9R<=9|Q^?>M~Hݧ>Y^v>&+EZT} 14~7/Wj!apK@zIkԢǺo7o>m_3gz"u3?fn~_mEZ50` ~om^U7~6ME+'Cַ^Ru=/Ø<=P9Pƽ"h)֦Ko<5U#U9vxuo틻GUk h|CNTE d/jM'IS~l^/ޛҝ3h\7?'0ӈk?'ݷSp?otlXGMV6cou?i.1߇2Yhj_&GM'퍷/<ڡTO:7mgΕl-,~9˶J.5 7x,{nkOF7Nݤߟ97n_?bX]ni#R&KQx (ZTH{N߆%4dO]Fvs{zdϚ&^:bx}_OmXCI v :ŌdS@ j;u ۅА砎8"(ªJyԿo#Ftwc/o=Y iii?6wnXkǝg=]W\K jv"0.. 1N G;Hd3O-@0Sن~淅r~Ys\'D^kx[ϳ -Ү7Q4DݏE#ᯘ-5ٱ#ͬ]k_--r'ڭ~ӢiM| [u_+AIیgLw/Oɻ$!̮ ?[3 >/I$Sw97G!>?矡5 ,6iu)lqK$IPyDUN馗.U*mj||RnEl,$ r3ϝ_)xNӵ;9. *B1$>GﵬQ܌?\QϋYTP c/ݪNsVQiSkYQ_Z' cin.~?Ok_3Z/ %>P_ťCmviHvfg~+]LVg5cfO6kn"bΕ]73c>-|][WH^,>m??)j4_y4ٴbMoQ]zfkԬ~k ھplu |Gưd]_jey DD+SeWC->}:I7 UԳ;G-?v9Ni]~T0ߏ|bueF$ōYYQN@Q3k:wP`Bqd# AG4)/#Y]Ɲ V~Bn`>h}U4B]:]A"\m#DvaY1AɠH5/V_ֆCN#햟vGMZ k3eEVZr"3d s%pc$[k7j:kG2?dܟ`Wͮl3b R`v1N[ ƭxLAy'Q3pA7L8515ijrJ=5PqOW+j인$S]kK_֚-Zn>mOֲ?ZoN>3ʷuZ!t屌gʷ"?z~oʶ4&}MJxg'kY&#?7k&1۷Η7\&۟IYH<)lɷ m_kAM6?#?jٿL}/7w٠91iCmiw$}mʶZs_M*Zۭ7'6R%Gu?~L'IӍ6@MQs'-o\U'i6_?9/3+j인$S]kK_֚-Zn>mOֲ?ZyoyV|kS:N1Z VGG~mVO5KhtŤokKe=4o&&o GY9v7U4vF7^0#ɷoz-l>"ciWGֺ0,Ɲhʾ# \_֑/KlOAK%u{rB 1֞|[Q^F/>K f.Cm=W>gOqOV-f$;E]/O3x#LBIy: kwgAgbd%eI~Uv.P)BZOŹnw9.ovb( ?>_kf+jnc:bmI/5]AY؀hc5Y?w|== KGp:%(jrA:|( 7n m`)o3tQ@ OihҲ^k6#Z EZxIEmu%&vI,OE@Zټ+ڻ۷<Θ:dRKypl6vyv ([5hrd~БԖ/SRMF{ 62cOQE3  @@    Starting Date Closing DateTasksLevel Task NameColorName Month NamesJanuaryFebruaryMarchAprilMayJuneJulyAugust SeptemberNovemberDecemberOctoberDeadline Start DateEnd Date Usage Help(Can I leave a Blank line between tasks ?kThe Plan will start and finish on the dates supplied on the Input cells C7 (Start Date) and C9 (Close Date)nThe Plan generator will create a plan on a new Workbook using the supplied name (Input cell C5) for the Sheet.%How to input the tasks for the plan ?cYes, just enter a level 0 blank task (no data or name). The supplied sample data has one (line 19).6How does the Plan Generator knows when the tasks end ?9Insert data for the tasks on the appropriate Input table:nLevel: Level of the task. Level 0 means a task group so no % is used and has a bold label. Labels are indentedStartDate: Date when the task bar should start. If before the Plan start date, the bar will start on the first day on the plan. Name: Task name or label!Can I change the resulting plan ?GWhy do I get a Macro security warning when opening the Plan Generator ?NCan I save the Plan Generator with the Plan Data ? Can I have several copies ?mColor: Color to use for the task bar. Just change the cell background color using the taskbar button for thatgDeadline: If it has a "Y" or "y", the task bar will end with a red "D" on the last day, the deadline vEndDate: Date when the task bar should end. If after the last day on the Plan, the bar will end on the Plan last date.The macro will stop on the first task line with no data on the task level. So if you leave the task level empty on a line, it will stop there even if more tasks exist after that line.yOf course. It's an Excel Sheet like any other. There is nothing special once it's generated, only colored cells and data.sAgain, of course. It's a regular Excel file. There are NO MACROS on the resulting plan, only on the generator file.7 @There are office Macro Virus, so office can be configured to request permission to run macros. Only run macros from known sources.Macros are a very useful tool to automate tasks in Office. Unfortunately, like another programming language, it can be misused.HELP using this macro.Office XP/2003 Warning: Macros may need to be activated. Follow instructions on the message Excel 2003 will show, if necessary.AOfficeHelp macros are Virus Free and can be open with confidence.Macro Configuration HelpMacros are a possible security threat. Therefore, they are disabled in many recent Microsoft Office Editions. Learn more on how to5configure them so that you can utilize this software.9Help - The button doesn't work but there are no warnings :If you can open the Excel file (both the DEMO and/or the commercial version) and get no warnings but the button just won't work, you have Macro support disabled on Excel. Please refer (click here) to our article on Macro security issues for information on how to configure Microsoft Office Macro security settings.(Back to the Main Display user interface..How can I get Help configuring Macro Settings?Doesn't work? Click Here:Check this FREE Online PC TIP on our website: (Click Here)Automatic Calendar SplitThe Calendar Plan Generator macro will warn you if the calendar reach the limits and propose an automatic split of the calendar into 7last full month. No months will be split in the middle.www.officehelp.bizSplit bySplit every (months)|Excel has a built in limit of 256 columns. Since it uses a column for each day/week, and some columns are used for data and formatting, you cannot have calendars longer than 253 days/weeks. Very long calendars can also be impossible to read once printed.yseveral plans. For your convenience, each calendar will have the task headings and splits are automatically made at the *What is the "Split Every (months)" option?Instead of having very long calendars, you can have them split for you, automatically, every N months. You have to select a value3from the list supplied, other values will not work.What is the "Split by" option?~If your calendar plan is split, you can opt for each calendar plan to be made on the same sheet (having them all together and lpre-formatted for the printer) or separated on an Excel Workbook for each. Same sheet is the default option.What are Daily Calendar Plans?mdetail but produces long calendars for large periods. Better for smaller periods, when details are important.What are Weekly Calendar Plans?ydetail but produces compact calendars for larger periods. Better for larger periods, when the "big picture" is important.~Daily Calendar Plans are calendar plans with a column for each separated day in the calendar main interval. This gives maximum}Weekly Calendar Plans are calendar plans with a column for each separated week in the calendar main interval. This gives less(Can I stop the macro while it's running?Yes. Press the ESC key and it will stop with a warning message that it was interrupted before finishing generating the calendar.Calendar Plan PersonalizationOXClick here to PERSONALIZE your Calendar Plan (Fonts, Colors, Month and Weekday names, & )Outlook Interface SettingsCalendar Plan PERSONALIZATION+Make your Calendar Plan look like YOU want./Replace the words on the yellow cells with yourImport from this Outlook FolderDeadline Marker Tasks Level Tasks ColorYes% DoneResourceOptional Fields"Fields Always Included on the PlanIncludepreferred names.Define Column Widths 2006 OfficeHelp%Office Tutorials & Software SolutionsKSpecializing in easy-to-use Calendar & Planner Solutions and FREE TutorialsFont Header Background color and Font#Task Name Background color and Font)Optional Fields Background color and FontCalendar Area Background color.Calendar Area weekend color (Daily plans only)&Define COLORS and FONTS for your Plans4Insert the desired width on each column yellow cell.corresponding Plan area.(of each identified Cell to customize the$Change the Background color and Font Deadline marker background color Plan Type#Import Completed Tasks (Tasks only)3Import Tasks without Start / Due dates (Tasks only)NImport Contact info (Protected by Outlook, user will need to grant permission)No'Define OUTLOOK ADVANCED import settingsSheetCalendarInclude Levels;Include Excel Default Gridlines on the Output Calendar Plan5Define Global Formatting for the Output Calendar PlanAllPrepare BudgetCollect Last Y Spendingy ConsolidateCategory Allocate Team Preparations ExecutionTests Sub-Test 1 Sub-Test 2DUse Start / End dates on Task bars (Monthly / Weekly Calendars only) Demo Plan MAIN_TITLEMAIN_END=Configure Message Box Texts - ONLY WORKS FOR CUSTOM EDITION@Define HOW Month Names should be identified on the Calendar Plan What are Monthly Calendar Plans?Monthly Calendar Plans are calendar plans with a column for each separated month in the calendar main interval. This gives lessdetail but produces compact calendars for larger periods. Better for really large periods, when the "big picture" is important.What are Yearly Calendar Plans?!Can I make all calendars at once?3Can I import Tasks lists from Version 3.0 or below?Yes. Just copy/paste the task list into version 4. The fixed columns are the same, so it will work. You CANNOT import the optional6fields because they didn't exist on previous versions.$What is the "Include Levels" option?Pinclude all tasks. With this filter, YOU choose what level of detail to include.iConfig sheet. You can also define (On by default) that for Monthly and Weekly calendars the start and endFdate are used instead (Deadlines will be in (), like (19) for day 19).!What is the "Reset Tasks" button?will be PERMANENTLY ERASED.What about the Optional Fields?VThere are 3 optional fields that can be used<I or not. Their labels can also be changed:@Resource: For the task resource, usually the person name or code ;% Done: % field for the % of task done. Usually 0% at start9Category: Task category, in case tasks can be categorized ZIt is possible to change both 3 labels by entering new labels into cells I35, J35 and K35.JIf they are set to "Exclude" then the column will not be used on the plan.(How to Import OUTLOOK Calendar and Tasks{To import Outlook Calendar or Tasks, all you need to do is to run the macro on the PC where the Outlook you want to sync isinstalled, and with the same account. For most cases, all you need to do is select the source and press the "Import Outlook" button.ZImport from this Outlook Folder: Select the source for import: Calendar (default) or Tasks Task Color: Color to use for the task bar. All Outlook imported events will have this color after import. You can manually change it. bTask level: Level to use for ALL Outlook imported events. You can manually change it after import. hDeadline marker: Letter to use for ALL Outlook imported events. You can manually change it after import.:There are also some ADVANCED SETTINGS on the Config sheet:%-3mImport Completed Tasks: For Tasks only, define if tasks already completed should be imported. Default is Yes.Import Tasks without Start / Due dates: For Tasks only, define if tasks without a defined Start or End date should be imported.'{Import Contact info (Protected by Outlook, user will need to grant permission): Define if the Contact info of the Calendar O&Can I personalize the POP-UP messages?Only on the future CUSTOM EDITION or SOURCE CODE EDITION. Changing the messages on the Config sheet will not work on this version.7What are the customization options of the CONFIG sheet?eMonth names: Month names used on the calendars. Can be changed to personalize language or to shorten. WThe macro will copy, for each area (Headers, Optional Columns, Plan,& ) the cell formatsbGridlines: If Yes, the resulting Plan will have gridlines. Default is No, with a blank background. Deadline Start / End Dates: If Yes, the deadline maker for tasks on the Monthly and Weekly calendars will be its date like (dd).*Outlook: Check details on the title below.A completely new style of calendars. They present full years on matrix of Months vs Days and therefore need no external legend for thetasks. But it is a very convenient format for year long events like meetings, holidays, vacations and long plans like software roll-outs.If you have a Task list with several levels (0,1,2& ), it will not make sense to use all tasks on all calendars. In a Monthly or Weeklycalendar it may make sense to eliminate the details and use only top-level (0,1..) tasks. On a daily calendar, it makes sense to The Reset tasks button will delete ALL tasks on the task list. Therefore, you have to confirm TWICE the action. All existing TasksqIf it has a letter, it will be used on the last day of the task. You can personalize the background color on the \These columns are optional because they can be disabled by changing cells I34, J34 and K34. `The CONFIG sheet allows for several customizations of the Calendar Plans generated by the macro:dColumn Widths: Change column widths for the columns, so that you don't have to manually adjust them.^Backgrounds and Fonts: Here you can decide how each area on your Calendar Plan can be colored.Yin Background (all) and fonts (where indicated). Try different colors to see the results!|events or tasks should be imported. This will trigger an Outlook protection and will require the user to manually accept it..JThe month names can be changed on the appropriate Config table, if you want to use alternate ones (foreign languages, shorter,...)Y Sub-Test 3 Sub-Test 4No SplitCalendar Generation Finished.NThis macro is a member of www.OfficeHelp.Biz full family of Calendar Products.PLANACCPlanningHRImplementationTEAMJohnLiz7Yes, of course. Just select "All" on the Plan Type box.!)2Lin each case is used. Split By (months) will work for individual plan types.'WARNING: On Free DEMO Editions, the All option disables the Split By (months) field. Instead, the optimum selection for the Plan Demos<MDemo Restrictions`This file is a FREE to download DEMO from OfficeHelp.Biz. It is restricted on its functionality..The following restrictions apply to this DEMO:A- Only the first 7 tasks will be used (the remaining are ignored)C- The calendar is limited to 27 days / 49 weeks from the start date8- Monthly Calendars are restricted to 7 months (columns)Q- Yearly calendars are restricted to 2004 and 2005 - will not produce other years+How to get the Full (unrestricted) Version?<Simply download it from OfficeHelp.Biz website on this link:)Get the Full (Unrestricted) Version Here!Return to Input PageRESTRICTED DEMO&Click here for a list of restrictions.+Click here to get the UNRESTRICTED version..Click here to configure the ADVANCED settings'Plan Generator Vs4.1 - ADVANCED EditionH 2006 WWW.OFFICEHELP.BIZ - Calendar Plan Generator 4.1 ADVANCED EditionmCustomize these messages to create YOUR OWN personalized Calendar Plan Generator! Only on the CUSTOM EDITION!? @dZ@@:CFSI rL BN;QTeU.VzWb`XY]ZZ[$=^P`xc;wfj- LntFpnprtcc:  : *~6<̧\4| T ,t )3L<EN$XlajsD}ԏd<\4| T$-6,@tIR\ci o(u0{8@HPX`hpx^& ~F %f*./38=NBGKPnU6Z^chVmrv{vT  dMbP?_*+%M\\imomaia\MAIAHPIMOB04? dXXLetter.HP LaserJet 4100 PCL 627xeK/CQǣ ,,|JZ$64z%D* b#%'ounC#1ߜ9Vm.=@~9J+AP*@dI2Ch -d:K$Ex2 NAgʎ"{WN ]0h/BQwDK'*o$$#w/~$ dp$=C-(amkm0PE[^8U9<"_D IVh6%gdh޸E[º WN2/h\w9}Uژh5xYxh yZVekTډ31Wgki;gbO7z333ٚ0[[J.aDnBfa? Wa+m#5EO[*9[2VX|A" dXX??U} } }  }  }  } m } I0} I}  } $ } m} $} $ : 33 3  3J 33@3Z@3@3K@3 3K@ 3 3K@ 3 3 3 3<@<@  K@K@K@K@  h%%%%%%%%%2 ^&'''M ;7_ (  # r )(###)(~ " @ # } ) <  ($#B)xxx (~ "@ # z ) d   (#B)xxy  ( C > # } ) e  (##)  ( Dx = ##)  *++++ :- N c NNzzz PP   OPPPPQP R] 56666RN ] SP EFFFFG]   EX VZ T# \W3 EWWK#) E~ U? VY K# [y   EWWK#) E UQ VXKBY`   EWWKTZa E ] EKKKFG] HIILIJ] ]]]]]]]   D$ lz$6Lhhh>H@4$*4JhT2  !" #$%&'()*+,-./0 1 @2 3 4 5 6 7 8 9 : ; < = > ?    ^   !_!b !f` ! g` ! h`! ! "c "d "d "d "d "e"3 "c\ " d] " e" "~ ##, ##@@@@ #~#~ #q@@ # # i#~ $? $$@@@ $$~ $r(@ $  $ k$ ~ %@% %%@@@ %%~ %rF@ %  % k~ &&rk &~ '' ''@ @ ''~ 'r@ '  ' k'~ (?(, (( @@ ((~ (r@ (  ( k~ )? ),)@@@ ))~ )r@ )  ) k~ **,rk ~ ++, ++@0@ ++~ +r@ +  + k~ ,? ,, @@ ,,~ ,r@ ,  , k~ -@- --@@ --~ -r @ -  - k~ .@ ..@@ ..~ .r .  . k~ /@ //@@ //~ /r /  / k0~ 0r 0 k 1~ 1r 1 k 2~ 2r 2 k 3~ 3r 3 k 4~ 4r 4 k 5~ 5r 5 k 6~ 6r 6 k 7~ 7r 7 k 8~ 8r 8 k 9~ 9r 9 k :~ :r : k ;~ ;r ; k <~ <r < k =~ =r = k >~ >r > k ?~ ?r ? k D lLb~~4~t*~t~tt444444444444444@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ @~ @r @ k A~ Ar A k B~ Br B k C~ Cr C k D~ Dr D k E~ Er E k F~ Fr F k G~ Gr G k H~ Hr H k I~ Ir I k J~ Jr J k K~ Kr K k L~ Lr L k M~ Mr M k N~ Nr N k O~ Or O k P~ Pr P k Q~ Qr Q k R~ Rr R k S~ Sr S k T~ Tr T k U~ Ur U k V~ Vr V k W~ Wr W k X~ Xr X k Y~ Yr Y k Z~ Zr Z k [~ [r [ k \~ \r \ k ]~ ]r ] k ^~ ^r ^ k _jk~ _r _ k D l4444444444444444444444444444444` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  `jk~ `r ` k ajk~ ar a k bjk~ br b k cjk~ cr c k djk~ dr d k ejk~ er e k fjk~ fr f k gjk~ gr g k hjk~ hr h k ijk~ ir i k jjk~ jr j k kjk~ kr k k ljk~ lr l k mjk~ mr m k njk~ nr n k ojk~ or o k pjk~ pr p k qjk~ qr q k rjk~ rr r k sjk~ sr s k tjk~ tr t k ujk~ ur u k vjk~ vr v k wjk~ wr w k xjk~ xr x k yjk~ yr y k zjk~ zr z k {jk~ {r { k |jk~ |r | k }jk~ }r } k ~jk~ ~r ~ k jk~ r  k D l4444444444444444444444444444444                                jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k j~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k D l4444444444444444444444444444444                                jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k D l4444444444444444444444444444444                                jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k j~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k D l4444444444444444444444444444444                                jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k jk~ r k D l4444444444444444444444444444444                                     jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  jk~ r  k !jk~ !r ! k "jk~ "r " k #jk~ #r # k $jk~ $r $ k %jk~ %r % k &jk~ &r & k 'jk~ 'r ' k (jk~ (r ( k )jk~ )r ) k *jk~ *r * k +jk~ +r + k ,jk~ ,r , k -jk~ -r - k .jk~ .r . k /jk~ /r / k 0jk~ 0r 0 k 1jk~ 1r 1 k 2jk~ 2r 2 k 3jk~ 3r 3 k 4jk~ 4r 4 k 5jk~ 5r 5 k 6jk~ 6r 6 k 7jk~ 7r 7 k 8jk~ 8r 8 k 9jk~ 9r 9 k :jk~ :r : k ;jk~ ;r ; k <jk~ <r < k =jk~ =r = k >jk~ >r > k ?jk~ ?r ? k D l4444444444444444444444444444444@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ @jk~ @r @ k Ajk~ Ar A k Bjk~ Br B k Cjk~ Cr C k Djk~ Dr D k Ejk~ Er E k Fjk~ Fr F k Gjk~ Gr G k Hjk~ Hr H k Ijk~ Ir I k Jjk~ Jr J k Kjk~ Kr K k Ljk~ Lr L k Mjk~ Mr M k Njk~ Nr N k Ojk~ Or O k Pjk~ Pr P k Qjk~ Qr Q k Rjk~ Rr R k Sjk~ Sr S k Tjk~ Tr T k Ujk~ Ur U k Vjk~ Vr V k Wjk~ Wr W k Xjk~ Xr X k Yjk~ Yr Y k Zjk~ Zr Z k [jk~ [r [ k \jk~ \r \ k ]jk~ ]r ] k ^jk~ ^r ^ k _jk~ _r _ k D l4444444444444444444444444444444` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  `jk~ `r ` k ajk~ ar a k bjk~ br b k cjk~ cr c k djk~ dr d k ejk~ er e k fjk~ fr f k gjk~ gr g k hjk~ hr h k ijk~ ir i k jjk~ jr j k kjk~ kr k k ljk~ lr l k mjk~ mr m k njk~ nr n k ojk~ or o k pjk~ pr p k qjk~ qr q k rjk~ rr r k sjk~ sr s k tjk~ tr t k ujk~ ur u k vjk~ vr v k wjk~ wr w k xjk~ xr x k yjk~ yr y k zjk~ zr z k {jk~ {r { k |jk~ |r | k }jk~ }r } k ~jk~ ~r ~ k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                     jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  jk~ r  k !jk~ !r ! k "jk~ "r " k #jk~ #r # k $jk~ $r $ k %jk~ %r % k &jk~ &r & k 'jk~ 'r ' k (jk~ (r ( k )jk~ )r ) k *jk~ *r * k +jk~ +r + k ,jk~ ,r , k -jk~ -r - k .jk~ .r . k /jk~ /r / k 0jk~ 0r 0 k 1jk~ 1r 1 k 2jk~ 2r 2 k 3jk~ 3r 3 k 4jk~ 4r 4 k 5jk~ 5r 5 k 6jk~ 6r 6 k 7jk~ 7r 7 k 8jk~ 8r 8 k 9jk~ 9r 9 k :jk~ :r : k ;jk~ ;r ; k <jk~ <r < k =jk~ =r = k >jk~ >r > k ?jk~ ?r ? k D l4444444444444444444444444444444@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ @jk~ @r @ k Ajk~ Ar A k Bjk~ Br B k Cjk~ Cr C k Djk~ Dr D k Ejk~ Er E k Fjk~ Fr F k Gjk~ Gr G k Hjk~ Hr H k Ijk~ Ir I k Jjk~ Jr J k Kjk~ Kr K k Ljk~ Lr L k Mjk~ Mr M k Njk~ Nr N k Ojk~ Or O k Pjk~ Pr P k Qjk~ Qr Q k Rjk~ Rr R k Sjk~ Sr S k Tjk~ Tr T k Ujk~ Ur U k Vjk~ Vr V k Wjk~ Wr W k Xjk~ Xr X k Yjk~ Yr Y k Zjk~ Zr Z k [jk~ [r [ k \jk~ \r \ k ]jk~ ]r ] k ^jk~ ^r ^ k _jk~ _r _ k D l4444444444444444444444444444444` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  `jk~ `r ` k ajk~ ar a k bjk~ br b k cjk~ cr c k djk~ dr d k ejk~ er e k fjk~ fr f k gjk~ gr g k hjk~ hr h k ijk~ ir i k jjk~ jr j k kjk~ kr k k ljk~ lr l k mjk~ mr m k njk~ nr n k ojk~ or o k pjk~ pr p k qjk~ qr q k rjk~ rr r k sjk~ sr s k tjk~ tr t k ujk~ ur u k vjk~ vr v k wjk~ wr w k xjk~ xr x k yjk~ yr y k zjk~ zr z k {jk~ {r { k |jk~ |r | k }jk~ }r } k ~jk~ ~r ~ k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                     jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  jk~ r  k !jk~ !r ! k "jk~ "r " k #jk~ #r # k $jk~ $r $ k %jk~ %r % k &jk~ &r & k 'jk~ 'r ' k (jk~ (r ( k )jk~ )r ) k *jk~ *r * k +jk~ +r + k ,jk~ ,r , k -jk~ -r - k .jk~ .r . k /jk~ /r / k 0jk~ 0r 0 k 1jk~ 1r 1 k 2jk~ 2r 2 k 3jk~ 3r 3 k 4jk~ 4r 4 k 5jk~ 5r 5 k 6jk~ 6r 6 k 7jk~ 7r 7 k 8jk~ 8r 8 k 9jk~ 9r 9 k :jk~ :r : k ;jk~ ;r ; k <jk~ <r < k =jk~ =r = k >jk~ >r > k ?jk~ ?r ? k D l4444444444444444444444444444444@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ @jk~ @r @ k Ajk~ Ar A k Bjk~ Br B k Cjk~ Cr C k Djk~ Dr D k Ejk~ Er E k Fjk~ Fr F k Gjk~ Gr G k Hjk~ Hr H k Ijk~ Ir I k Jjk~ Jr J k Kjk~ Kr K k Ljk~ Lr L k Mjk~ Mr M k Njk~ Nr N k Ojk~ Or O k Pjk~ Pr P k Qjk~ Qr Q k Rjk~ Rr R k Sjk~ Sr S k Tjk~ Tr T k Ujk~ Ur U k Vjk~ Vr V k Wjk~ Wr W k Xjk~ Xr X k Yjk~ Yr Y k Zjk~ Zr Z k [jk~ [r [ k \jk~ \r \ k ]jk~ ]r ] k ^jk~ ^r ^ k _jk~ _r _ k D l4444444444444444444444444444444` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  `jk~ `r ` k ajk~ ar a k bjk~ br b k cjk~ cr c k djk~ dr d k ejk~ er e k fjk~ fr f k gjk~ gr g k hjk~ hr h k ijk~ ir i k jjk~ jr j k kjk~ kr k k ljk~ lr l k mjk~ mr m k njk~ nr n k ojk~ or o k pjk~ pr p k qjk~ qr q k rjk~ rr r k sjk~ sr s k tjk~ tr t k ujk~ ur u k vjk~ vr v k wjk~ wr w k xjk~ xr x k yjk~ yr y k zjk~ zr z k {jk~ {r { k |jk~ |r | k }jk~ }r } k ~jk~ ~r ~ k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                     jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k  jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  jk~ r  k !jk~ !r ! k "jk~ "r " k #jk~ #r # k $jk~ $r $ k %jk~ %r % k &jk~ &r & k 'jk~ 'r ' k (jk~ (r ( k )jk~ )r ) k *jk~ *r * k +jk~ +r + k ,jk~ ,r , k -jk~ -r - k .jk~ .r . k /jk~ /r / k 0jk~ 0r 0 k 1jk~ 1r 1 k 2jk~ 2r 2 k 3jk~ 3r 3 k 4jk~ 4r 4 k 5jk~ 5r 5 k 6jk~ 6r 6 k 7jk~ 7r 7 k 8jk~ 8r 8 k 9jk~ 9r 9 k :jk~ :r : k ;jk~ ;r ; k <jk~ <r < k =jk~ =r = k >jk~ >r > k ?jk~ ?r ? k D l4444444444444444444444444444444@ A B C D E F G H I J K L M N O P Q R       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijklmnopqrstuvwxyz{|}~S T U V W X Y Z [ \ ] ^ _ @jk~ @r @ k Ajk~ Ar A k Bjk~ Br B k Cjk~ Cr C k Djk~ Dr D k Ejk~ Er E k Fjk~ Fr F k Gjk~ Gr G k Hjk~ Hr H k Ijk~ Ir I k Jjk~ Jr J k Kjk~ Kr K k Ljk~ Lr L k Mjk~ Mr M k Njk~ Nr N k Ojk~ Or O k Pjk~ Pr P k Qjk~ Qr Q k Rjk~ Rr R k Sjk~ Sr S k Tjk~ Tr T k Ujk~ Ur U k Vjk~ Vr V k Wjk~ Wr W k Xjk~ Xr X k Yjk~ Yr Y k Zjk~ Zr Z k [jk~ [r [ k \jk~ \r \ k ]jk~ ]r ] k ^jk~ ^r ^ k _jk~ _r _ k D l4444444444444444444444444444444` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  `jk~ `r ` k ajk~ ar a k bjk~ br b k cjk~ cr c k djk~ dr d k ejk~ er e k fjk~ fr f k gjk~ gr g k hjk~ hr h k ijk~ ir i k jjk~ jr j k kjk~ kr k k ljk~ lr l k mjk~ mr m k njk~ nr n k ojk~ or o k pjk~ pr p k qjk~ qr q k rjk~ rr r k sjk~ sr s k tjk~ tr t k ujk~ ur u k vjk~ vr v k wjk~ wr w k xjk~ xr x k yjk~ yr y k zjk~ zr z k {jk~ {r { k |jk~ |r | k }jk~ }r } k ~jk~ ~r ~ k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k D l4444444444444444444444444444444                                jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k jk~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k D l4444444444444444444444444444444                                j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k D l4444444444444444444444444444444                                     j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k  j--k~ r  k  j--k~ r  k  j--k~ r  k  j--k~ r  k  j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k D l4444444444444444444444444444444  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  j--k~ r  k !j--k~ !r ! k "j--k~ "r " k #j--k~ #r # k $j--k~ $r $ k %j--k~ %r % k &j--k~ &r & k 'j--k~ 'r ' k (j--k~ (r ( k )j--k~ )r ) k *j--k~ *r * k +j--k~ +r + k ,j--k~ ,r , k -j--k~ -r - k .j--k~ .r . k /j--k~ /r / k 0j--k~ 0r 0 k 1j--k~ 1r 1 k 2j--k~ 2r 2 k 3j--k~ 3r 3 k 4j--k~ 4r 4 k 5j--k~ 5r 5 k 6j--k~ 6r 6 k 7j--k~ 7r 7 k 8j--k~ 8r 8 k 9j--k~ 9r 9 k :j--k~ :r : k ;j--k~ ;r ; k <j--k~ <r < k =j--k~ =r = k >j--k~ >r > k ?j--k~ ?r ? k D l4444444444444444444444444444444@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ @j--k~ @r @ k Aj--k~ Ar A k Bj--k~ Br B k Cj--k~ Cr C k Dj--k~ Dr D k Ej--k~ Er E k Fj--k~ Fr F k Gj--k~ Gr G k Hj--k~ Hr H k Ij--k~ Ir I k Jj--k~ Jr J k Kj--k~ Kr K k Lj--k~ Lr L k Mj--k~ Mr M k Nj--k~ Nr N k Oj--k~ Or O k Pj--k~ Pr P k Qj--k~ Qr Q k Rj--k~ Rr R k Sj--k~ Sr S k Tj--k~ Tr T k Uj--k~ Ur U k Vj--k~ Vr V k Wj--k~ Wr W k Xj--k~ Xr X k Yj--k~ Yr Y k Zj--k~ Zr Z k [j--k~ [r [ k \j--k~ \r \ k ]j--k~ ]r ] k ^j--k~ ^r ^ k _j--k~ _r _ k D l4444444444444444444444444444444` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~  `j--k~ `r ` k aj--k~ ar a k bj--k~ br b k cj--k~ cr c k dj--k~ dr d k ej--k~ er e k fj--k~ fr f k gj--k~ gr g k hj--k~ hr h k ij--k~ ir i k jj--k~ jr j k kj--k~ kr k k lj--k~ lr l k mj--k~ mr m k nj--k~ nr n k oj--k~ or o k pj--k~ pr p k qj--k~ qr q k rj--k~ rr r k sj--k~ sr s k tj--k~ tr t k uj--k~ ur u k vj--k~ vr v k wj--k~ wr w k xj--k~ xr x k yj--k~ yr y k zj--k~ zr z k {j--k~ {r { k |j--k~ |r | k }j--k~ }r } k ~j--k~ ~r ~ k j--k~ r  k D l4444444444444444444444444444444                                j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k D l4444444444444444444444444444444                                j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k D l4444444444444444444444444444444                                j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k D l4444444444444444444444444444444                                j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k D l4444444444444444444444444444444                                     j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k  j--k~ r  k  j--k~ r  k  j--k~ r  k  j--k~ r  k  j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k j--k~ r  k D l4444444444444444444444444444444  ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?  j--k~ r  k !j--k~ !r ! k "j--k~ "r " k #j--k~ #r # k $j--k~ $r $ k %j--k~ %r % k &j--k~ &r & k 'j--k~ 'r ' k (j--k~ (r ( k )j--k~ )r ) k *j--k~ *r * k +j--k~ +r + k ,j--k~ ,r , k -j--k~ -r - k .j--k~ .r . k /j--k~ /r / k 0j--k~ 0r 0 k 1j--k~ 1r 1 k 2j--k~ 2r 2 k 3j--k~ 3r 3 k 4j--k~ 4r 4 k 5j--k~ 5r 5 k 6j--k~ 6r 6 k 7j--k~ 7r 7 k 8j--k~ 8r 8 k 9j--k~ 9r 9 k :j--k~ :r : k ;j--k~ ;r ; k <j--k~ <r < k =j--k~ =r = k >j--k~ >r > k ?j--k~ ?r ? k D l4444444444444444444444444444444@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ @j--k~ @r @ k Aj--k~ Ar A k Bj--k~ Br B k Cj--k~ Cr C k Dj--k~ Dr D k Ej--k~ Er E k Fj--k~ Fr F k Gj--k~ Gr G k Hj--k~ Hr H k Ij--k~ Ir I k Jj--k~ Jr J k Kj--k~ Kr K k Lj--k~ Lr L k Mj--k~ Mr M k Nj--k~ Nr N k Oj--k~ Or O k Pj--k~ Pr P k Qj--k~ Qr Q k Rj--k~ Rr R k Sj--k~ Sr S k Tj--k~ Tr T k Uj--k~ Ur U k Vj--k~ Vr V k Wj--k~ Wr W k Xj--k~ Xr X k Yj--k~ Yr Y k Zj--k~ Zr Z k [j--k~ [r [ k \j--k~ \r \ k ]j--k~ ]r ] k ^j--k~ ^r ^ k _j--k~ _r _ k D l4444444444444444444444444444444` a b c d e f g h i  j k l m n o pqrstuvwxyz{|}~`j--k~ `r ` k aj--k~ ar a k bj--k~ br b k cj--k~ cr c k dj--k~ dr d k ej--k~ er e k fj--k~ fr f k gj--k~ gr g k hj--k~ hr h k ilmnoop~ is i mp j ..j k ..k l ..l m ..m n ..n o ..o p ..p q ..q r ..r s ..s t ..t u ..u v ..v w ..w x ..x y ..y z ..z { ..{ | ..| } ..} ~ ..~  ..Dl4444444444  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl       ..  ..  ..  ..  ..  ..  ..  ..  ..  ..   ..   ..   ..   ..   ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl !"#$%&'()*+,-./0123456789:;<=>?  ..  ! ..! " .." # ..# $ ..$ % ..% & ..& ' ..' ( ..( ) ..) * ..* + ..+ , .., - ..- . ... / ../ 0 ..0 1 ..1 2 ..2 3 ..3 4 ..4 5 ..5 6 ..6 7 ..7 8 ..8 9 ..9 : ..: ; ..; < ..< = ..= > ..> ? ..?Dl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ @ ..@ A ..A B ..B C ..C D ..D E ..E F ..F G ..G H ..H I ..I J ..J K ..K L ..L M ..M N ..N O ..O P ..P Q ..Q R ..R S ..S T ..T U ..U V ..V W ..W X ..X Y ..Y Z ..Z [ ..[ \ ..\ ] ..] ^ ..^ _ .._Dl`abcdefghijklmnopqrstuvwxyz{|}~ ` ..` a ..a b ..b c ..c d ..d e ..e f ..f g ..g h ..h i ..i j ..j k ..k l ..l m ..m n ..n o ..o p ..p q ..q r ..r s ..s t ..t u ..u v ..v w ..w x ..x y ..y z ..z { ..{ | ..| } ..} ~ ..~  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl       ..  ..  ..  ..  ..  ..  ..  ..  ..  ..   ..   ..   ..   ..   ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl !"#$%&'()*+,-./0123456789:;<=>?  ..  ! ..! " .." # ..# $ ..$ % ..% & ..& ' ..' ( ..( ) ..) * ..* + ..+ , .., - ..- . ... / ../ 0 ..0 1 ..1 2 ..2 3 ..3 4 ..4 5 ..5 6 ..6 7 ..7 8 ..8 9 ..9 : ..: ; ..; < ..< = ..= > ..> ? ..?Dl@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ @ ..@ A ..A B ..B C ..C D ..D E ..E F ..F G ..G H ..H I ..I J ..J K ..K L ..L M ..M N ..N O ..O P ..P Q ..Q R ..R S ..S T ..T U ..U V ..V W ..W X ..X Y ..Y Z ..Z [ ..[ \ ..\ ] ..] ^ ..^ _ .._Dl`abcdefghijklmnopqrstuvwxyz{|}~ ` ..` a ..a b ..b c ..c d ..d e ..e f ..f g ..g h ..h i ..i j ..j k ..k l ..l m ..m n ..n o ..o p ..p q ..q r ..r s ..s t ..t u ..u v ..v w ..w x ..x y ..y z ..z { ..{ | ..| } ..} ~ ..~  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..    ..    ..    ..    ..    ..    ..    ..    ..   ..   ..   ..   ..   ..    ..    ..    ..    ..    ..    ..    ..    ..    ..    ..    ..    ..    ..    ..    ..    ..    ..    .. Dl ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?   ..  !  ..!  "  .."  #  ..#  $  ..$  %  ..%  &  ..&  '  ..'  (  ..(  )  ..)  *  ..*  +  ..+  ,  ..,  -  ..-  .  ...  /  ../  0  ..0  1  ..1  2  ..2  3  ..3  4  ..4  5  ..5  6  ..6  7  ..7  8  ..8  9  ..9  :  ..:  ;  ..;  <  ..<  =  ..=  >  ..>  ?  ..? Dl@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _  @  ..@  A  ..A  B  ..B  C  ..C  D  ..D  E  ..E  F  ..F  G  ..G  H  ..H  I  ..I  J  ..J  K  ..K  L  ..L  M  ..M  N  ..N  O  ..O  P  ..P  Q  ..Q  R  ..R  S  ..S  T  ..T  U  ..U  V  ..V  W  ..W  X  ..X  Y  ..Y  Z  ..Z  [  ..[  \  ..\  ]  ..]  ^  ..^  _  .._ Dl` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~   `  ..`  a  ..a  b  ..b  c  ..c  d  ..d  e  ..e  f  ..f  g  ..g  h  ..h  i  ..i  j  ..j  k  ..k  l  ..l  m  ..m  n  ..n  o  ..o  p  ..p  q  ..q  r  ..r  s  ..s  t  ..t  u  ..u  v  ..v  w  ..w  x  ..x  y  ..y  z  ..z  {  ..{  |  ..|  }  ..}  ~  ..~    .. Dl                                  ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   .. Dl                                  ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..D>l                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..   ..   ..   ..   ..   ..   ..   ..   ..  ..  ..  ..  ..  ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..Dl ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?   .. !  .. "  .. #  .. $  .. %  .. &  .. '  .. (  .. )  .. *  .. +  .. ,  .. -  .. .  .. /  .. 0  .. 1  .. 2  .. 3  .. 4  .. 5  .. 6  .. 7  .. 8  .. 9  .. :  .. ;  .. <  .. =  .. >  .. ?  ..Dl@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _  @  .. A  .. B  .. C  .. D  .. E  .. F  .. G  .. H  .. I  .. J  .. K  .. L  .. M  .. N  .. O  .. P  .. Q  .. R  .. S  .. T  .. U  .. V  .. W  .. X  .. Y  .. Z  .. [  .. \  .. ]  .. ^  .. _  ..Dl` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~   `  .. a  .. b  .. c  .. d  .. e  .. f  .. g  .. h  .. i  .. j  .. k  .. l  .. m  .. n  .. o  .. p  .. q  .. r  .. s  .. t  .. u  .. v  .. w  .. x  .. y  .. z  .. {  .. |  .. }  .. ~  ..   ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..   ..   ..   ..   ..   ..   ..   ..   ..  ..  ..  ..  ..  ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..Dl ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?   .. !  .. "  .. #  .. $  .. %  .. &  .. '  .. (  .. )  .. *  .. +  .. ,  .. -  .. .  .. /  .. 0  .. 1  .. 2  .. 3  .. 4  .. 5  .. 6  .. 7  .. 8  .. 9  .. :  .. ;  .. <  .. =  .. >  .. ?  ..Dl@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _  @  .. A  .. B  .. C  .. D  .. E  .. F  .. G  .. H  .. I  .. J  .. K  .. L  .. M  .. N  .. O  .. P  .. Q  .. R  .. S  .. T  .. U  .. V  .. W  .. X  .. Y  .. Z  .. [  .. \  .. ]  .. ^  .. _  ..Dl` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~   `  .. a  .. b  .. c  .. d  .. e  .. f  .. g  .. h  .. i  .. j  .. k  .. l  .. m  .. n  .. o  .. p  .. q  .. r  .. s  .. t  .. u  .. v  .. w  .. x  .. y  .. z  .. {  .. |  .. }  .. ~  ..   ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..   ..   ..   ..   ..   ..   ..   ..   ..  ..  ..  ..  ..  ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..   ..Dl ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?   .. !  .. "  .. #  .. $  .. %  .. &  .. '  .. (  .. )  .. *  .. +  .. ,  .. -  .. .  .. /  .. 0  .. 1  .. 2  .. 3  .. 4  .. 5  .. 6  .. 7  .. 8  .. 9  .. :  .. ;  .. <  .. =  .. >  .. ?  ..Dl@ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _  @  .. A  .. B  .. C  .. D  .. E  .. F  .. G  .. H  .. I  .. J  .. K  .. L  .. M  .. N  .. O  .. P  .. Q  .. R  .. S  .. T  .. U  .. V  .. W  .. X  .. Y  .. Z  .. [  .. \  .. ]  .. ^  .. _  ..Dl` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~   `  .. a  .. b  .. c  .. d  .. e  .. f  .. g  .. h  .. i  .. j  .. k  .. l  .. m  .. n  .. o  .. p  .. q  .. r  .. s  .. t  .. u  .. v  .. w  .. x  .. y  .. z  .. {  .. |  .. }  .. ~  ..   ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..Dl                                  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  ..  !!  !!  !!  !!  !!Dl                                  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!Dl                                  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!  !!Dl                                  !!   !!   !!   !!   !!   !!   !!   !!   !!  !!  !!  !!  !!  !!   !!   !!   !!   !!   !!   !!   !!   !!   !!   !!   !!   !!   !!   !!   !!   !!   !!   !!Dl ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9   !! !  !! "  !! #  !! $  !! %  !! &  !! '  !! (  !! )  !! *  !! +  !! ,  !! -  !! .  !! /  !! 0  !! 1  !! 2  !! 3  !! 4  !! 5  !! 6  !!7  8  9  8 jR(  x  6gCC@],@g? `g9 $<Run< " / S Aêofficehelp4yK yK ~http://www.officehelp.biz/officehelp/default.asp?ent=demosite4, ]&/`xx 6 6gCC@S],6@g? pg9 $<Import from Outlook< xx j 6lgCC@ K x],j@lg?  g9 $ < Reset Tasks<J xx  6gCC@S],@g? g9 $<Import from Outlook< >@  !!         7f yK HELP using this macro.Help!A1yK Doesn't work? Click Here'Macro Configurations'!A1yK www.officehelp.bizyK 6http://www.officehelp.biz/ yK www.officehelp.bizyK |http://www.officehelp.biz/officehelp/default.asp?ent=demosite yK www.officehelp.bizyK ~http://www.officehelp.biz/officehelp/default.asp?ent=demosite4yK YClick here to PERSONALIZE your Calendar Plan (Fonts, Colors, Month and Weekday names, & ) Config!A1yK 2Click here to configure the the ADVANCED settings Config!A18yK *Get the Full (Unrestricted) Version Here!yK http://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00002&ent=demosite4zyK Demo Restrictions'Demo Restrictions'!A1 yK 'Click here for a list of restrictions.'Demo Restrictions'!A1< yK ,Click here to get the UNRESTRICTED version.yK http://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00002&ent=demosite48yK *Get the Full (Unrestricted) Version Here!yK http://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00002&ent=demosite4< yK ,Click here to get the UNRESTRICTED version.yK http://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00002&ent=demosite4 DLEnter valid date Invalid date!e #i8 alIncludeExcludex!! l6Insert % of work done for this task. 0 is the Default.)Decimal number greater than or equal to 0o#i =Insert a Single Character as Deadline Market (or leave empty)(Limited to a single character (or Empty)i0i Number out-of-limits/Select default level for Outlook imported tasksPlease select option from list. y)1234M Enter valid date Invalid date!le orTADLEnter valid date Invalid Date!leor}  Select location for split plans.'Invalid input. Please select from list.seSheet Workbookr  Months per PlanNumber out-of-limits3Select where to split Calendar Plans (or No Split).Please select option from list.No Split345678125 4 Enter Plan Nameofim (Select the type of Plan to be generated.'Invalid input. Please select from list.%"Daily Weekly Monthly YearlyAllt JSelect Outlook folder to use as source for event import: Calendar or TasksPlease select option from list.yTasksCalendarl Levels to Include in the PlanNumber out-of-limits/All levels up to the indicated will be includedPlease select option from list.;l8All01234567891011121314151617181920  Sheet1  F06ڵ  dMbP?_*+%M\\imomaia\MAIAHPIMOB04? dLetter.HP LaserJet 4100 PCL 627xe.CQqC ^GwO Qf+!D, X'܆Fb9%sZ3TFHviōr$WAP*@d;"jd:@:Zju)$e2 "I$C@hxd<^6 7£(oK.3'UH>HF/$_AH rCIzIh8Z\1hr`{`ɱĆ~>rk뛿:m{~n=;)"_@VRh6%kdhθE[ O2/h\w9}Uژh5xYxh yZVekTډ31Wgki;gbO7z333ٚ0[[J.aDnBfa? Wa+m#5EO[*9[2VX|A" NX??U} $ } } $ F                                ; 8?Z*'Plan Generator Vs4.1 - ADVANCED Edition ~/00000000001 T 234 SU"34 2"34   2"34  2   V 4  2   a 4  9   4  2   4 2  4 2  4 2  4 8 4 8 4 8 4 2 4 2 4 8 4 84 b 24 2~ @w; Z" % Done ~ 8@w(; Z"  Resource  ~   @ w<; Z"  Category 424 2~ 7@ w  m4 84 l 24 D; ly"."."."LL66666666666".""X".   !  "  #  $  %  &  '  (  )  *  + , -  .  /  0  1  2  3 4 5  6  7  8  9  : ;  <  =  > ?   t f {g uuuuu up uuv !tu{uuuuu ! uo ! uuv "t "f "{h"uuuuu " un " uuv #tuuuuuuuuuuv $t $f ${i$uuuuuuuuv %tuuuuuuuuuuv &t &{j&uuuuuu{uv 't{{uuuuuuuuv (2 ({k(4 )2{{4 *2| *{q*4 +2{{4 ,w, -2{{4 .2 .[ .s.4 /24 02 0[ 0t04 124 22 2v 2u24 324 4|4 52{{4 62 6v 6{64 724 82 8[ 884 95666666667 :: ;2{{4 <8<{ <<4 =8{4 >> >> ? ?? DlX8X"B"8"8"8"."B"B"B"."B"B"."B"B@ A B  C D ;E  @8{4 AA B C/}}000000001 D5D E566666666667 \d"."". 6  6H  0(   x  6 < CC@ >Z ?], @ < ? < < 9 $<Reset Messages<b xx  6 < CC@ ; =], @ < ?  < 9  $ <Set Messages<Y >@$ "  >> ??        ,, DD   44 :: << AA 7DD yK )Back to the Main Display user interface. Input!A1AA yK nCustomize these messages to create YOUR OWN personalized Calendar Plan Generator! Only on the CUSTOM EDITION!yK http://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00044&ent=Demosite42   TAp  Decimal number between 0 and 100Invalid number sd 2 For RESOURCE field only Out-of-limitsIf YES, will import the name of the Task/Appointment owner in Outlook This information is protected by Outlook and will require the user to grant access permission on Outlook each time it is used.Please select option from list. pYesNoN22  Out-of-limitsNTasks only. If YES, will import Tasks without a valid Start and / or Due date.Please select option from list. otYesNoN00  Out-of-limits0Tasks only. If YES, will import completed tasks.Please select option from list. asYesNoN..  Out-of-limits1If YES, Excel default gridlines will be included.Please select option from list. sYesNoN66  Out-of-limits0If YES, task bars will have a START and END day.Please select option from list. sYesNoN88 Sheet6  $u  dMbP?_*+%M\\imomaia\MAIAHPIMOB04? dLetter.HP LaserJet 4100 PCL 627xe.CQ     B !"#$%&'()*+,-./0123456789:;<=>?@ACDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~qC ^GwO Qf+!D, X'܆Fb9%sZ3TFHviōr$WAP*@d;"jd:@:Zju)$e2 "I$C@hxd<^6 7£(oK.3'UH>HF/$_AH rCIzIh8Z\1hr`{`ɱĆ~>rk뛿:m{~n=;)"_@VRh6%kdhθE[ O2/h\w9}Uژh5xYxh yZVekTډ31Wgki;gbO7z333ٚ0[[J.aDnBfa? Wa+m#5EO[*9[2VX|A" @X??U} $ } } $                                         P; ?Z*'Plan Generator Vs4.1 - ADVANCED Edition /00000000001  234 2"34 2"34 2"34  2"34 9# 4  24 2, 4 2+ 4 2/4 8.4 84 8N4 24 2O4 84 84 24 24 24 24 8H4 24 2L4 2I4 24 8J4 Dlo"."..."."...."."."."..".".."  ! " # $ % & ' ( ) * + , - . / 0123456789:;<=>? 24 !2M!4 "2K"4 #24 $8$4 %24 &2&4 '2'4 (24 )9)4 *24 +2+4 ,2,4 -24 .8.4 /24 0204 1814 2224 324 48944 524 62?64 72@74 82:84 92A94 :2;:4 ;24 ; <8B<4 =24 = >2C>4 > ?2D?4 ?Dl".."."..".".."."...".".....,.,8@ABCDEFGHIJKLMNOP Q R S T U V W X Y Z [ \ ] ^ _ @ @ A8EA4 AB24 C2FC4 D2GD4 E84 F8F4 G4 HH4 II4 JJ4 K84 L8L4 M4 NN4 OO4 P84 Q8Q4 R24 S2S4 T24 U2 U3U4 V2 V3%V4 W2 W3& WW4 X23 XX4 Y23 YY4 Z2 Z3 Z4 [2 [3'[4 \2 \3!\4 ]24 ^8^4 _24 D l,8".."."...".".."."."66B88666".` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~   ``4 a24 b2 b3b4 c2 c3c4 d2 d3d4 e234 f2f34 g2g34 h2h34 i234 j8j4 k24 l2l4 m24 n8n4 o24 p(p q r24 s8"s4 t24 u2)u4 v24 w8$w4 x24 y2*y4 z24 {8{4 |24 }2}4 ~24 84 Dl."666"...".".".".""."."."."."."                                24 24 24 2 34 2 34 2 34 23 4 23 4 2 34 2 34 2 34 24 84 24 24 24 24 2 34 2 34 2 34 2 34 234 234 234 2 34 2 34 2 34 2 4 234 5 566666666667 BX"."66688666".".."6666"."6666".  6PH00(  >@$ *  pq  @@ 7 yK )Back to the Main Display user interface. Input!A12   TA)L   Sheet4    dMbP?_*+%M\\imomaia\MAIAHPIMOB04? dLetter.HP LaserJet 4100 PCL 627xe.CQqC ^GwO Qf+!D, X'܆Fb9%sZ3TFHviōr$WAP*@d;"jd:@:Zju)$e2 "I$C@hxd<^6 7£(oK.3'UH>HF/$_AH rCIzIh8Z\1hr`{`ɱĆ~>rk뛿:m{~n=;)"_@VRh6%kdhθE[ O2/h\w9}Uژh5xYxh yZVekTډ31Wgki;gbO7z333ٚ0[[J.aDnBfa? Wa+m#5EO[*9[2VX|A" PX??U} $                                 ; 8?Z*'Plan Generator Vs4.1 - ADVANCED Edition /00000000001  234 "34 2"34 2"34  2"4 2"  4 2"  4 2"  4 2"  4 2"4 94 24 24 24 2 4 566666666667  0ao"."."."8888"."."6"  >@$ "   7d yK Retrun to Input Page Input!A18yK *Get the Full (Unrestricted) Version Here!yK http://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00002&ent=demosite42   TA)L  Sheet7     dMbP?_*+%MPDF995S oNXLetterPRIV0''''\KhC}_" NX??U} $ } } $                                 @       ; `?Z*'Plan Generator Vs4.1 - ADVANCED Edition /00000000001 0 234 21"34 22"34 2"34 9# 4  24 2, 4 2+ 4 2/ 4 8.4 24 934 24 4 24 964 24 8 ?@@@@@@@@@@A ?@@@@@@@@@@A <==========> 5 234 566666666667 >0o".".."."...."."."."."""."  6>@$ *     7 yK )Back to the Main Display user interface. Input!A1b yK ;Check this FREE Online PC TIP on our website: (Click Here)yK http://www.officehelp.biz/officehelp/viewcontents.asp?cl=PC%20Tip&id=00004&ent=MacroHelp22   TA)L  Sheet5     dMbP?_*+%"??U                               $,$8$88$$$$$$$$$$PH@0(  >@  7 Sheet2 Module1 g__SRP_2d;__SRP_3ThisWorkbook!Y  !"#$%'()*+,-./012345678:;<>@ABCDEFGHIJKLMNOPRSTUVWXYZ[\]^_`abdefghiklmnopqstuvwxyz{|}~2ad$*\Rffff*0U45fdec0e*\R1*#1c3*\R0*#e*\R0*#19*\R1*#d7*\R1*#e8*\R0*#19*\R1*#d7*\R1*#e8*\R1*#50*\R1*#56*\R1*#83*\R1*#2c*\R1*#31*\R1*#a3*\R1*#10*\R1*#1c4*\R1*#1c8*\R0*#12*\R0*#f*\R0*#19$*\Rffff*0Z45fdec0e$*\Rffff*0Y45fdec0e$*\Rffff*0W45fdec0e$*\Rffff*0V45fdec0e*\R1*#d7*\R1*#53*\R1*#dc*\R1*#f1*\R1*#e8*\R0*#f*\R0*#13*\R1*#dc*\R1*#f1*\R0*#2*\R1*#f1*\R1*#e8*\R1*#2ac*\R0*#14*\R0*#1߁ 0  (  0 @  0 `      ( F  P 8  TFT804p, (H &  t .(0X(d(((hd&%H%4/8/6/&-f.( .JH.&8/(11(81d`1 pp4H4F4F(5:x<<<H==6@<T@CB<EE D6 @7H7::::87P7X7`7h7p7x77777Wb[.ٞxMEL0 LLLLLL LLLLLLP> 8:L<<<<<<<<<<<<<<<<<<<<<<<XS 0i.@#P]"@A(^#@%%% % $`JKK ' on line LʐH ` ` i 0`Hk**I iH JH t9@`*tʐh HʐHʐ @ P)HʘKʘK `pj/@ʐ Hʐ hHʐ H0(   b'@`8Cp%`Nx  u:@40k0@`l `,h_$@+ `B`o """Hhl1@(x\!@+L `Lo `t WARNING - Invalid calendar dates%h-@+`Ltk `tHʘbx1B@8Ce h`%@`*t`r@x n3@ʘBtm2@ p5@ q6@ r7@ʐH %ʐ Ha&@ e*@f+@g,@ʐPH`t`pWARNING - Invalid task datesʐ@` Hh ʐ H"ʐ H'`x`pDailb@ xz?@ʐ H)o4@pH `y>@6s8@nh |{@@zX|A@ʐ H`tThe START DATE for task 't `lX (w<@2P v;@\ Dx=@ʐ@(Hʐ 8!Hʐ Hʐ H %`,hʐ (#H!ʐ (pH$The requested calendar has ʐ @H#ʐ H%(Macro execution stopped by user request.ʘ@B ʐ p 8H( & `NDo0 %%Di Pipii `pʐ H*ʐ +H+ʐ @H,ʐ @)H-"WARNING - Calendar needs Splitting the maximum finish date is @ c(@The requested calendar has 8`,xto the maximum finish date is  d)@ʐ /HʐX`HWARNING - Outlook SecurityP8E@p G@i s ꀸ}B@HPlease select at least one calendar type: Daily, Weekly, Monthly or Yearp.Biz WARNING - Task List ResetyWARNING 2 - Task List Reseti `Jxi of C`*t~C@ꀼD@`x8(`( >@ꀆx@@ꀊA@%;@(OUTLOOK Task / Appointment Import WizardTask /Task List has been erased.tF@```X`(T`p`^R I@H@J@+OUTLOOK Task / Appointment import finished.*Import tasks starting on Excel row number?.utl`@ h D! K@`x n `pF8k0>Are you sure you want to COMPLETELY ERASE the whole Task List?@0J?ʘhK`@ h ꀌB@ꀐ C@ꀔ@$D @ꀚ%(E @ʘK +8`PJ i The requested calendar has  `@ kwThe main START DATE for calendar plan (Cell C7) greater than its END DATE (Cell C9). The calendar cannot be generated. st has  the maximum finish date is ` (*`<k>DX RVV Ldaʐ4 )H2ʘB-WARNING - Original messages will be restored.ʘ$B g is greater than its END DATE. The task will have no calendar bar. Press OK to proceed, CANCEL to stop. is thedays. Excel sheets have only 256 columns and up to 6 are used for headings. The maximum calendar length is therefore 250 days. For a starting date of ;DEMO Version limited to 7 tasks and 7 months for each plan.:DEMO Version limited to 7 tasks and 7 weeks for each plan.hs f/WARNING 2 - Original messages will be restored.ʐ H/ʐ(`H0ʐhH1M@ʘB:DEMO Version limited to 7 tasks and 27 days for each plan.. t?)The original messages have been restored.tored" N@ʐhH.dDEMO Version limited to 7 tasks and will only work from 2004 to 2005. Using 2004 to 2005 instead of tʘK ` J `1kP%HJʐ: *-H5@ X skʐ +H&ʘD(K J `;k))ʐ H@'H & >`2k::ʐP `.x/H8@*8 ꀬ!<J@ꀮ`&@K@ weeks. Excel sheets have only 256 columns and up to 6 are used for headings. The maximum calendar length is therefore 250 weeks. For a starting date of eforeP L@T .O@  `Jh" ##| i "i"i"i"Xi # i `-The Resource optional field is active. Importing the resource field from Outlook calendar appointments will fire a Warning message from Outlook stating that another application is trying to access Outlook addresses. It will only work IF you do ALLOW it to proceed.oducts<'LN@$TP@@'XQ@ꀶh'`S@ꀸ%hU@ꀼ'lV@'tX@*`J `%(|Z@ 8(<@ꀤ%,F @ꀦ&0G @ꀨ8&4H @ꀪ 8I@ꀰ&DL@ꀲ8$HM@' (" `HHk& i) @`$PO@$\R@ꀴ$dT@@*( 8)(#'ꀾ(%pW@p%xY@X[ @$(=@ꀄP?@I. Proceed automatically splitting calendars every last complete month?ery lʐh1H x&)ʐ8 PH40(@)I. Proceed automatically splitting calendars every last complete month?ant tI. Proceed automatically splitting calendars every last complete month? compʐ6 )8,H3x3xJ +&3`R@kh*i( @p+ @8- ʐ< .H6'***YThe existing Task List will be COMPLETELY ERASED if you proceed. Do you want to clean it?*`+@H2 P++ months. Excel sheets have only 256 columns and up to 6 are used for headings. The maximum calendar length is therefore 250 months. For a starting date of vThe existing Messages will be COMPLETELY ERASED if you proceed and the original ones restored. Do you want to proceed?HWARNING - Original messages will be REPLACED by the ones inserted below.WAH/WARNING - Only available on the CUSTOM Edition.s inser@ )P-i($-M iN(-DX RVV L@X:X @:H @:8 p;6@:( `::@: @: @@< @ ::"@NB 6 GJ:0;@(< ;4 : 8 < X>;x;@;@:(:X;@ @p< :X<`<@ P<<<>:"@R@@>l h<<(><==>><L@=\ @=L @=< @>, @ @X> $@> P@ p%@p> @ @ @ =XVNx@N>:"@HNx p?VXLN` @P @@ @0 H@ @ N ?|N$ &(RAHAA`AB>"F@xAt @Ad @` @AP @@ @A0 @PB p@ 0A 4\ B\pXz B2  6JND@ 8BhBtx hPC(DChC8CD`z  RVL@C@ @C0 @C @C @E @XD @D PC"@@@D @ @pD @E @D @D @D @D @ `@0E H@HE @hE @p X4@` 8 @x E3EXFE@h 0(GpG@GGp@x @XGh x@X @GH (@8 pX @x @Hh KJpCGHH&GGHG@X @H IJI0JHJJxPLpRTVZ@x @Ih @IX @JH xJ@8 @K( @`J @xJ`@J J@J`I\^`"b@J @J`@HK hK@pK``KJ@0K @ @K hKKHKx@K`KpK@ KK(@`KLL0DpLLLK`x HL 8 Mx H MM@NNMMM`LxpMM "X@Nd @(N` I@XNP @L @pN< @N, @N @ @N x@ `@ 0PpOPOQQQOQ6@Px @Oh @OX @PH @8P8 @PP( K@P @hP @P @@Q @P @P @P @@XQ @Q @(Q @Q 0@ @p NpQxQ@` @P QQ@L`Q@D Rh* RSRRR`&xRRfh@(S` @P @@ O@SHSh 03. 3E*\R1*#7777777777778888 N( PP$p  @2(& !h&xDhF " 8 $08 0`8  hB X8 $? D `D 8D(M?Z?HD8 9 9 (9C  09 89 @9 H9 P9 X9 `9 h9 p9 x9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 : : : : : D PD (8 "8 &@?h? x?  $DD3`EDD ? ? 0@  @"6@@h@  AJ8AJ@JA 8 "8 08X> :  $E(E30EPEXE > 0> @>  h>+:  :"6(;P; *:"6h;;  ; @*E;0S>0S; A&E8B,SA,SB 3(< 8 "@ @x @ 80:(: (L(L(L*I58G86*I(  X  p x  (*L0     *@P &x pF8W$8W`$8W$:W$2UC C (D D D D xFC 0Wx0Q`*I H P `p0W0Q*Ix  ` 0W0Q*I  0 8H "*K8 0W(0W0WX0W0W0W0W0WH0Wx0W0W0W ,>0W0W0W0W@0Wp0W0W H.T*Lh*L*L8WX8W8Wx& ,( .TX ,O".T ,OX!.T ,O!.T .T!.T! "x5 8W58W6 2   H "  ? %  p:   p  x   H8H@H 4pH 0HH`HhH  :(XG  00 x20 2:(G 2 222 22 :(G  ` hx @:(G  00P hX   -- $31'P Zx 3  "  2 &( "  08  HXp "  <<6 8@H P6Xpx 6 6 80 6 (0  8 6@X`h  p0x > @ B0@  H H h X ` 8 B  <p0p "x6 <q   B8 @ H    0(   <ph   <q  6f 6f@  b  8(   x         "  XX4:  %p;;66; ;( @ H P X ` h p (x       `4  " H" (" 6"6X"6p"6"6"6#6#60#6H#6`#6x#6#6# P" "  &  &9& #&9' * '0'8' @'9H' "`'9p'='9'='9' "'  (' (90( #H(X( `(9p( "(( (9( "(( ( B  (( )) )%()@) H) P) "  `)  h) (-9, *98- *)`-) )9) )9) )9* )9(* *  p-9P* !@*9x* h*9* * * "* ,- x: `+ P+ ,  -"0++ ,."0-+  .+<p+ * * ,@+x+Bw@,* -`/ , B 2 232 23 3*"(3$X3p3 x3 3 " 6 "6(6 H) (C) OfficeHelp 2006 - www.officehelp.biz]$0]$]$]$x :.@  V X A@L $ V X A@L]$se sel]$hst one  pe: @."yA@o0$ On Error Resume Next.Ver$`$  A@kA@|WK'j= k0($ :."#$'dk8$% ]$]$  In%(""]$$ " o] h o ] > A@C5Input "%>%@!B'C7Input "%>%@!B'C9Input "%>%@!B' Get main header valuesk(C13Input "%>%@!B' DL' Select what plan should be madeX #]$(Macro execution stopped by user request. # col = "C:F"  $B@H  p(! oX# ]0 >!'torSheet '  >B@j $>B@H $> $>B@ $>B@H  $>(  o" P L p%J(N P R p%J(N  T p%J S V9N 9X 9q " Z p%J  V9N 9X 9q! \ p%J V9N 9X 9q! ^ p%J < V9N 9X 9qx! H ` p%J  V9N "9X 9q8! b p%J V9N "9X 9q!k 7 Selection.Borders(xlInsideVertical).LineStyle = xlNone 9 Selection.Borders(xlInsideHorizontal).LineStyle = xlNoneop ]H 8 x B Input "%>%@!BX '*  'F', *B Input "%>%@!BX '*b  ' p ,'Li`= Version Codein COMMON CODE MODULEror h  Set Print Area !999999? 6%9? 6%9 6%9 6%9? 6%9? 6%999 999 9z9 9 99999qo  $!:  $! !(' ' ]C11Input "%>%@!B' No Split'd X ' ' d X X '^'^k   ]PhR V'^k0 ` ](B Input "%>%@!BX '* *B Input "%>%@!BX '* *E Input "%>%@!BX'F Input "%>%@!BX'k , ',  ' ^'i ]$The START DATE for task '@le]$ ' on line han]$ WARNING - Invalid calendar datesX be  R V $L'RNIN]$WARNING - Invalid task dates @ G|jk]$g is greater than its END DATE. The task will have no calendar bar. Press OK to proceed, CANCEL to stop.ter G Input "%>%@!BX     R  $L'  'F',d ta $ 6("--- k] ( R V $L'by u   E $@B@H0i]p H' $G'4cG'4j A@k( @."0X] X(P @."k = AcH'H 'H] 0p0  Couk '$L'eeeeee]$1$] h" 't 'x, Store full calendar length before splittingb< ]$@.PaperSize = xlPaperA4P  &!, eP xS MsgBox Err.Description, vbCritical + vbOKOnly, " 2005 WWW.OFFICEHELP.BIZ - ERROR"  Get Month NamesC13Config "%>%@!B+C12Config "%>%@!B+C14Config "%>%@!B+C15Config "%>%@!B+C16Config "%>%@!B+C17Config "%>%@!B+C18Config "%>%@!B+C19Config "%>%@!B+C20Config "%>%@!B+C21Config "%>%@!B +C22Config "%>%@!B +C23Config "%>%@!B + Get Outlook DefaultsC25Input "%>%@!B' C23Input "%>%@!!' `C27Input "%>%@!B'H Define MSGBOX StringsH Declare public variables (used all over the macro code, on all modules)9 Obtain values from the input sheet into public variables9 Only point of code contact with the configuration values]$Calendar Generation Finished. N NNThis macro is a member of www.OfficeHelp.Biz full family of Calendar Products.hddkF12Config "%>%@!B+2F13Config "%>%@!B+2F14Config "%>%@!B+2F15Config "%>%@!B+2F16Config "%>%@!B+2F17Config "%>%@!B+2F18Config "%>%@!B+2G25Input "%>%@!B'6]  HC47Config "%>%@!BX Yes'J]  C49Config "%>%@!BX Yes'NH Get Optional Fields&I34Input "%>%@!B'& Include+Xk8J34Input "%>%@!B'& Include+Xk+XK34Input "%>%@!B' Included +Xk+X&+X8I35Input "%>%@!B+\J35Input "%>%@!B+\K35Input "%>%@!B+\] x P   C27Config "%>%@!B+pG27Config "%>%@!B+pK27Config "%>%@!B+p] H @ h  Get Task Name Column WidthiC29Config "%>%@!B'zr]$wThe main START DATE for calendar plan (Cell C7) greater than its END DATE (Cell C9). The calendar cannot be generated. ]$"WARNING - Calendar needs Splitting]$The requested calendar has  ]$days. Excel sheets have only 256 columns and up to 6 are used for headings. The maximum calendar length is therefore 250 days. For a starting date of G ]$ the maximum finish date is ]$. N NDProceed automatically splitting calendars every last complete month? ed, ]$The requested calendar has @]$ weeks. Excel sheets have only 256 columns and up to 6 are used for headings. The maximum calendar length is therefore 250 weeks. For a starting date of  ]$ the maximum finish date is  ]$. N NDProceed automatically splitting calendars every last complete month?] X% Get Background and Fonts from ConfigC33Config "%>%@!!'C35Config "%>%@!!'C37Config "%>%@!!'C39Config "%>%@!!'C41Config "%>%@!!'P!C35Config "%>%@!..RanC37Config "%>%@!.k.Sh"] C43Config "%>%@!!'"C33Config "%>%@!.p#&o# ! p!(.Bol ! p!(! Apply supplied font to selection" ! p!( ! p!( ! p!( ! p!( ! p!( ! p!( ! p!( ! p!( ! p!( ! p!( ! p!(p"x$$#h$&&0''F7Input "%>%@!BX Daily'$] @tF7Input "%>%@!BX Weekly'F7Input "%>%@!BX Yearly'F7Input "%>%@!BX Monthly'$]$WARNING - Outlook Security@ %]$The Resource optional field is active. Importing the resource field from Outlook calendar appointments will fire a Warning message from Outlook stating that another application is trying to access Outlook addresses. It will only work IF you do ALLOW it to proceed. $] &C51Config "%>%@!BX Yes'D&P'(" Insert task cells $B@H  ( $B@H p! 9 9q& $B@H  ( $B@H X $X ( $B@H X $X ( $B@HO1 ( (" Insert Optional fields if present NXX  $B@H N (k% 6  $B@H 6 (k% P  $B@H P (k@%o8%]0 0 '  '    $'k$ 'i$$8 Insert task cells ( p! 9qx) $B@H (- $B@H (X $B@H* (X $B@H (t Op  $B@H (+  $B@H (  $B@H o' ( '', *ntmeB Input "%>%@!BX '*  , A@ :."B  Set ObjectsX  , ',  R   $L'Show m  G|jutlook  G|j( Loop to insert blank lines on all tasks to@' Reset Full Task ListP @*B  , Input "%>%@!BX '*H-0. $B@HB@`. Delete content from row . :.@ /$x..!ThisBook.Sheets("Input").Activate.. $B@H ..9. Clean Optional fields/]$WARNING - Task List Reset(T]ask  Confirm Task List Erasing  R   $L'n it?]$WARNING 2 - Task List Reset ]$>Are you sure you want to COMPLETELY ERASE the whole Task List?es. It% Confirm Task List Erasing - 2nd timed.]$YThe existing Task List will be COMPLETELY ERASED if you proceed. Do you want to clean it?-]$Task List has been erased.p  X V A@L/]$(OUTLOOK Task / Appointment Import Wizard ]$+OUTLOOK Task / Appointment import finished.]$*Import tasks starting on Excel row number? inp/P0]$HPlease select at least one calendar type: Daily, Weekly, Monthly or Year A@k kA@k0]$x1pkx1 p!! jti1]$The requested calendar has ]$ the maximum finish date is ]$. N NDProceed automatically splitting calendars every last complete month?@]$ months. Excel sheets have only 256 columns and up to 6 are used for headings. The maximum calendar length is therefore 250 months. For a starting date of h0YR'    @."A@k A@MTH'Hk2(*]  (Z$f ($h'dx3 (Z$f A$f  'A $h'k(3 '&i3, Returns the letter of a given column number2 &!,4 Resume Next4h4]$;DEMO Version limited to 7 tasks and 7 months for each plan.505(5 5]$dDEMO Version limited to 7 tasks and will only work from 2004 to 2005. Using 2004 to 2005 instead of @]$:DEMO Version limited to 7 tasks and 7 weeks for each plan.]$:DEMO Version limited to 7 tasks and 27 days for each plan.(`4 Get Global Output VariablesC55Config "%>%@!BX Yes'F11Input "%>%@!B'53 x (o66 $FALLG'cG0 X 'j6 *X X G , ',j0707C57Config "%>%@!BX Yes'7> Declare Variables for Constants (for personalization edition)] x] ] %] ] ] ] @] %] %] &] 8&]  ] !] `&] &] 8$] '] `$] $] @'] $] h'] $] %] '] (%] '] p%] (h o`6 Currently Set from Constants D* Future edition will allow personalization]$5d9oh9) Restores Config Sheet MSG from constantso Gets them from constants ' '  '$ '( ' ' ' ' ' ' ' ' ' ' ' ' ' '  '  '<  '@  ' ' '  '  '  '  '  '  '  '  '  'A@>1 Set MSG variables from constants or Config Sheet7A@>A@>x;] 8(] (] `(] P;;  N N$B '@ A@> Confirm Message Erasing# Confirm Message Erasing - 2nd timek List 6 R   4 $L'  G|j : R   8 $L'  G|j D61Config "%>%@(Basks Set cells from constants$@ D64Config "%>%@(B < X V 4 A@L]$)The original messages have been restored.*su]$-WARNING - Original messages will be restored.h]$vThe existing Messages will be COMPLETELY ERASED if you proceed and the original ones restored. Do you want to proceed?)(8]$/WARNING 2 - Original messages will be restored.)0e]$vThe existing Messages will be COMPLETELY ERASED if you proceed and the original ones restored. Do you want to proceed?Px? Set Objectsee :."ee :.@e0e>]m Split Multiline Constant$@ D63Config "%>%@(B>& Get Weekday names - Not in use in 4.0?? P@Get them from Config Set Sheet8@ Set messages to Hidden storage.S] anA@> Set ObjectsMHS :."@!B2MHS "%>%@!BX 'B4MHS "%>%@!BX N NB5MHS "%>%@!BX '  :.@ P R   N $L'  G|j Confirm Message SetD63Config "%>%@!BX B4MHS "%>%@(Big " CONFIGB MHSD6 Set cells from CONFIG>D61Config "%>%@!BX B2MHS "%>%@(BD64Config "%>%@!BX B5MHS "%>%@(B(B$@ B4MHS "%>%@(BB2$@ B5MHS "%>%@(BConf B2MHS "%>%@(B A T $`G'T jC]$The existing Messages will be REPLACED by the ones below if you proceed. You may restore the original messages later using the RESET button. Do you want to proceed? `B]$HWARNING - Original messages will be REPLACED by the ones inserted below..`DkxDpDF7Input "%>%@!BX AllkXD Make all in a single run''''D :.@G kD :." E] !P" T  T  'T D Check if it is CUSTOM Editionll b Dk|` Check if it is CUSTOM Editionclam D X R  V V A@LoS|k X R  V V A@Lgi]$/WARNING - Only available on the CUSTOM Edition.`.]$The function you are trying to use is not available on this Edition. Please upgrade to the CUSTOM Edition using the Upgrade Link on this page..C] .'\ '\ G EDITION Constants GxG@G]$H 2006 WWW.OFFICEHELP.BIZ - Calendar Plan Generator 4.1 ADVANCED Edition(HG DL WK MTH YR  DL WK MTH YR DL WK MTH YR DL WK MTH YRF Demo Restrictions  \  V X A@LkkG . Show on emessage instead of one per plan typeG&Attribute VB_Name = "Module1" ' (C) OfficeHelp 2006 - wPww.oTh*. biz ZVersion Code"COMMON CODE M ODULE.PublicLnst MaxDemo Tasks~7 Day2HWee=49>Month@10!hCal/5/1H771WKZTLrux \DL M$TH YR StartRow36EDITIoants0ItsA+CanChangeMSG@FalsmDefine  BOX SngOC_MAIN_ TITLE"CWWW.OFFICEHELP.BIZXendar Plan Generator 4.1 ADVANCED Exdit@QE l!i3!SV+*wi0have no'"bar. Press OK to proceed, CakLADWXCEL_LIM,IT/_n s Splittin gOE DAYS '$Q`S&8has0@-(d. Excel |e N on@e256 columns @and up!6P are`d"Yh(ead s(ma`ximumg'@rgth/thereA`_e 250@Dy@F@aak@`F:@ k#C_4CP#< automat6i`+"s3s every la`comple m?UWEEK_D_zC_S(b wze@2!Ifo( ,kNj"lseC_OUTLOOK_$P=- Outlook SPdrity!M ue ResourcPphal field4active. ImporB 0IasfromAappointme% NfiIt3Ework IF you do ALLOW o!F_UTVv  / A  Wi0zardFINISH| i@Ր!Rp  qes'NeVrnuB_CLEAy%wLipG"etN%exW `@PLETELY ERASifBU Dow`c n  r{"K 20 ? SGRA+$suE ] "2whole"  0J' ubeen Psa ITH^^z u^9 e4/{/{/{/{t6B/{#{^eO{t? ^^^^^{{{a!<P _YEAR_DEMOqrlimit{O7 >will only work from 2004 to85. Using L instead of " Public Co* MSG_MONTH_DEMO = "Version limited7 tasks and 7 months for each plan.\WEEKLY,]weei\DAI-27 day!\RESET_WARNING_TITLE - Original messages wbe restoxred+*The existM'COMPLETELY ERASED if you procVegdto$oFn#! Do wantr ?k=2=2>CT@>> >Nf3fUzhave been{REPLArC@zby7terqbelowK? K`U L. Y Nmay%.&#later u3* button.?QǒNO'available"CUSTOM Edit $+ $funceare try!ruse is pnot L PleaupghradoPh#UaLink p` ' Decl!VariC$ys (po@izaue)AĽ_MAIN$As 8Str`END ERR_S ELCALMACRO_ESCDATESsC"_TASK&S; !_1_2 _3tEXCEL_LIMIT+DAYScu} cM}4 x{ z" ?/ r? OUTLOOKy",0'ÒFINISHYO1iROWCLEAB˅@?FSG @!2_$_$ӧ?3$;UpvU(P^d a!v@lkmacro c0ode,Zmo dulesUNewBookWpb, This_Main5@InputPNameZ, xSTDvaqDEDOtMakeDqypinKYear'$$ݱMAWutSplitB y"sLongLay@o/CoucNaWGlobalMaxDVExtra NRTB$ Real +|qs(1 2)%OutlqColv TLevel TD8linSo8urc  Complet& No!  &7 Op!alFields(3/c+LenDoP8e6 0Star/0umnNumSWidthHerBGPcFP1q;p#[NÆQ/AreaenµdColor As Long, DeadlineMarkerBG Public AllowOutlookSecureFieldsBooleanVUseGri >, InputNLevelConfig4DatesX, MSunte Optio nFlag Sub Set=Variables() ' Currently from B@stantsFutp edi, will a personaliza If IsNull(S) ThDen[= 0CanChange# 'Get themGOSheet52 ) "viskActiveWorkb!MainE _MAIN_ TITLE CStr(Th.&s("MHS").R5("B2Value@[QEND4 & vbCrLf a"5L"End If Else)C' ^sH^conE-@C69 ERR_@SELCALAA_CRO_ES2CBMADDATESBB,_TASK>S BA_1W#2233EXCEL@_LIMITgQ_î DAYS hM[7 4 4 WEEKXHh  IHhOUTLOOK_WARNING82g m&X"FINIStHEb_E ROW CLEAboSX=C?SSG @G6#/SG|W:A:r8#::oH&plBMultiR= Sa(C?jƔ7eR)@Er`asing^@REPbP y@@{0@ R#) ing - 2nd time  aux = MsgBox(MSG_RESET_WARNING_D2, vbExclamation +Cri ticalOKCancel, TITLE2)If ovb1 Then Exit Sub$ ' Set Xls from constantsCONFIG ThisBook.Sheets("Config").Range ("D61ValueyC_MAXIN_O& 3 AuxStr(0m ?41' M.-P3 InforOKOnly֌ < E… GetInputqs(O' Obt`ain vuĉthe i sto public riable@ poi nt ofdentact wpith ur Dim²As Str@($EDs?BmC9'#~F1s f UCa(se(`)`u"ALL"c"NLeve= 1000 Else CLng("0" &4EaC"No Splal1x("G??=z ? ac ?ut?z32?2w&K?=?8("K??;K3??aB c ?>|&E;Task lumn Width qa  A+g3>v% D OptionalC2hGv ?% #PlanAreahPrc end@4AOR ~Mark_K I4VKEZGlobal f@ Va@riable UseGri_hG#5&isU@ !}sȘ?s$s~ia Store fu@ll cal0ar `gth befsplitting Real[ST4GTxlH"rDim aux A s Str , msgQ#geB`CMSGa= ""3E[ActiveWorkbo'Uo?ғp2#NR?Ba#Chxeckǘ Exit `S'xmo P0@ on$ItsADe`AFlag1' Show on esagDst[ of`e@ per pA 8typqMs gBox 0_DAILY_DEMO, vbOKO nly +In'm,MAIN_TITLEs Ň` YR AfMakeY8earDL0" OrB"WKMTHYR"o L!W ?Q  F aQ' @3i` {Mvhfgُin0 A.in.?0WK+WxP9"x  qR"K' DLDai"! -sinDL(S/7XEERR_@SELCAL_Eor_EWEEQ (GENDiJi4 l:@j.NumbR= 18S5i= #(RMACRO_ESC1Excla RSRu ׵eIf Err.Number > 0 Then  ' MsgBoxDescription, vbCriti cal +OKOnly, " 2005 WWW.OFFICEHELP.BIZ - ERROR" 'Resume Next End If Sub  SetColumnWidth(cl As String, w Integer) ' col = "C:Fk;s7).Selecp g..w@@CreateOutputSheet(NewNa_D=Dim0 LasJLogP  u= sEunO4g" &0!Add ,(+ 1(& sIMove After:=C(F@9BN UN1MWMakeBorder(w, iNBoolea>n1mj s(xlDiagonalDown).LineStyle@pxlNone _Up With@EdgeL8eftBC Continuous WeightorIndexB-Automa AŁ!C$hTop# ah9t@__$_$_$la6R/???'i>@-~1 2QInsideVerHOaR% .SxlThiCEV|Horizfalk b !Ei'_3l" 9!Func CoTasks(&)A !aux#xA= NR#)SiSReal$CT`LcY! ?y`%  OnAor z #UXl2yll2u, CNTGs pw!wC("1sik.q"In ").Range("BAStartARow).ValueT-P~1:2= 01Whi0l7<> "EPCLng() <= "NLevels)rD1怑1S_hi_t\l?P- u2@Wend %$!`  e! CheckA D-T Q 4 ! S3sd!!, emsge#, f|la1,=p TruĈ(ST)`_CGEDCW=Ը(MSG_DATES_MAIN ExclaonTITLEU Fals E!O0O0O0kN00L0100!O _O O G ?,Q <8oy!7Ats(AEA_SQ0&ooGGF'@ >+%i%%TASKxS_1@PPPGo 8(20& 3,vbOKCancel,,_ - P3 p<= 04FIo ? [3@*]WVVSV?V*unction Sub SetPrintArea(a As Long, bU(c(d()~ U'    *On Error Resum@e Next2AveSheet .Pageup. = Cells(a).Address &0 ":"c, dVWith [.LeftHeader3"" Center Righ(Foo( ( (Margin(Applica.InchesToPos(0.|75jl)1Top 1 Bot8tom CW 0. 7J0BingsTFalseH}GridlineCommdxl Noorizontal lyPÙVertvOri@B}xlLandscap .Draft'@perSizeP@ rA4A)FirstnNumb`xlAuK9 cOrdxlDownThe nOverBlackAndWh it M+Zooma.Fit`X~shWid1h T'End {CFGoTo 0`AACopyF`0(F!W' iy sujed f  to` sele&iS.A.Bold!C,Col 0= F."wIndexb Styl"+rrI`Mic CNaA2Out?`A LF.3hadow SBtrikethrough)subscripb`.`>t@bU4r!!b c lMSaveTaskDetaiL"Levdele, >Dm`L@!SSTDa j Variant, EDNAB:%Per cDone Do uble,ourcbCatt] ' InsI t cqx4y , 2).0cwy*rmulapR1C1,\ 3{W5IxioF3pt;POt x!sxlSolidCK 4O iveO E4ts(5OOC!(GetqOnPly(C())T 6c#', 7&d"Opal fields if plIf CDblB()) <>0) etp9 ?&t&QIfd 30""?U;, 10OODeO 1@6 11`;P+ ZIF &DT(? Dim aux', PAt= DTeP8In+p,0 " "+PP > 0(0P - 天  0 e F~lean)T8u  ?Ms 'ThisBook.s("Input~"1PXz)OtÏ33NullOOerOr24?OaOi, O [ ?O!DSMK ' Ca# \KG_9T9!2mD'lA1 z@S0JDetC2st(p1' R0eset Full Task List Dim CNT As Long,lIndexHStriPau8B  SetMSGVariabl$es,' 0 O`bject(R ThisBook = ActiveWorkbL Main&,' Confirm Eras = MsgBox(_CLEANING_WAR , vbExclamation +Cri ticalOKCancel, !TITLE)8If 9vbwen Exit Sub[ - 2nd time׃&`2Ba20sE3Loop to insert blank liPnes SatĀAC= "" & C(B.Sheets("Input").Range("B StartRow).Value-= 0C% While<>@.' Delete content from rowCleanL@2 H @=+ 1:@N@:;WendCCӨ3InforȹOKOnly[% ER"X Fun w@;ColLetter( Num;!):p' Returns 0the . o)d gn 0lumn numberÐout',"j/lDjSCXPfe F" OoxME (SLSS<N0{00020820-0000-0000-C000-000000000046}(%@h %h %Xp@@HH0ExAttribute VB_Name = "She@et4" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2DrKٞ#>uiEA | F Q{Lul; xME (SLSS<Sheet5QQModule2__SRP_4.__SRP_5cN0{00020820-0000-0000-C000-000000000046}(%@h %j %Xp@@HH0ExAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU $`$`$`(`((!`(PI`$ (E$*\Rffff*0V45fdec0e*\R1*#d7*\R1*#e8*\R1*#1c4*\R0*#f*\R0*#f*\R1*#2c*\R1*#10*\R1*#1c8*\R1*#dc*\R1*#f1*\R1*#f2*\R0*#2*\R0*#12*\R0*#14*\R0*#1$*\Rffff*0U45fdec0e*\R1*#d7*\R1*#e8*\R1*#2ac 0p  & "  0&H  "  x## & .#&#  Z%%   p  ,  9 %`4^@@uD$%icٞxxME@ L`8`4+`kyy?i& @($ @ @@ D@ @ `.X`0P`2h L `40 H `,D`6( `k(44 i& Hi>hp iii.hi0 i2$i4((@i6,`@x`BHt`p`Dh@( neeng`bX8`d0`f. `p(X  @"<D HJFP@@ @ @p  @  R@  u@ head@ | nd@l  2@\ g  (( @@  ` DHJF@  @  @x @0 @H @  < @ @ (p@XP ` x hFn@ P @ @ @< @ , @ @ @8 H z@pt@ @P @h @@ @X `@ @` bXp\fh@ 0'@@ p'@ (@ `(X,@ 5@`5=n4@( @@ @X p@p| `@l @\ D@X @H @D @@ @< @8 `x X0h(p@X(X`<Dn`Rp<`T 8H`V4`x0@ @ `80HhPH `px0H@H @, (@0 @ @ p @( @@ @` @x @ @ "JH@xt  @(p` @ @n @Ph 4h( (@d P @T x"@P`"P&@ @ +@H<` + @8 @X( @p @ @ @t$ 4@ @ `5@ `8D@ D` Ux@`HU @ (@ `bm xH``  (@`hx`x`0(<D"@X @X @0 @p @ @@ (@ @ @ @ (@ @ @ p@x @h @X%@d`@%X@T 5@P`5@ @ G@H<`8GH@, 0p U @(`@pHU @  @ @ @ @ n<pDF@(X @H @h8 @( @ @ `2T`4L`H (@` (x8@ ` @ @ @x H@@`0@`XxPt$ X@  (`H(xPh8`P@`\K@@ `(h" ` `"  8 ` P4@H `8"`(t p X `*p`l`h`,d`` @(" 0   "& ( P  H @h  @`  @ + 4Y@x P0V(+  @ X h px 4^$ X 8 "@&HP p  &2E0 16 ##   8p$Ap6_  *  "       $F :h (08 @HPX ` h *p     !` "    x ( 0   *@F @@P (   DX    @Gx@G 7  :*p  B  &( H P !   <        ) 8 @ h` x #  A2  " % <k8" *        $#<k! " E! *8 H P   X  ` h %"5A  *        )     :P  ( 0 8 @ H  P X `  h  x    40               (H#    (  A  *0  @  H  P X  `  1h       &H  :            (  08 B @&# Hh p  0-  (  0Y<q2a.X0Yp  0Y 8f(0Y`0Y@H2( $ h `$ ,(  = "x " `  *x      + ,"*  (@  h p  E   *     E #% "    E  "@ $P ! *!(!0! 8! " :@%x    E " $ @! *X!h!p! x! " :`%    4: 8p$ $ $$<r$<r2b.Y0ZX80Z8g0Zx0ZH8(    "  .(@X p E6   ( C *@PX  ` $h $ &  )H2% *  (08@H PX` h  &x@ On Error Resume Nextily  Create Calendar]k ' 6(8 `L% Check if calendar fits (Max Columns) @." X'0C9 X'2%> X'0X b' 2' X'!B X'', X'Input X'4%@ d' 4'd  0$D'.d .$H .$J$F$D'0 , GA@j adA@kop]( ]@Xp ''^F'f9 Calendar loop - while the set finish date is not reached X'Input '(G Input "%>%@!BX '( 2'bD Input "%>%@!B'4d  0$D'. d .$H .$J$F$D'0 0'd fB Input "%>%@!BX '* "A@dd d$DX 4X$<X ',d d$DX'0  d  0$D'. ^G'fj‹ . 4 4'. 4'0dd .$H .$J$F$D'0 k , G'^j d d$D'b 0'd@C Input "%>%@!!'2Ino](@Xp Select Output Sheet` (GOutput'(j` CreateOutputSheet NewSheetName B@l ` %>B@H  ( %>( Set Generic Headings4ARQ@A@n]P b$f $h'b$@ p t9r t9v9x9z9|9~9q p! 9 9q A@( A@i b d$pXA@n p t9r t9v9x9z9|9~9q8 p! 9 9q A@  Insert Days $'*  * G '*j Insert Tasks  & G '&jkP &$'*$ Insert General and Headings Borders*0U SheetG  *  'jB@ Freeze Taks (  Set Print Area Move cursor to top$B@Ho`]0H`x ] 8PE Input "%>%@!BX'.F Input "%>%@!BX'0d  $<X ',  ,   ',d , $DX'kk]F  , Insert Dayd  $D' $ ( A@( p( p! 9 9q "A@  $B@H p! 9 9q Insert Month Name p! 9 9q@  '  ( ' A@(  n   $B@H $ p t9r $9v9x9z9|9~9qx ' "A@kX kP  , p t9r $9v9x9z9|9~9q "A@k  Insert Week Number'k ' p! 9 9q8  ' 'W  ('  ' k $   ,  p t9r $9v9x9z9|9~9qH k@ "A@( ,'i ]Xp] Get Main Datesd  $<X ',  , d  $DX' MsgBox edatekk Get Task Data .X X G '.j 0'6 0X X G '0j * ( ( *X  p!(d *X pB@8k &  X X .X 0X 2 4 6XA@ k , G'*j  , ',  'K Input "%>%@!BX 'VJ Input "%>%@!BX 'T0I Input "%>%@!BX'R 0X X G '0j! 0'6F Input "%>%@!BX'0 .X X G '.j'0E Input "%>%@!BX'.D Input "%>%@!B'4P 'i@]H`x( Check if task is within calendar limits 0  G|j .  G|j . 0 G|j Draw task bar nd  .$< '@d 0 .$<'B .  'Dd( .'Dk MsgBox stCol, , endCol B &  B p! 29 9qd D$D'Dhd D$D'D MsgBox cntDate, , RealTaskEDate D 6 p! 9 9q p t9r $9v9x9z9|9~9qxkpkhk`oX) (C) OfficeHelp 2006 - www.officehelp.biz Version Code DAILY PLAN SPECIFIC CODE MODULEd X X$<X ', `   WorkbookG h!j.jeHTaskB  $@(B.B  :B  $@B@H b$fD$f  'n `3 Increse Start Row for next plan (if in same sheet)  $   $$@B@H   $B@H  n  '  $B@H >  @  $B@H] ( @  Define Split limit   G 'jpdk0] Define Split limit   G 'j G 'j G 'jA@ ,    'F'F n'k *$'&jdk Sheetlop ,    PXp A@rder A@Cell  $   & 4 $$@B@H  $ *   & 4 $$@B@Hx  $   4 $$@B@Heeeeee  $  $$@B@H &  G &'j  ,  0  .  P R $L',Hp $J ' $  $H' 4$F@ B zXA@n Optional ColumnsC'b d d$Xk d$\ b  $@(B b  : b  $@B@H( b: b$B@H *    4  n  A@ *   & 4  n  A@]0H`x0I Input "%>%@!BX'RJ Input "%>%@!BX 'TK Input "%>%@!BX 'VC Input "%>%@!!'2X'RB Input "%>%@!BX '* " Insert data into optional columns'x  % Done$X *X     x $B@H R (0% p(:k x 'xk Resource$X    x $B@H T (Selection.NumberFormat = "0%" x 'xkH Category$X    x $B@H V (Selection.NumberFormat = "0%" x 'xk % Insert data into fixed heading cellsh#  Paint BG Colorr  p! Wit 9 9q!    x $B@H Paint BG Color . p!Soli 9 9qx! Paint BG Colorr  p!e 9 9q8! Paint BG Colorrt p! 9 9q ]h $  $ G 'cG 'j$ ""X%   $B@H#  $  $  $ G 'cG 'j# A@ _ A@ g A@ P# A@ p!(# A@"( # A@"p"# draw vertical background line#@ $ ## Demo Restrictions   V X A@Lk## Set Gridlines GA@Fj8$]0 h      'F'F',F'$ *X X  1 Increase calendar line only if the line was used  '  'kX$G Input "%>%@!BX '(`$ 4$F ($  *X G p!(j *X G p!(j$  \ G'jS DEMO and ALL MODE: Use the most appropriate split for each calendar (better demos)% \ k%%Attribute VB_Name = "Module2" ' (C) OfficeHelp 2006 - wPww.oTh*. biz ZVersion Code"DAILY PLAN SPECIFIC CODE MODULEHSub MainDL()DOn Error ResuNext CreaCalenda@r Dim9xDays As Long, NewSheetSMaxLidne)Au :FWC2D,/Start2^E@ 8= 0j C ' Check ifiHfi(lumnISet@isBookWorkb a= Abs(CLng(!YDiff("d", CR()EDa)jSrTb))3@g=$fA8Add '- |1,! s SeJl(Year_A" @K1-1 9!8!L8|>=aekk)#l(A!lEXCELlYSLIMIT_1h & &bp-2  )3)4zYesNozExclazc#ς{d!l'vbCTProceeda-hsDL#:E,>x (1@CHqAh)) +u>$b aq!Make4ƥ"s!K __ϩր<7_π_, fAC @~leanuurrA5u&a md2f 11xcS2= True: ImWSW\WWXd;y[Wi>SWiloopqhil3msV  d!mis not chedQe7JXs 1!`!= ayX_XM\-[ןXQXe 1%d,(r W2%q#CDi LDWC [rra; )sutWteyOn:q ouofD= ҩ_=A4  >y[r? WDI,o o_?)Q߁~ ځ 90r<*w Z)(OFcWnS0Gf0 p @q@tpebSؔcpq2' gQllQg,Q9LXEB' Select Ouzt $fPlan$fk@"0"1!b?"C2zCount0 OrZLay0 `xs.0$Ӄ.Av@h[s(1).Sel@ect NewBook.SheetName = `L8' Set Gridlines(If Use(pFalse ThLen^2eL^ 05Peneric Headi ngWjColumnWidth "A", 2.299 BCDbl(Task;)2Range("B" & 4 + PlanCount).Valuy""( ":#(6 $Wi[ion*.HorizontalAlig nmentxlCerVerticWrap8Tex"5Ori*at@10-AddIndM ShrinkToFiMerg@eCellsTrueCEnd = `"!   DL(`> GlobalB}+ 2{ # u q uV3|    @S'  G^alE sbN2o;M0)Xp"L 0@' + Extra` )낯.igF/-jp/ Kq  k Freez ak/tr6_nActiveWindow.Pa`*'[Veq Pt pAreaS!&1vSplitByLay@~= """5' 4p, ntC+/'pF20B - @E# wo#@?n!J7,AMs' Move curs`to top-1, Sub Fun@#on<1>>mlX@ Long) Dim sdate!Dp, e N, auxalf>rqAg1ncox`sweek1, wflag֘lea!mn As St,g,t o w, s ll2Wks%'cg (Tds9ED= Abs(CLng(Diff("d )) m0;%_ӱ1@r- 1!1+  Od@D":= I:#=p08CP#= _Fg a 5'=Ђte& , llr&+'=555, ncol).Sele ct ActiveCell.FormulaR1C1 = Day(auxDate)CopyFont Hea8der8ion.ColumnWidth3DIf WeekdC\ 1 Or7 Then Qor*PlanAreaEend0Else %BG3}WiGRInterior^orIndexG7= PatnxlSolidaEnd 4M@akeBor xlThin, FaY' draw vertical backgrou#lin>e#dXO ll2<1 To ml&NJs(6 + + C1t, ncў d? e fgNexD' Insa Mh Nam_wn2? - 1Bm `Input s() & "@& Years(4Q^PbOKNTc='&QoB<> cuKB"'" +C =# Kz M > Start'Num" ARange(#W,.saV,Š1>~) aK3/a. Horiz@MalAlignme =`CeVKBottom WrapT\R% .OriYat@ 0 AddB ShrinkToFitMergbsTruneO%4!?; If' Kll` (Ays)I?ILߴH=HG.#&#._#f#7"." ._"" w_ `CbY8` q̋2 wflag#,A C=4nv  s#qu`ܜ+#.tlB_t 3#/`sw𞏠9a"'WaN7Q uoG ps+ycH)6Qz@"`n @|)eeOl`ExtraA V A_eςEAxlAAz8AAW.A_AAA<*?B9BסsDLp$a QFunon !$Task(max1As Long) Di@@ѢQStsg, ȠE`(,ҶCNT%@&NTTot GSq݁q3E/JDpQɱ$!1 WPercDoneDoubleResourcrECgoryz,* Real: A&' Get MaDin@tescsVdCa(¹STeEDE= Abs(CLng(Diff("d", d, r))TDItsADemo|BӐ%>= x1Q%?D a3SMa`C6' MsgBox edate End Ifx X' Get Task Data8Name = CStr(ThisBook.Sheets("Input").Range("G" & StartrRow).Value)NIndexO"*T YBYCol,orYJC%Interior.!QXDeadlin-DR&S7E'If C#ۂ,) < s) ThenBu#EMwF#}PercDoBKCDblX("0 NIResourcO JC@gory ?KReal?@T[Jk) >>DkHkll) + 1: ll27: CNT0Tot a 0CWhile@o<> ""CLng(H~A{NLepvelsA' Insert Ma into fixed hfing cell*skCA(+ PlanCount, 2).SelectActivea.FormulaR1C1 a opyFdK aaP3= >0z A .Bold!ruȿEls,Fa?F.C%HKaGopt/WcolumnG>C ' % /Ꭻ'BXO Fields(0qYtS3`m$TcJ!KdK La.>dk/N umberBatq@/"0%NqCBoB/+Q TS((X+  ' El_*R*1_*{  rm00" 0onal<0C0"C"3(3eY {S%%=f&%H' { %%2%%%%%% C?%<s| %%6%%ә%/$%%%%%nnt%F%%% DrawBarDL maxy,,㬟"),C.ۣ֥Jt уcrease calendar only if thewasp use<1дEqu?A`OMll%?ԋ0.Value)  TaskColor = ThisBook.Sheets("Input").Range("C" & ll).Interior.rIndex Deadline DT FSDatCC(E IqIf A)) < sd1)}xen 9 FEFFFReal4'6 X) >=Xe X# XPercDoCDbl("0IQI.*ResourcQeStrdJC^gory@C!2Kll+ 1G@CNT@VItsADem>oB} AA^@ >= Max=sº"" End IfWendGACInsertDL%Total AFunction ASub DrawA BarDL(maxcol As Long, xnumB, ‚õ@#A#GJ#@ Fy}4iKX nDim staC!4ccnta!&' Check if tv is within cal ar mitsD+&fw< C!ThyExit )!>d$'%p'51bar # = StartPlaBn umnN6+ Abs(Diff("d",,)$$'=Pf X!,.= ElseQ ]' MsgHBoxc>, Ond#D<= o$XA(FA= 0 To !Cells(]+ )unt&L+SelectKW@F  kF֋a s@od9e.PatnxlSoli,}!yK ->Add>81, $= Nex4-Rf11t<! UCasWAa0t> ""OTa RAMve.`mulaR1C1   MarkerBG12O; q.Horizon^Ali@gnment#CMe?&.VbiN+BottomrWrapT#9Fa<"D.Oriaf0}.@*qn   `rinkTo2F`V= Merg s UQut^qd1@ O (]/\M@ O (]/6 vPpV v6pV* $ W5ttqpkVD %lpC7 %lpC8 qp+n ;5V\M @ O (]/\M@ O (]/6 vPpV vQpV4 ddEl4vi %lPi%$ X$5* $ W5TTqPkVD %lPC7 %lPC8 qP 4fd%\M @ (Up>55k>RS*F\M @ `1D6Avi %lPi%$ X$5* $ W5@@q<v6i %l?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]_`akcdefghij^lmnopqrstwz{|}~Q %. %/f %0( %1f %2f %3 c %4c+n ;5 Xf "qxP L4 tT@D@0 8  y  y -  FqD6lD(9  N6YW$#*F%:X%" X " d#YAZK1t/)6q:+$#*F%:X%" X " d#YAZK#*1p2)6 a<$#*F%:X%" X " d#Y=5A7"qL/)6XD$#*F%:X%" X " d#YAZ`1H/)6Y[$#*F%:X%" X " d#YAZNtX/)6oXN~ OtXY\$#*F%:X%" X " d#YAZNtP/)6rU~| nDAAiHp&CATYTT9UUV)HVVVx9BaBWAWQaWIp)8yWWWAXXXX)YaYOOYaY`0Y1ZZYh! Z9QR[1^(]]^AHBBTIJ^^^PI[^)_I_IQl" D$ D Dd ub.''M@@:4N$$ 6$ u{ {vqHlH qHlH qH v 9y y $  Fql6$y t\%\M4@9 $ $Otd5$^dM4@$ dM@ U$U (B9  Ot\6 $lllH+u'\'|M@4vll#*#v*F$o\4vFodvF^ql26$|\ll( d"llvvY b yZ l(t4 D$|\pJp.vq(l(6 q(l(N q(y tTy tLoTt8y t\+\M@l(9  Otd5YdM@ dM@ UU 9  Ot\6o\t0k.o8~ o0~  V0M@9  oLN  Fql6 (0M@9  Nt\6+\M@l(9  Otd5 kJp. odoLoLtdoLt\S^dM@ dM@ UU (B9  Ot\6  lll(hpJ$0M@9  Ot85o\t0oT~ oL~ (t \vCt lt0Ctvv0d.< '@%P$ P ( QlT?;+= )FlT@F,%P'@%v=v#*F%$ P,/P5hP'@%v=v#*#A*#v=*#v#*F%$ P2 P5P $ QP@%.@%/ c@%0(@%1f@%2f@%3 c@%4c*P $ PW5qPv6i@%lC7@%lC8 q 9 :+ ;5!v= B C`=5 Tfv= BD B{E ^Fqp8lp8 qp p^Gqx lxvH[lx{Hzlxz qx x^Iqpvi@%(%P$ XPlpvi%lxvJi|%<$ X<\X\$ X)PElhvi%l0i%$ X$5* $ W5TTqPvgi%lPC7%lPC8 qPlpPElhvi%l0i%$ X$5#o2Elhvi%l0i%$ X$5"l8F%$ (,* $ W5@@q<vgi%lR Elhvi%l0i%$ X$5"l4F%$ (,* $ W5,,q(vgi%l(C7%l(C8 q( j :lpPD +c% $ WdCe5l0q0:o(HLoPoXNN hl k$lhqhl`q`r:Wll#*F%:X%" X " d#YAZK#*1t2)6 r:+ll#*F%:X%" X " d#YAZK#*1p2)6 b<ll#*F%:X%" X " d#Y=5A7"qL/)6YDll#*F%:X%" X " d#YAZ`1H/)6Zl#*F%:X%" X " d#YAZNtX/)6oXN OtXZ\ll#*F%:X%" X " d#YAZNtP/)6oPt(oPN7 OtPg:]^ll#*F%:X%" X " d#YAZHtxME,@< <|<X# |0`H Xk00`&x`(t0` t%`*p`,l`.d `0\ 0`X `J008`&x`(t8`*p`,l((`.d `0\`2T`4L`^J ``@``b8`dp0`f. `0( ` 0ktth`&x`(t`*p`,l`.d`0\+`HkQQi `p`h`d`\`X`PV`P` L`J `D`@`8>H`8`d\+`k{{-i& 6\ VXL@@ @H0 bD@( @ `.X`0P`2@L`4(H `,D`6(  `(Pk0XX i& PXi>pxiii.pi0 i2$i4(0i6,`@x`BPt`p`Dh`dT h il @@   @ ee@ `X( h```dX \`X j`8 k in( ip(` 0 @0 xtj@" <DHJF@H @ @   PR@ @ @ @ x @h @X x   p 8  h p@jl <D  @ H @ 8 @P ( p@  @  @ @ @  H`xp@h0hFn@P @@@ @X< `2T`4XL`H`@D@X, @ @ @ xz@pt@@ @ @ @ @ `X@8 @@`(hhbXp\fh@ '@` (('@ p\@ `P,@ x85@p``5=nb4 @ @ @ @(| @l @\ @X @T pX(@P Xp[@@ @< @8 @04 @0 X@(`h88``x <bDn @P X@ @ @, @x @ p@  @ @0 @   p@x 0@ @( `Rx<@P`@JHH"JH@t@~ @l h('@h`PP' @ d @T @D @4 @$ `4`Ph0H@ @x `81 $ @ ` x@L`xbD<bD"@` `0&`(t`*pH`l`h`,d``@ `Tf 0`X`ppX0H`@ @0 @ @ @ @ @H (@ H&`T8`V4H`x0@ @ @ p@x @xh @d`(X@T x6@P`6@@ H@@<`0H@, XV@(`@Vp@ @  @ @ @!(@ (@ 00hP0p!@X hn@p@XX @H @(8 @@( @ @( Xh@ @ @ @@ 0@ @8 @ @ @`(jt<D@ @  @  !@P `( !h .(@p @x l  P :@ h  x : x <(pF$ @X ! E@T`0! E@P `!I@!8JFX"( p" 8!!!!!!#(H"# #@ @ @ 8! #  """##8# " nv# p E$*\Rffff*0W45fdec0e*\R1*#1c4*\R0*#f*\R0*#f*\R1*#2c*\R1*#10*\R1*#1c8*\R1*#dc*\R1*#f1*\R1*#f2*\R0*#2*\R0*#12*\R0*#14*\R0*#1$*\Rffff*0U45fdec0e*\R1*8 @HPX0V`(+     4^HP$h   "&X   & 2EH 16 ((   X$$A6_ X`hpx  *     0 Hh  ! $F :h 08@ HPX` h p *x   '  ! ("     (@H` h   *xR(( L'    $F      D     ( BG!@ BGP!H P 7p  : *  B  & 0 H   h  x <       )   *!  #0  ?h  H   * A .#( 8' %`   X  *p           %  "5  A  *0 @ H   P  X )h   P' :             ( 8  @  H 4X                 B &p) #@ H ` p-  (  0Y<qH2a.X0Y 0Y@px8f0Yp0Y 2()  ) ,8# =  "P `' % *%%%  % + ,'* # (h   0#   # E& & *&&& &# E #0%@ 'P  "   E8" "x" $" & *0&@&H& P& ' :+"   " h# EX" "" $" X& *p&&& & ' :8+x# `   4:X 80)   )<r<r2b.YH0Zx0Z8g#0Z#0Z $0@P Xpx  "  ($Bx% *8%$H% P% .  02 <  H   $ C * %%   ,) *(**M@**K*-) (p*) *   *8  Ep6     $ $  ) 2*0"J** *(0 8@HPX`hpx  8 B 8    `6 &%  h (0 4M(X     + On Error Resume Next Create Calendar]@X 6(8( Define Split limit Colum% Check if calendar fits (Max Columns)< @."(d X X$<X ', X'0d .$H .$J$F$D'0 , GA@jd ,    A@dpA@k`kXoP0]p]0H0]le the'^F'f  Define Split limitull fa9 Calendar loop - while the set finish date is not reached X'2our ne X'4or det 2'b X'03 20d  0$D'.ard .$H .$J$F$D'0@ 0'd f b' d'A@dd d$DX 4X$<X ',d d$DX'0d  0$D'. ^G'fjJ . 4 D 4'. 4'0dd .$H .$J$F$D'0 "k` , G'^jd d$D'b 0'd  2' 4'o]H`x Select Output SheetAs L '( (GOutput'(j CreateOutputSheet NewSheetNamert  WorkbookG h!j.j'b B@l %>B@H " ( %>( Set Generic Headings(BARQ@A@nTaskB  $@(B SheB  :B  $@B@H p t9r t9v9x9z9|9~9q p! 9 9q A@ A@ b  : b  $@B@H(B0 p t9r t9v9x9z9|9~9q p! 9 9q A@` Insert Daysn$'*C4  * G '*jk` *$'& &  G &'j Insert Tasks9  & bG b'&jk &$'*$ Insert General and Headings Borders A@ Tas b: b$B@H A@t Ge Freeze Taksorde ( & Set Print Area Sheet(d`k  Move cursor to top!$B@H3 Increse Start Row for next plan (if in same sheet) SheetG  *  'j 6%op]8Ph ]](@X X'9 X'd  $<X ',  , b b ',d , $DX'kp kh  ,  Insert Dayd  $D' n P ' ' p( p! 9 9q0 "A@, P 'Pen Insert Month Name $J 'ecol $  $H'@!  $B@H p! 9 9q  ical'  ( '  n   $   $$@B@H p t9r $9v9x9z9|9~9q ' "A@@k k  ,!  $  $$@B@H p t9r $9v9x9z9|9~9q "A@k8 P'i(  ']`x] Get Main Dates X' X' d  $<X ',$  , bd b $DX' MsgBox edatek(k  Get Task DataG Input "%>%@!BX '(B Input "%>%@!BX '*ain C Input "%>%@!!'2D Input "%>%@!B'4E Input "%>%@!BX'. .X X G '.j$DF Input "%>%@!BX'0 0'6 0X X G '0jInpu *Inpuk    x $B@Hk *X @ p!(d *X pB@8 x 'x$$X( R ("%0% p(:Xk &  X X .X 0X 2 4 6XA@ "%G Input "%>%@!BX '(B Input "%>%@!BX '*B@C Input "%>%@!!'2(D Input "%>%@!B'4E Input "%>%@!BX'. .X X G '.j 4F Input "%>%@!BX'0 0'6 0X X G '0j8  '  ' , ',  , G'*jkx 'ih]Ph@!( Check if task is within calendar limits! 0  G|jX .  G|j( . 0 G|j%> Draw task bar 'D) (C) OfficeHelp 2006 - www.officehelp.biz .  $d@ .'Dk0 B &  B .$ >  @  $B@H p!q D 6  (do Version Code ! WEEKLY PLAN SPECIFIC CODE MODULEX((  ' k]'F'F n'F'Px  (+ Insert week number in cellx $   , # Insert week number and format cellh  $B@HX p!]ay 9 9q@ p t9r $9v9x9z9|9~9qkkk 0 i]pH  dHd p n$<'dyd]X p   ' kx Calculate number of days Iterate finding the right week Initiate flags'X X'jd  n$D'P 0  $j'B A8 lX X $   dG X 'XjX X 'X`H Adapted from the daily version B @ 'Bsubtract start col to make len .  $j'@ ( Adjust GlobalMaxDays for Weeks  X '0 nd  .$< '@d 0 .$<'B .  'Dd( .'Dk  Bd D$D'Dhd D$D'D$ Add Deadline Marker- Reloop as days @ X8P 8 d   0$D'.@ ](X x t x$j' G  'j` G  'j    G  'j    G  'j ! '!!! ,     % @! '"!H A@eeee !  & "" Insert border over each monthh""0 ( (k!J Input "%>%@!BX 'TK Input "%>%@!BX 'V0I Input "%>%@!BX'R! 4$F" Optional ColumnsC'b] d d$\ b  $@(B b$f $h'b%@!BX'RJ Input "%>%@!BX 'TK Input "%>%@!BX 'V%B zXA@n&    0  .  P R $LX ',d for (" Paint BG Color before drawing bar 9 Draw Bar@% 9 & 29&p& p! 9qh&&%' >  n$ >  n &X  $$@B@HH@( p! 9 9q(&  Paint BG Color x& Paint BG Color  p!= 9 9q& Paint BG Color p!`& 9 9qH&@&    x $B@H Paint BG Color p! 9 9qP'' A@ction.'( ( A@  ( A@  A@ction.' p!((( A@ A@ A@ (  $   & 4 n  $$@B@H$@`(  $ *   & 4 n  $$@B@Heeeeee( Demo Restrictions   V X A@Lk(x( Set Gridlines GA@Fj( *X X k() )@) 1 Increase calendar line only if the line was used@)](@Xp  'F'F',F')k p!( & In first and last column, include day   B G' .$ (j( t p(r  BG' 0$ (j)kk  4$F ( ('( 0$) ((jX* *X G p!(j *X G p!(j*S DEMO and ALL MODE: Use the most appropriate split for each calendar (better demos)  \ G'j* \ k++ŶAttribute VB_Name = "Module3" ' (C) OfficeHelp 2006 - wPww.oTh*. biz ZVersion Code"WEEKLY PLAN SPECIFIC CODE MODULE%Adapted from the dai0ly vN#Sub MainWK()iOn Error Resu!Next CreaCalendar Dim9xDays As Long, NewShee6t S Ma xLineAu FinD2,/Start# ((`n- 2) *!Fc[=1 = 0bNc' Check if'?fi c!`lumn?Set isBook gBorkb ~= Abs(b5!Diff("dP", C(H')j') `G?$Add S,,A$ d3'l Seel(YearA#\K1-Q`4(#9>) i>>=AdC):CX,",(EXCELbSLIMIT_1 & `2'-3E-4YesNo`rvbExclaə)0A`% vbb Proceed0sWKC!E,,1`L+z)-P>$h?G-! qqMake02tU RZ [PzzA{xx x%{@w3|P.xyxxte, fn`Alean=urrqц7&a }1t2f 1 cS2= True: Ipq?a2S?aPl7aP*=o\@o\c o\`\u{loophil>s`[p `is not 0ched%_Ve9HJnKqSP ?`$Awte\# - 1_\61- \Q\e 1Il*YuW2'?Fri LDWF 7Swxwa; )yxρOxt  x jo"a2>»#bE?1 5u>p DI_ga)D?)Q߅, օ 0!<* Z)"cWpS0޸f0r| s)wse1ess pqU, MaxStartDate As 8 Dim llxLong, AuxLoop@ ' Select Output Sheet8NewName = InBPlan#|If $""` Then_"uCrec 0\mCount~0 OrSplitByLayer"Workbook=Set&Bs.Add,Y.ActivC Gs(1).t Gridlines Use LFalseӀX eL  (eneric Heading+ColumnWidth "A", 2.29CMB@CDbl(Task0) Range("B" & 4 + `).Valun"Ar ( "2:(5 KVWic-Zion!.HorizontalAlignm"exlCer Vertic WrapTex#XOriat @f0IndElShrin kToFiMergeCells!TrueCEnd n) -Ac("D"4S'Ins[`~yDp fs(ABtsADemo A>=aAuc aya[ DxWK(`> Global+ " #/   Weeks S E   `۳S'RGA_aPl bCNro{Mp) YqbL80'e+ Exxtra` @&@%4>)0p07H an⥽ Cdp  o/-  tt#%b3xovxeach mzhtTt) Y;0ll wD# S' Freezak4%sMJrnReWi ndow.Pa9Q = ! PPt ASA9mǂ3ǃ1 4#, 6.nt%CLng(B!R/2?/SE`6 7 @@Aa' M* curs`to topc@1, = Maxas > - 1^ bOxAddO!PEnd If = "":= True:= StartPlanColumnNum: = 0CFor llN`0 To D"' Insert WC1a[k0p>,DW Qday(D )1 OXr ()UnA1 + 2%K8-I+c7wAnu@mber a[format cell C@s(5'U, )).@Select Active .XmulaR1C1?N% inopyFont HeaderK!Cion.{Width3 "e==D BGWiG A|rior- orIndex PatternxlSolidk[MakeBor  xlThin, False)= <f,M'h N@f|ATw=@b s(E) & " & Year c $s(4_H+ _1 K1D;>.1"K`y<>k$ ^"'"@$(+ !C]`a >AaRange(23ڨ), 6 D) K8.Horiz`PalAliPgnme~= _C-eoV icBottom WrapText@9o5r.Ori@atFtc*>.m@ _*.ShkToFi?.MergTQ~n qDQ5R=2[A?G?GӅy ? {u(ner_({"f_(b}g('w''^._'*_'x'n&_ &q_& d&!ߟ## ""Np83gSc!WK7x qFuno TasksWK(max()WAAkQu1?|E@ CNT%QNTTotaS!q, !E/CQDlin4uWPercDoDoubleResourcJCPgoryC/TRea&l: C' Get0! sS̯̬ί̯̯̯̯-@qu9q0/&ͿPMsgBox#.C1@ta)U(s@kWe WK WPercDoneX`bl("0HI[SResourc,StrJ)CgoryU!)fKAllI + 1: ll26: CNTB0Tota 0AWhile‚Index <> ""Lng(AC= CBNLevels ' Insert qa into fixed heading@ cells C(-+ PlanCount, 2).SelectK Active .Formul`aR1C1@:A+Name opyFxontB;' Pa@* BG ColorKWith "ion.Interi >.T=BGQ Patn@.x@lSolidExnd a|L3=| 0b{ A .Bold$rul$Els,Fa? .C%HK!IfkGopt/WcolumnG>C - % 'BXO Fields(0qY tS3`m$TaJ!KdK La. ed ) Then # !ll + 1 xCNT  7ItsADemo+F>= M,ax:s@InHdex+""E nd IfWend ACInsHertWK%T@otal AFunction  ASub DrawA BarWK(maxcol As Long, linenumsIY, GS`@CdColorA DeadAiKuDDim stC@i# cntI% WeekFlaglean,: LC NDtaysNA\' Paint B G 3befo0re dT/ b areCells(T+ PlanCount, StartlumnNum),  + CLng$8) - 1)).Select`With  @.Interio$.OAre8aBGcPa t@nKxlSo$Pg {p# 'aF7L=: @@2C, ST]EDd$Rland. @,-]'sub`tract@F uto make *e+KC ' add hnU Os on the s! 3.3!Cl=ã2ElseQ2? h#<=a7 6@gFp@= 0 To j&AIga[ZhKiAhij%'@O first 2a&la, @includ@Hay{ConfigUseQ*sW[O:o/1 Afve.`mulaR1C1@-"'a| 5443oo6ogPFont.Siz8 5 HorizalAlignme_= xlCeT{?NexZ' A96Marker- Reloop a`s dayS V ,=?mpbAbs( Diff("d",V,"9)h= oV߯" $!" /Ce oCCAG)Ao@b1, X[b-P ß5UCas03A!) <> ">" p>ҕ= Fa YrAo;d;JO@(@;`")ȯb5qYY%36Zuq(; .OFt SOFBV@ip{IBottom"WrapTG!obOriMaQ0_R2P!2rinkTfD_9 P' Calculate number of days|NDayCols = Abs(DDiff("d",tEnd& Start)) Iterfinding the righ@t week%F or llb0 8To rauxV Add~ ll v1If C+(Search )>N) TXhen4WILen+ 1 `Exit X Else?( (6= 1) Or (urB 7= < If2Next2V Funct iom i]/5L vJl0qPl0q0Av"i %lPi%$ X)5#vQi %$ (, > ?%( % $ R v;pV* $ W:qkVD %lC< %lC= q+~ @5vQ{Q%\M @ (Up>55k>ST*F\M @ `1D6Av"i %lPi%$ X)5* $ W:llqhv;i %lhC< %lhC= qh l@lD=)UlD*F%$ (,5lDC@ > ? lPvJv"i %l8i%$ Xv"iT%lPi4%d$ Xd $  )d 6 $ Q %3 %4f %5( %6f %7f %8 c %9clPq8+~ @5lXi ]3Jv"i %l8i%$ Xv"iT%lPi4%d$ Xd $  )d 6 $ Q %3 %4f %5( %6f %7f %8 c %9c+~ @5 Xfl0qxdd@(lD@(d   y y- FqD6lD1(09 N6YV$#*F%:W%"X ' d(XAYK1t/)6q : 0$#*F%:W%"X ' d(XAYK#*1p2)6 aA$#*F%:W%"X ' d(X=:A<"qL/)6XI$#*F%:W%"X ' d(XAY`1H/)6YZ$#*F%:W%"X ' d(XArU~| sDAAiHp*CqATYTT9UUV1^)HVVVx9BaBWAWQaWIp)8yWWWAXXXX)YaYOOYaY`0Y1ZZYh! Z9[(]]AHBBTIJ^^^PI[^)_I_IQR\Q f)f" @$ @ @d ub.''M@@:0N  6  u{ {v { vqH     "qD5 lH qHlH qH v 9yy  Fql6 yt\%\M0@9  Otd5 ^dM0@ dM@ U U (B9 Ot\6 lllH[u'X'xM@4vlD#*#v*F o\0vFodvF^ql26 xXllX "llvv  [[J$(t4 @ xX0 0  P vCt lt 0!Ctv"v#$0d.< '@%P$ P (%Q<&P "&X 0'1<(@%P"&X 'P d(<))P<6ltF,%<(@%P"&X 'P d(<*)P< u+ + , RQ@+-C ./y/;+0C ./A:,1%P'@%0v"#*F%$ P,/P5_P'@%0v"#*#2*#v"#*F%$ P2P5P $ QP@%3@%4f@%5(@%6f@%7f@%8 c@%9c*P $ PW:qPv;i@%lC<@%lC= q > ?+ @5 ABTd lTClTD;+B .FlTEF,%P'@%vBv"#*F%$ P,/P5hP'@%vBv"#*#F*#vB*#v"#*F%$ P2 P5P $ QP@%3@%4 c@%5(@%6f@%7f@%8 c@%9c*P $ PW:qPv;i@%lC<@%lC= q > ?+ @5!vB G H`B5 TfvB GI G{J ^Kqp8lp8 qp p^Lqx lxv [lx{ zlx1z 1qx x^Mqpv"i@%(%P$ XPlpv"i%lxvNvJi|%<$ X<\X\$ X)P <<<LLL LL<p8%P  `o%%`x p```,\`8 X`t `p `,t 0`*p``:L`t`p`l`:Tp P`0$6:"@@x (6tx$"@` @P `LP@@ nt@P0 .`l `h @h @ @ @ @ `tp`Dd ```,p\`8X`:T`LP F8 $0`J66;i ii "``JpOOqi  ii`Z* `b$`d 0@8p@ @ @ @ XVXL&(R@ p@0xH@`x"0@ h @`d @T @@P @@ @0 @ @ p@ @ @ ` ` ` X  @@RXV<L (  +`Hk+0  p  HX(@(  @ 0  X@ x  x  vJN     p @ X ( @ ` ? H  `vx X@RXV<L @< , @ @ ( @ `x `t `p `l `h `D d p 0 0 8 ( @ `HL`JD`Lp<`:8( X   8 0P h 8  0` @ 00 @ 8ix `|  HP8pl \ @L 8< @8 `T4`N,@ (4 @, (( @$ @ ?   -P h 8   @   0   hH O_0 @ 8+v`t (| ` @l \ )@L H 8< A@8 h4 ` @, (( 5%@$ @ ? 0 *pP`E$*\Rffff*0X45fdec0e*\R1*#dc*\R1*#f1*\R0*#19*\     J@ 38 @$  &8~h   hLSx  0   60   0  (L 0  @  HX`h "  h <p& &@  P     J(  3x  0$ H`x   DS  0  6x    h p X    @     % x  x   "       "`       P D]  @     B  0 `  (h ( & $ & X 8 H) (C) OfficeHelp 2006 - www.officehelp.biz Version Code OUTLOOK SYNC CODEPoXP Set Constants 'Outlook.Application$.onst',MAPI %. : %. !.  DP , ',....o]6 Imports Outlook Appointment data into Excel task listMA G 'j`0 X 'hp @ R X V <A@Le0  A@ Import Outlook ValuesM; :." :.@@x '8 8': Get from Calendar  Create Outlook Objectsm P0]  8 P h   [Start] >= ' ddddd h:nn AMPM$' AND [End] <= ' ddddd h:nn AMPM$' %.D Restrict and Sort appointments]"0[Start] DB@H]0 Release Outlook Objects Release Outlook Objectsor* Loop to insert outlook tasks on task list Create Outlook Objectsdd 06 Imports Outlook Appointment data into Excel task list](](@X Set Constants ' '8Outlook.Application$.MAPI %. : %. !.',   Get from Tasks , ',....o 6Calendard`kX t x X A@$-200 Import from Outlooks Task List+ Import from Outlooks Calendar Appointments ':P  h kx X ]k  Resource Field is actived': !2': C Resource Field is active - Show message box about Outlook SecurityX D$X D$X  Insert Tilte Lineh  Insert Tilte Line* Loop to insert outlook tasks on task list ]ppoX     Outlook Imported AppointmentsA@  ,    !$ !$ ! :A@     Outlook Imported TasksA@ ( !\'Z%8hk]` !X 'b' !@X 'dH0 !XXd'Nk D$Xx C Resource Field is active - Show message box about Outlook Security,B @ R X V <A@L8 D$X(%  Resource Field is active !j':H8 b b 01-01-4501tartdak 'bh`i !$v'T 'v] xGTask Not Started'j xG Task Waiting'j (Not Defined)' xGTask In Progress'j xG Task Complete'j xG Task Deferred'j]H ' d d 01-01-4501then 'dkx NG'jG Z JG'j'J NG'j"%  ,    b$ d$ ! N : TA@ : k0 d':dk'N  Perc Done Field is active$Xdk'T  Category Field is active$X111(p`0 Delete content from row (start with blank line) I A@anTask  , A@`  , A@0 Delete content from row (start with blank line) A@ete co On Error Resume Nextlank $ 6(" & ( R V $L' & eS MsgBox Err.Description, vbCritical + vbOKOnly, " 2005 WWW.OFFICEHELP.BIZ - ERROR"pkh` t x X A@"X   V X A@L   $'pp G|je fiel i$'Task L]@pm Ou3 Loop from first task row until a free one is foundB Input "%>%@!BX '*8', * , ', B  , Input "%>%@!BX '*P$ Detect the first free task list row P  , 'If cnt = 30 Then Exit ForIf cnt = 20 Then Exit ForAttribute VB_Name = "Module4" ' (C) OfficeHelp 2006 - wPww.oTh*. biz ZVersion Code"OUTLOOK SYNC CODE,Public Sub OutLookT est()BOn Error ResuNext GoTo handleCaPncel@l@ AppTat .Enab KeRyxlUH9r Dim au@x As Sng, AuxRoBwLongS ' ImportT4 Values Set ThisB@2ActiveWorkbIMain GetIn8put./I= DetectFirstEmptyOT0b= Box(MSG_@_ROW, TpITLEtIVfB}"2e_xitf CLng("0" & M0 ,C@ADiSourc˜Calendar A#[from\s @yointment`0hC RealESTDate, 3EC ' .Descripw Critical "5 WWW.OFFICEHELP.BIZ ERROR A2=*E*{Fu^nurkǀ'o the f!p free t@l@ rowCNT , @IndejAd@ae!p `^C un til acone is found# x& C("u.Sh@eets("ba").Range("BStarts ).a= 0 WhileH<> "-cq+ 1#kߟ@A KW@ // X#A?@? BL(a:c b'A;' Es dat$a o iel'IHEDObj, oFolder! FItemsG. APPns3d`ct'olsVs  , t+d3T0oUseONlDIr1)iuws|trP`' uConstav^ = 992s@13| = SS JAllow SecureField!DyOJals(1)S.1'_ss bM:arPJShmessage box abouRity# dRy|WARNING_0Xvb`@/bY?%"a1!h' Cre`s&,'*=("4.0/="DEqa)= .spacpIMAPI/utlDefault*( ݨoC2. 'U0 Sap~ph= 'UFBy7D, "d h:nn AMPM")"' AND [] <0SGu .b tZ!InseTi"lPLinClean=!0`a0MaCSavera il, 0, ColorDeadl,O3 4DWedj"=b"`)f rtoSb 3Rrs |݂sl`yK=5i Each 0P#S\CompleBoolean, Aux@-H!CDisaAAD ' Set ConstantscNY= 9KAs` = 13BV= `CIf AllowDSecureFieldind InputOptional(1) Then-' FX is active - Shmessage box aboutBityKMsgB MSG__WARNING_, vb!lama' +AInforOKOnly, `TITLEj IfG`CreD ԄbAg= C )(" . wlic"@{#{k=u.GetNa"pace("MAPIEx#Defaultn(:.+#`nse@rt TilZLin]Ca[AJA [SaveADetails!, 0,:ColorDead:l` ,cauf, #&ed s" """#' Loop t>o@`IBs |on``cFor Each $\;' DBe}contfrom r@X(r%with blanne/" 2'߀S ? 'qq! q )ED.OwnerElsB"  4Ei%= FaJ ы2ӋC`rgory ̋A= ,Wtus!l(b=.STATUS5R01e Be upg`EDbl("0" :&).(h) / 100/y]Nu'fmwA`Nqs("a TruX$jsr51Bh "" Ow@= "01- 4501"jz=Hwa Nou  0p 4CgDueAN&(qT dr n_X0rE>e Oc +qbLevel_dSdqValue(i,Ҷ[)BMS, 1, hL?1)c+ 1m 'pcP= 20cPit f3NexAYpb &/i= NothiAGA 0QFun`s;SsҾ!^)'3S 8(sf~dd)p{ p=> t3ed1In `Progr2uHX3_Wai6t0H4Operr z ? q! __SRP_8r__SRP_9:Sheet6 __SRP_10 x$ HQx  ^qp9'''' pM@@MP@ M`@ 1t6 lt 0 lt*#P1t/lt3 lp1t v 0ltPY  ltPY  )'' MP@@M`@ 6 $ xx lx1'' MP@0M`@^i6 $ xx lx ,t$x |(q : $#h*F@%P:T%d"X d dP AK#*1p2h)dP6 @ qt lp =ltqtx : $lt#h*F@%P:T%d"X d dP AK#*1p2h)dP6 @ }$ltqx((p,hdP@ 0   0 0  0 `  WrU $`$`0` )Ia,,(0` )Ia,,((!`(nLzٞ#<H=P LF! FݙxTHMjv xݙxTHMjv H=P LF! ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H(p %. %pxH@HH8E$*\Rffff*0A45fdec744xAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2rU SSSR4aSS`rU @nrU $ __SRP_11BModule5#)__SRP_a-__SRP_b#10*\R1*#1c8*\R1*#dc*\R1*#f1*\R1*#f2*\R0*#2*\R0*#12*\R0*#14*\R0*#1$*\Rffff*0U45fdec0e*\R1*#d7*\R1*#e8*\R1*#2ac 0 0 (H &p "  &  "   p%% ( .%(%  Z0((  &0 X  p 8(  , H 9X x(%4^,Bu`x("    " &( H  X x8(  @ ( 8H P+`4Y 0V(+0 P h x  4^$    "(&0X h  &2E 1 68 %%  P p$A6_     ( 0  8 @  *H X `  h  p       |'(?kٞnxME@> <<<< <<<<< <$<(<,<0<4<8<<LLL LL<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<8"i& 0%h `&x`(t`*px`,l`.d`0\P0X  `(t`*p `H0kpph`&x`(t`*p`,l`.d`0\`2T`4L`^J ``@`b8`dp0`f. `0(+`Pk RR`&x`(t`*p`,l`.d`0\`X`dT+`Xk{{*i& `p/)`h%``dt d`\A `X `8V_`P0` L`6`J %t`D``@t` >:d`8`l`h P`PkXX i>0 06\ VXL0@@ H@H0 0@@ 0@(  0' `.X`0PW:P`2L `4HA `,D)t`Rx<KN`Tp 8 `V4:d`x0d`6(B `x k il`6in ipA `2T`4XL`h``,`d\p`X`H`@D`@x<`Bt`p@`Dh9r`Tf 9z`Xp ``d( \K`,d``p 0` @ b@( B@H  ` Xk0008 0`J008 i Z'iP jKip i.0   )i0P  @i2$ i4( i6,@ 8@p X xt@"@ <DHJF@ @ @  X PR@ @ @0 @H x @h @X  Ph 8X@ @l <D @pH @8 @( @  @  @@ (8 @ @ 8xHx0`x Hp8hFn@0P @H@ @`< @`, @ @ @ z@pt@H x@ @ @ @ `` @@ H@`(phbXp\fh@ ' @h (0' @ @ `X,p@ @5@x`h5=n4 @ @ `@ (@0| @l @\ @X @T xW @P WpZ@@ @< @ 8 @84 @0 @P(hhp@`x<Dn@X p@ @ @, @ @ @ h@  @8 @ (Jp@h @ @ @@`@0P"H@t$@~ @l X(@h`@(@d @T @D @4 @$ @ @  `82 @ `H AM8p 8X HXx``x "<D"@` @ @ @ @h @ @ @8 X@  @P @ @ p@ 0p@x @h &@@d`(0&X @hT X6@P`@6 @@ hH @<`H@, V @(`pV@   @8 @P @h @   @  8(Px p n@p@X @hH @8 @( (@ @X @ @ @ @ @@ @ @ @( p @`(D t<D@ @P @@ h(! @`xP!(.@p @l : @@ h :(0 <F$ @X X  E0@T` @ E @P `(x IDH  `4`0H"P (!!H!`8!!x!.!(p (@l !:!h !: !<"($ !"X "E("T`H"EX"P `"(I """"x"""""(  @ p""X P  E$*\Rffff*0Y45fdec0e*\R1*#1c4*\R0*#f*\R0*#f*\R1*#2c*\R1*    $F  :h  ` h p  x        *         !    "  H  ` p x           * R% @ L$ P  $` p$F  P$    D      8 BGP  BG   7  :(*h  B &   (<8X `  p )*! #":$ 8$ 0@ *PA42#  %  *   ( x# %  A( *HX`  h p)  : (0 8@H P` h p4     (0 B 8&% Xx   -  ) 0HP X0Yp<q2a.X0YHx0Y8f0Y(0YX 2(&  @ , = "  ( *@PX  ` h+x ,*  (     E ( *@PX `h Ex #%     E "( $8 ` *x   :(    E " $ @ *Xhp x  :'   4: 8P&  P<r<r@2b.Y0Z0Z88gh0Z0Z(8H Php x "  (B *8HP X .`  2 <X      C  * 0 8   @ ,' ''*M`'*K0'- ' ('' ' H  *P  E 6          $! !$(! H! )X! &2&&"J&& *p!!! !!!!!!!!!! !!! ! B "" (" @"  H"6h" &""%" " " ## 4H#H# P##  X# `# () (C) OfficeHelp 2006 - www.officehelp.biz Version Code" MONTHLY PLAN SPECIFIC CODE MODULE Adapted from the weekly versionX  On Error Resume Next Create Calendar]@Xp] 6(8 Adjust GlobalMaxDays for Monthsw  X ' Define Split limit ' x t x$'    G  'j G  'j% Check if calendar fits (Max Columns) @."d X X$<X ', X'0d   0$D'.d .$H .$J$F$D'0 ,         0  .  P R $LX ', , GA@jd ,    A@dHA@k8k0o( ]p]0H]`x'^F'f Define Split limit '    G  'j G  'j9 Calendar loop - while the set finish date is not reached X'2 X'4 2'b X'0d  0$D'.d .$H .$J$F$D'0 0'd f b' d'A@dd d$DX 4X$<X ',d d$DX'0d  0$D'. ^G'fj . 4 4'. 4'0dpd .$H .$J$F$D'0k0 , G'^jd d$D'b 0'd 2' 4'o0]0H`x] Select Output Sheet '( (GOutput'(j CreateOutputSheet NewSheetName  WorkbookG h!j.jP( B@l`:d %>B@Hd ( %>(, Set Generic HeadingsARQ@A@n8B zXA@n0(TaskB  $@(B<B  :B  $@B@H p t9r t9v9x9z9|9~9q p!K 9 9q A@%` A@  Optional ColumnsC'b!0 d W: d$X%t b d$pXA@n d$\ b  $@(B6 b  : b  $@B@H`# p t9r t9v9x9z9|9~9qX p! 9 9q0 A@%t A@ d b$f $h'bt`6k b$fD$f  'n Insert Days_$'*`  * G '*jkh *$'&` &  G &'j Insert TasksB  & G '&jk &$'*t$ Insert General and Headings Borderslx' A@0 A@ Insert border over each month0  n  $ *  n  $$@B@Hp Freeze Taks b: b$B@H (0  Set Print Area Sheet0 *   X 4  n  A@td *   &X 4  n  A@_ kX Move cursor to top$B@HW:3 Increse Start Row for next plan (if in same sheet) SheetG  *  'j o] 8Ph0]t_](@A ]  X X'60 X'`:dd  $<X ',%  ,   ',d , $DX',kk'F'F n'F'*  ,W5 Insert DayD %ld  $D'k n  '%  '$ Insert month number and format cell@   $B@Hv A@*  p( ' p!v6 9 9q "A@qh $H'Mo $J '@   $B@H p!T%l 9 9qP  '  ( ' A@ 6  n   $   $$@B@H0 p t9r $9v9x9z9|9~9qx ' "A@5kX kP  ,  $  $$@B@HiT% p t9r $9v9x9z9|9~9q "A@k k 'i  *X X k]`x] +]8 Get Main Dates X'" X'd  $<X ',l  , d  $DX' MsgBox edatey kh k`  Get Task Data G Input "%>%@!BX '(B Input "%>%@!BX '*: C Input "%>%@!!'2)D Input "%>%@!B'4E Input "%>%@!BX'. .X X G '.ja<F Input "%>%@!BX'0 0'6 0X X G '0j0I Input "%>%@!BX'RJ Input "%>%@!BX 'TK Input "%>%@!BX 'V  'F  ' *\Y % Insert data into fixed heading cells%   $B@H6 ( (t, A@   Paint BG Color p!% 9 9qH *X  p!(d  p!(# *X pB@8k " Insert data into optional columns'x  % Done#$XR%    x $B@H Paint BG Color6 p!ql 9 9qH *X v    x $B@H R (&0% p(:% A@(k x 'xk Resource$Xv    x $B@H T (lpPSelection.NumberFormat = "0%"W Paint BG Color% p! 9 9q A@  x 'xk Category$Xhv    x $B@H V (Selection.NumberFormat = "0%"W Paint BG Colori  p!  9 9q0 A@Elh x 'xlk  Insert main cells data& &  X X .X 0X 2 4 6XA@ G Input "%>%@!BX '(>B Input "%>%@!BX '*&C Input "%>%@!!'2$D Input "%>%@!B'4E Input "%>%@!BX'. .X X G '.j %F Input "%>%@!BX'00I Input "%>%@!BX'RJ Input "%>%@!BX 'TK Input "%>%@!BX 'V 0'6 0X X G '0j  'Q , ',  , G'*jk0( 'i]ll#] ( %]@ " Paint BG Color before drawing bar >  n$ >  n &X  $$@B@H $ p!S 9 9q@( Check if task is within calendar limits" 0  G|j .  G|j . 0 G|j Draw task bar .  $'@ 0  $'B B @ 'Bsubtract start col to make len @ n  '@+! add heading columns on the sheet .  'Dd .'Dk B & Draw Bar  B >  @  $B@H p! 29 9qXP$ Add Deadline Marker- Reloop as days nd  .$< '@d 0 .$<'B .  'Dd .'Dk  Bd D$D'Dxd D$D'D D 6 4$F p! 9 9q p t9r $9v9x9z9|9~9qkkkoP] 8Ph Initiate flags' Calculate number of daysd p n$<'d Iterate finding the right week  dd  n$D' lX X  'ydx $  dG  'jk80 'i $ Insert Year%  G  'j$% $J (8 Insert week number in celleeee%% $  ,  , $ A@d%X%  & p%@%%x&  $   & 4 n  $$@B@H$@H&@  $ *   & 4 n  $$@B@Heeeeee% Demo Restrictions k%  V X A@L`% Set GridlinesK GA@Fja%]XpX p  'F'F',F' 1 Increase calendar line only if the line was used% 4$F (rx%  k&'( 0$) (dp&kh&k`& t p(r p!(  BG' 0$ (j G' .$ (j   B  & In first and last column, include day% *X G p!(j *X G p!(j'S DEMO and ALL MODE: Use the most appropriate split for each calendar (better demos)  \ G'j' \ k((Attribute VB_Name = "Module5" ' (C) OfficeHelp 2006 - wPww.oTh*. biz ZVersion Code"MONTHLY PLAN SPECIFIC CODE MODULE&Adapted from the weekly vP$Sub Main MTH()lOn Error ResuNextA CreaCalendar  Dim:xDays As Long, NewSheetz S MaxLineAu Fin.D2,/Start ((n- 2) aG!d#\=#2F `-O%Che ck if@ficlumn@Set@ isBo okgAWorkb= Ab s("6!"Diff("d", C(')j() '@@$cAdd ,,?$& ! Sefl(Yeara#_$BG1-R4(%#?) j #?>=aD)";_X,b,(EXCELcSLIMIT_1 &! 壀@2-^3d 4YesNosvbExcla#Cb)0 &Gvb Proceed1s"EL`-1M |)C.Q> 0 .! Q0 AMake?2uv [3 p{{a|yy yE|`xS}+~1k1Uy yfoCBlean=urr&a_@P2f ?c2 U12= @True: x2PAIr?bBS?b@#s*=A]7;28^?]c/]'' ' loop1hil3Ns\qp d!i@s not PchedEWe4:HJnKqÝSP? `$= a]# - 1\ - ?]Q?]e 1Jl*ZW2')FR0) LDW/F0S?x8xqK )zgygOxt  x0jRb8?sbU?1 :u>/p N_ga)O)Q,~  f0!<*b j)"ߋcW qS 1߸v0s sVZw?seQe?s?s LPong, MaxFinDate As 8Start T Dim( llLAu xLoop  ' Select Output Shee"t8NewName = In!0Plan>If $"" Then_"uCre?c 0\mCount~0 OrASplitBy Layer "Workbook=Set&Bs.Add,Y.ActivC Gs(1).t Gridlines 1Use LFa8lseX eL=  (eneric Hea0dingColumnWidth "A", 2X.29CMB@CDbl(Task 0) Range("B" & 4 + `).Valu"Ar &( ":(53 KVWi-Zion!.HorizontalAl ignmexlCer Vertic Wrap8TexXOriat @f0qIndElShrinkToFiMergeCellsTrueCEnd !n) -c(h"D"4S'Ins[yD@σp fs(ABtsADemo A>=Auc aya[ DMTH(p> Global"+ ѕ2 # +  M[hs s u ! S'GP_alň~ bNoM)`YAqLx0'+ Extra` @&%4)00wH an" d  p0-  /tt,bwov xeach mCAtsA)1:_VOllh ?:D# S' Freez@ak$snsI/rneWindow.PaQ =  Pt AS8A "ƃ1 4@#, 6/.nt%CLng(JBQ.2?{!/SE/6 t6 ?#`' M* cursto top#@1, uIncrePв@ Row fnAp (if in ssWd+0i+g`+ 6s QSubYFun`\onN5Qm)s7Asd!eN9Sauxi,*.gQ1ncolݵ As Long, sweek wflagpBoolean Dim mnameTStrio "w colHInteger 1ll2BMo@nthCou.r1 sdate = CD(InputS*T )eEDAuxDaysAAbs(CLng(Diff("d",  S#))*If ItsADemo T|heH )>`= Maxbs>- 1_ cPAddP!QEnd If= "": = True: s= StartPlanColumnNum: b= 0@For ll@O00 To "' Insert W{C2a[Bl 1q,X Rby( )@1) Or v(B)U@<#Pn; +J;/A B+n Bm number agformat cellC@s(5#c @, -).Select Act(ive.fmulaR1C1N)ORF$$in"opyF@ Hea8derAOCion.FWidth 3OG=D BGOWiG rior,!orIndex .PatternxlSolD $ ]"'" &C"!Eb(C\ @bp >TARange(23), 6 `@)w~ K8/aa.Horiz LalAlignPment`CeKjV\icmBottom!bWrapTexA?2Ur.Ori@|at D f*.oA> _*.ShkToFi?.MergS!Aq q+Q5dtZADD5| ?B)Rq(oqer_(Q~e_(Gg('w''^._'=0W_'x'n&_ &q_&`&!## ""Np83S1MTH 7 QFuno  tTasksap(max)WQQN13z0+aCNT% RNTTota"Sq, !E/CQD linD4uWPercDo@DoubleResourcJCPgoryr/TReal: s' Get! sSϬѯϯϯϯϯ-{uJұ0; ' MsgBox3C)/cQ0ta*0(spk=@eets("2").S"GхґRow).Val|ueA-ՀCA"AB+hiO t~C(60heets("Input").Range("D" & StartTaskRow).Value  LSDate = C(ThisBook.SE)IfG#mY) <sdh) Then W xE*FReal5*W) >We W! WPercDonbl("0HI[SResouDrc,StrJC`goryA{͡KAllI + 1: ll26: CNT0Tota 0While‚Index <>8 ""ALng(ACBNLevels ' Insert qa into fixed heading@ cells C(-+ PlanCount, 2).SelectK Active .Formul`aR1C1@:A+NamD#CopyFontB;!K' Pa@* BG ColorK With "ion.Interi[ ! .*= BFGp Pat@ n xlSolidEnd aP3= 0b{ A .Bold$raaEls&Fa? .C%gHK!IfkGo pt/WcolumnG>C - % ძ'BXO Fields(0qY tS3`m$TaJ!KdK La. edD) Then #3 !llT+ 1 CNT_ 7ItsADem>o+F>= MaxAs Index"" End IfpWendGACI nsertMTH%Total  Function ASub Draw Bar (maxcol As Long, linentumsAJ, HASAC A ColorA Dead{AiuDDim st@Di cntI% WeekFlag@lean, L@C NDaysO\' Paint0 BG 3before dU/0 bareCells(T+ PlanCount, StartlumnNum),  + CLng$8) - 1)).SelectWith @@.Interio$.EOAreaBGcPat@nKxlSoli$QLa #Check if t@n is w@in cal5arKmitsC @b@cE< M"rExit U}L>$Pg p# 'OaF7L= @@2Month(! d, bSTZE~DİDRBn.d/,-^'subtractF uto maxke *C+KD ' add< hoU `Os on the s $4#/)4aCm=2ElsHG)#<=B7 D6 gFq= 0 To k&!ga\hiAhig5q'' firstd apla, includ`H ay{ConfigUsea*s&W[O:o'/1 Afve.`mulaR1C1@-"'|@54D3oo/6oPFP=.Stiz!8 5HorizalA@lignme_= xlCeTE{?Nex$Zc' A96Marker- Reloop as0 dayS +,=?mbAbs( Diff("d",V,=)h= oV" $!/C qoC C)Aopbw1, X[b-P+5UCas3A!) <> ""沈 p>= Fa YrAo;d;JOQ1@(@;")U_Y qY%36.Zu ; .OFt SOFBVi{IBottom"WrapTG!obOriMa0_R2P!2prinkT 13-0 @2 BAjAFunctioCAgt vJl0qPl0q0Av"i %lPi%$ X)52\M @ $ (,5 > ?%( % $ Q v;pV* $ W:qkVD %lC< %lC= q+~ @5%\M @ (Up>5\M @ `1D5Av"i %lPi%$ X)5* $ W:llqhv;i %lhC< %lhC= qh l@lD=)RlD*F%$ (,5lDC@ > ? lPvJv"i %l8i%$ Xv"iT%lPi4%d$ Xd $  )d 6 $ Q %3 %4f %5( %6f %7f %8 c %9clPq8+~ @5lXi ]3Av"i %l8i%$ Xv"iT%lPi4%d$ Xd $  )d 6 $ Q %3 %4f %5( %6f %7f %8 c %9c+~ @5 Xfl0qxeed\@(lD@(d   y y- FqD6lD)9 N6YS$#*F%:T%"X ' d(UAVK1t/)6q : 0$#*F%:T%"X ' d(UAVK#*1p2)6 aA$#*F%:T%"X ' d(U=:A<"qL/)6XI$#*F%:T%"X ' d(UAV`1H/)6YW$#*F%:T%"X ' d(UAVNtX/)6oXNrU~|  oDAAiHp)Cq ATYTT9UUVX`hp QR)HVVVx9BaBWAWQaWIp)8yWWWAXXXX)YaYOOYaY`0Y1ZZYh !  Z9[]AHBBTIJ^^^PI[^)_I_I \Q f)f" @$ @ @d ub.''M@@:0N  6  u{ {v { vqH     "qD5 lH qHlH qH v 9yy  Fql6 yt\%\M0@9  Otd5 ^dM0@ dM@ U U (B9 Ot\6 lllH[u'X'xM@4vlD#*#v*F o\0vFodvF^ql26 xXllX "llvv  [[J$(t4 @ xX0  P vCt lt 0!Ctv"v#$0d.< '@%P$ P (%Q<&P "&X 0'1<(@%P"&X 'P d(<))P<6ltF,%<(@%P"&X 'P d(<*)P< u+ + , RQ@+-C ./y/;+0C ./A:,1%P'@%0v"#*F%$ P,/P5_P'@%0v"#*#2*#v"#*F%$ P2P5P $ QP@%3@%4f@%5(@%6f@%7f@%8 c@%9c*P $ PW:qPv;i@%lC<@%lC= q > ?+ @5 ABTd lTClTD;+B .FlTEF,%P'@%vBv"#*F%$ P,/P5hP'@%vBv"#*#F*#vB*#v"#*F%$ P2 P5P $ QP@%3@%4 c@%5(@%6f@%7f@%8 c@%9c*P $ PW:qPv;i@%lC<@%lC= q > ?+ @5!vB G H`B5 TfvB GI G{J ^Kqp8lp8 qp p^Lqx lxv [lx{ zlxz qx x^Mqpv"i@%(%P$ XPlpv"i%lxvNvJi|%<$ X<\X\$ X)P?@ABCDEFGHIJKLMNOPQSTUaWXYZ[\]^_`Rbcdefghijklmnopqrsuvwyz|}~Module6__SRP_cVC__SRP_d9Sheet2Y E$*\Rffff*0Z45fdec0e*\R0*#f*\R1*#2e*\R1*#1c4*\R0*#f*\R1*#31*\R1*#a3*\R0*#21*\R1*#2c*\R1*#10*\R1*#dc*\R1*#f1*\R1*#f2*\R1*#1c8*\R1*#e8*\R1*#2ac*\R0*#14*\R0*#1*\R0*#12$*\Rffff*0U45fdec0ev 0 0 (H > "p   +++ Dr@,  0,  +++  ,+ H  `@  ZP  "  @ "/p "+,01 ~ٞsxME@>  @8`>@(( C @P$`@C@x h(M @`PM@ xR @@@`0R 0`H``@,H@h XW@`@W@ h\@`\@ a@`a(xpPLRTV"@x @@h @X  @PT`@ P)`!Xkx@@iX 0@D @4 @$ @ @  h H)@`P Z\^0 @ @ `@0  @X `H  @  0 @`` x`"t`$p`hl X &&&x%p!"(!H"0"!""@! @ @ @x" @X D"@" @`" @ @" @" @" @ @ @#x @ #p @8#h @P#` 0@X p**0*P*0$P$ $&%$@&$<DJ@p@8$L @$< @h$, @h& @$ $$@% %$ @% @% @0% @% @H% @`% @x% @ @ @& 0&%@&``64`2 ` X&% $Ft$!&$@ @t &&!@p`H&&!@l `&%`XX,HX+xp,H(`(('+)0)'*'`jx'' )F@pPLR@( @0( @( @(+ "@x( @+ @( @( @ @( @+ 'TZ\V"^`@t ))$ @p` ) `h#lk)44B0)$ 8))i )+W)i*:i0*UƐi.)P*i0*p*i2) *i4$*i6()****("JtR @l @@+\ @+L @< x*p+@, @ @ h`,\, (,a`a*`td`v\`xT`zP`|pL`,H+8P)h  878x  " &x   &2E H1X6p --  :763$A6_ (08 @H *P`h p x 6/X ` ,@x   ^|   h6_ #8_(  *  (  X  Bg &  *, X  , , , X_`<P<h6 6 6 6(@HP X  x  b )  ,  `   8_ 8_  8_ 8_0 8_h (8_ 8    p1   p&@ 24   ";X"3  7 x "  ) " ++ (0 !8 *HX`hpx <<6       6  0  8  @  H 6X  p  x    6        <    (  *  0  8  @ H P "  ) , *,P , ,<<06H`hp x6 6 6 6(@HP X6`x <<6 6 ( 068PX` h6p 6 6   )<(<@6X p x  6    6    6    ( 068 P X ` h p "   *    ( 0 <8 <P 6h        6        6         6  (  0  8  @ H P B &-&`    ( 8 @ H  Xx  #  8!+(+8(S<H<`<x<6    <<x     0 ,[@ p ,[ *[ *[ .c *Z *ZH *[8- ( -  &<)0hh-+ $<0.eP - ( <   (0@PX2D` &<)++ <0 P`x ! !!.       "  8"  ( P) '"'('' H 0Y` <q 2a .X!0Y8!(0Yh!!&8f!0Y!0Y" h)((.V) *).V) ** % X" - " 07(-<rH#<r#2b#.Y$0Z0$&0Z`$8g$0Z$0Z$ )0(.W(* *().WX* **(%'0%@%P% X%p%x% % " h"p"" .# '&p' (  "6% JP(8(  ".%"*&2H' "p&( & *H& X& `& h& "  %(00. p+)* 2* ***+  + ++ +(+0+8+@+H+ P+X+`+ % `.) (C) OfficeHelp 2006 - www.officehelp.biz Version Code! YEARLY PLAN SPECIFIC CODE MODULE8o8 Developed specifically due to completly different logic $H'" $H'$ $ "M ,$@B@H P L p%J(NO P R p%J(N T p%J V9N "9X 9q Z p%J V9N "9X 9q \ p%J V9N "9X 9qH ^ p%J V9N "9X 9q ` p%JMeh V9N "9X 9qH b p%J W V9N "9X 9q P L p%J(N = P R p%J(N . T p%J V9N 9X 9q Z p%Jth Sel V9N 9X 9qp \ p%Jle = x V9N 9X 9q8 ^ p%JlorInd V9N 9X 9q ` p%Jd  V9N "9X 9q b p%J V9N "9X 9q .$@B@H P L p%J(N P R p%J(N T p%J V9N 9X 9q Z p%J V9N 9X 9q \ p%J V9N 9X 9q ^ p%J V9N 9X 9qP ` p%J V9N "9X 9qo]H`x Select Output Sheet '( (GOutput'(j CreateOutputSheet NewSheetName  WorkbookG h!j.j B@l %>B@H ( %>( Set Generic HeadingsTaskB  $@(BB  :B  $@B@H p t9r t9v9x9z9|9~9q p! 9 9q A@ A@8 ,$@B@H 2 ( p!( p!( p t9r $9v9x9z9|9<9~ @9>9q pB@B b p!$ 49 6999999 D9 89q : P L p%J(N P R p%J(N T p%J V9N 9X 9q8 Z p%Jb V9N 9X 9q  \ p%J V9N 9X 9q  ^ p%J V9N 9X 9q` P ` p%J(Nk@ ! Set BG Color if there is a color p! 9 9qko Insert Title (B2:AG2Arial HA@0P  Make Grid .k  A@Rid "  p!% 9 9q : P L p%J(N P R p%J(N T p%J  V9N "9X 9q8  Z p%J V9N "9X 9q  \ p%J V9N "9X 9q  ^ p%J V9N "9X 9q k o  Insert Month Names Insert Day Numbers    ($@ $ ( B   :B   $@B@H 9 9 Paint Inexistent days A@R 0 C$f  $&  :C$f  $&  $@B@H A@R A@R  A@R$f A@RB@H0 P L p%J(N P R p%J(N T p%JK--- V9N 9X 9q0 Z p%J V9N 9X 9q \ p%J V9N 9X 9q ^ p%J V9N 9X 9q` Insert Year??o A@V X (  p t9r t9v9x9z9|9~9q p!? 9 9qx A@333`k  " $ Increment PlanCountC  :C  $@B@HA@B  :AG  B  :AG  A@*C  :AG  $@B@HB  :B  $@B@HB Make gross border on months@AF  :AG  $@B@HAG  :AG  $@B@HAG  :AG  $@B@HAG  :AG  $@B@HAG  :AG  $@B@H@  WorkbookGB zXA@njoo  WorkbookGARQ@A@njrkbook  WorkbookGC:AGA@njp X jooFebruary has 28 days9 daysdkAE  :AG  $@B@H(February has 29 days+ WorkbookG  'jShX Freeze TaksC:C$B@H (rea Set Print Areadk Move cursor to top$B@H Sheet!A@P Move cursor to topListHkdk Insert Special Day List]H`x0]Xp]0H`Input' '~'#'r', 'p,' Set Column LettersC+L+U+E+N+W+' n$FNONE Insert LabelLegend ( p!( p!( P L p%J(N P R p%J(N P T p%J(N P Z p%J(N \ p%J V9N "9X 9q P ^ p%J(N P ` p%J(N List Days / Categories rB pX   "%>%@!BX 'r rG'rjE pX   "%>%@!B'vF pX   "%>%@!B'xC pX   "%>%@!!'tG pX   "%>%@!B'zK pX   "%>%@!B'| ~ '~ nDays Insert label (day or category) $ ~$@B@H' z (  p!( Insert day (day or category) $ ~$@B@H' v$J/ v$ ( change font size to 8 p!( t p(r Insert Color $ ~$@B@H tA@R  ' ' , ', ~ '~k`dX, ,, |, Insert label (day or category) $ ~$@B@H' | ( p!(  p!( Insert Color $ ~$@B@H tA@R  |,'  ' ' , ', ~ '~k k k k p 'p k , 'ji ] r  Sheet$j]xB $@B@HB :AG $@B@HE pX   "%>%@!BX 'eeee Set Print Area SheetGDays  $j'hj  h !A@ h !A@ h !A@ $  h !A@ h ]p    ys Insert Special Day List$B@HT If Sheet mode was selected, the legend has to be added and some calculations remade SheetDays  $j'h XA@8](@]Xp Get Task DataG Input "%>%@!BX '(B Input "%>%@!BX '*C Input "%>%@!!'2D Input "%>%@!B'4E Input "%>%@!BX'.F Input "%>%@!BX'0 0'60I Input "%>%@!BX'RJ Input "%>%@!BX 'TK Input "%>%@!BX 'V]F *P)]0d  .$D' Loop each task daythin c]8 Calculate Loop  Insert main cells data( Check if task is within calendar limitsA@G Input "%>%@!BX '(B Input "%>%@!BX '*C Input "%>%@!!'2D Input "%>%@!B'4E Input "%>%@!BX'.F Input "%>%@!BX'00I Input "%>%@!BX'RJ Input "%>%@!BX 'TK Input "%>%@!BX 'V 0'6  ' , ',  , G'*jkoP)oh)X) Deadline markeras  'F',d 0 .$<' $ '*  $  $$@B@H p! 29 9q* Paint BG Color on the cell *+ .  G|j < sda 0X X G '0jCDat .X X G '.jate 0X X G '0jCDat 0  G|jEDate 0+(,  $J ', . 0 G|jH, Set Main Datesd $D'1/1/ XX'1/1/ X X' .X X G '.j-'' mG|jj!D if task is one or more years, then dates are wrong or empty - leaveck if *..0 G|j  X X .X 0X 2 4 6XA@ Check for empty tasks "  G'j,]%&&P Check for empty tasksE Input "%>%@!B'p  G'jF Input "%>%@!B'}  G'jE Input "%>%@!B'}F Input "%>%@!B'}  G'j0, 4$F 4$F ( p! 9 9qX. p t9r $9v9x9z9|9~9q.k.k.  6// Demo Restrictions  "  $ l on'$kk*% Make calendars for each year on list,'"-  $H and  $H. V X A@L7, A@ A@ction. p!True 9q, p! 9q, Set BG Colorp,]@,X,p,,,,B pX   "%>%@!B' G p!(cG p!(j- Set Gridlines GA@Fj- *X X k-- X X k..    6Gd $D'j@.:Attribute VB_Name = "Module6" ' (C) OfficeHelp 2006 - wPww.oTh*. biz ZVersion Code"YEARLY PLAN SPECIFIC CODE MODULE%Developed specinally due to completifferent@ logic5 ) MsgBox MSG__DEMO &] " and ".A.", vbOKOn\+Informa/,MAIN_T|IToL43AJ@5GE!\IfC'v calendars @! each y{ list L>=zKHForDo B ?E0A NexD)@Sheet m was selected, the ldeg0 hb`e addAasFo݀8culXs remaρ$ÝplitByLayerB"L' Insert Sal Day LHĹ=D  ("s?1 + Count] ' SPri@pArea'?(\A  t2,A3`, 33 Els@e 185N Move curFs@E4topCells(1, 1).SB;cAɒ((yi)Max-Hew:{S, AuL@FinA taxStartll@ LoopB.堡>Y Out NK $@C"CW G a;' C Lteb  BU c0 Or[`SLfWorkbookwDF B sp.Add `.Av BA7e9=#iGr8idlAϣ %UseFa]|!o}!eA eneric Headingg͟$"OColumnWidth "AA2.29 _/RrZBPCDbl(Task2 Rangeh("B1k4p=v).Val``#-(n:r(5Wi> {.HorizontalAlignmeP= xl2Certi]ojWrapTextOri7@Ra0@*InFd_.ShYkToFi? .M0ergeLTr>uTK!3.Int0%o 4orx1'erBGB PatnxlSoli6CopyFs,eryBordpxlMedium, X0(@s?. 7.C:AG) gsVuTitl=, "TB220Arial16Black  =.+" p,(17,})/0 +/Pa|.tT Y@6C\t)6BVr).mᰐR1C1"s_OF>_=pTl_=_=_=._=? ._=V0_=g_=_=Y_=_=_=d <_=l/@_=r_=_= 6%M?h 1`kq= 0 Tpo 11 :^60ll'^'/($( r (WRR . UnR`. +R5Rˊp& ":B" & (17 + PlanCount)).Select ' Make gross border on months Rion.B>s(xlDiagonalDown).LineStyle = @xlNonerUp7With vEdgeLeft.)_ |CinuouWeightNMediumColor IndexAutomaticpEnd FKTopKBot@4&RS?LA&Re?&2&s' Insert Day Number@For ll@0 To 30 @Range(ALetter(As@c("C")l4l)5J@": ActiveCell.@&mulaR1C1#'(+ 1 CopyF HeaNext#' Paint existe@dayIf yYear Mod 4 hen# 'February has 29 gg$"AFB+!AG0Els뤈8EyA}Ifcb#BAreaWeekend 9or, FaFB"9@2 y11L?%14K6KcACTasksYRb' Freeze TakgDumns: D#yWindow.Panes1lTru$^% Incremas&CtInputSplitByLay<> "Workbook" Tvg]&18 G"PSpecia:lPLASheetTN '0Uq("s", 1k1Setx PrH16v= "hA 2,!3"# p, 33cE 18 iB ove cursPcto top1[s(1( qSub`T itle(R As Stg,!3E9BGG!Lo2n@TF^XTSi(MKcBoolean@x sLO3?h4hb SSjntP ld-Ital= 0 ThenA' Set !if there is a c^RNInt`erior(.$x< PatnSolidf Sub  Mak@eGrid(Range As String, Hea )Q ).A=.=6CC#KDiagonalDown~YUp 7EdgeLeft@NMcThiIxlLAZ%Top?%4?%sA%Bot{%T%RA@{8h(֙#_ _&_&@ KCHoriz¿ %' m -_n(7-z@oS x'O7oh @/?0 !P ̍6_Vif @OO <> ""윣Xۍ!AxlB?<ĭ!3Fb?!3o?< [G2ok ?>. u!k+ >p /,&, I! p K 4   AqUU!q Pai4ntV?(dLoMKsBoolean /k //ϲ9A SSMK/K/KO!1/K#KD With Selection.Borders(xlEdgeL@eft)  .LineStyle = xlContinuousF .WeightBThin 6 .Color Index!Automatic&pEnd T|op "ElTBotuUURp * AIf Sub FunB InsertSpecialDayList(WTL As String,artRow Long) xDimA , out, CriteriaACNTD, DDate.IELabelDCaLevC$Caux Out.BeenDoneG B'(3>!  InputSheetNam Test$wa4L=0cz,= -1= "#"d,= 0CTask9#@,D, "%'@t umn Let "NONE" Thed!0'Dd "Range("B" &F3).AlveCell.Formul aR1C1"Lepgend 'FldTrue lItalicQ":AG DiagoBn`own)NeUpauOqa{m{ ݅3fo/#@_ideBV_icalnH+ 2 P ' qd ds / YegorieBWhi@_KQ80XMCPW(psBook.Ts(kJ).y/?)).Valuex0@Null?OkPOZ= ? t? 4 E&? 3o=i&d_7aBEABhOwiFF1BL\OK?cRCNInor0,W//#M } $]K$} OOc K)1 A (c'k#$SLng(D_r n*" NBs).k51 0! ( Kr < bl("0 okIo i @..J/-D/3e("K/)' Check fPeFtB! SG= FaabG++&;;OrR%Nu^B/D$D/&kd0$w ,= YJR:Bj= While K<<>K,Lng( 7`!"QNLevels7Wgvm!_cs \W1Draw`x7t=3A@4)sh2NM }DeL@C=! + 1CNT@VItsADemoP @ >= Max ,sZIndex"" End IfWendGA Sub  DrdawBYRoAs @lean, @, ?aKC#ColW@Long,HDeadlixStrik4Dim DLoop Ccnt'NDays ACalGRowe, "$nif"m is with@in cal*ar limitDp74!<$&Exxit ,0%>D)g w6#alcul (%= Abs(!)Diff("d^"3C")į' ":more years, FtAes awr= `#- Jvr"c@\365#[k&B?each#2day#F B= 0 To  OcA9<@= A|dd"i !B= 2 x@(#D aH= PlanCPount 5`Month' PaiBG on$ cell#C`sA S)).SelectgWT ion.Interior.eKPatnxlSoli!DNex ' f=marke<> K>R+|12PW:=On1pUC|as1m1E @> 0lA1Active.@%m2R1C1Joo % MbBGoC"@; 1.Horiz+alAl ignme*= xxlCE5.`VertiOB ottom.WrapT!,Oriat*P0O.;* _àckToFVMergs ?A_ts XWHJCLX5HX $ QXDl%D$l%D%fl%D&(l%D'fl%D((l%DMfl%D)lv%DNfl%D*cD!X $ XOX*X $ XWHJ44q0XFl%l0Cil%l0CPfl%l0CQfl%l0CRfl%l0CSfl%l0CTfl%l0CUl%l0CV il%l0C- q0$< %l%X $ XH>C?X5H< %l%X $ XH>C?X5H6l%X $ XH>qXl%lC?l%lC@l%lC- q6l%X $ XH>qXl%lC?l%lC@l%lC- q6l %X $ XH>qXl%lC?l%lC@l%lC- q6l %X $ XH>qXl%lC?l%lC@l%lC- q< %l %X $ XH>C?X5H,*X $ XWH+qXil%lC-l%lC. q 4@(D4XH| )X'\% Fl%$ XX*X $ XWH+88q4XvWil%l4C-l%l4C. q4<$%l%X $ XH>C?X5H<$%l%X $ XH>C?X5H6l%X $ XH>qXl%lC?l%lC@l%lC- q6l%X $ XH>qXl%lC?l%lC@l%lC- q6l %X $ XH>qXl%lC?l%lC@l%lC- q6l %X $ XH>qXl%lC?l%lC@l%lC- q6l %X $ XH>rU~|  x9UpA(AfC  ZifI 9DAAW)HVVVx9BaBAWQaWIp)8yWWWAXXXX)YaYOOYafff g ! Y1g(]A]q]1Z)YQgqggq gPI[[gAhh\A\\\[X\hATTAHBBYTIJ^^^ YTQRUQhhi)iAiYiqii]iLM\@L L"qt5LM\@L L"qp5LltlprM\@L M@ 'l'M@@:<L,: : 6L, l qt qp lpltltxlpdd x  xfd v  0"v Y\ C``^ ql/` v  0/!YPv llYTYXY\ +!YPllYTYXY\ 7(\%(%L$ XL,L5,H0$ 4 `LL, l xvCt lt0Ctv v 0d.8 '<%L$ L (Q8L "X 018(<%L"X L d8)L86ltF(%8(<%L"X L d8)L8 u + v v 0+ RQ@+C /v v 0^y ;+!C /A:("%L'<%!v #*F%$ L,/L5_L'<%!v #*##*#v #*F%$ L2L5L $ QL<%$<%%f<%&(<%'f<%(f<%) c<%*c*L $ LW+qLv,i<%lC-<%lC. q / 0+ 15v v 02+2C /@+YY3CY4Ct 52|!v #*#6*#v #*Ǹ!v #*#6*#v #*Ǽ 72+, 8_L'<%9v #*#:*#v #*F%$ L2L5# i<%L$ (L,L_L'<%9v #*#6*#v #*F%$ L2L5L $ QL<%$<%%f<%&(<%'f<%(f<%) c<%*c*L $ LW+qLv,i<%lC-<%lC. q / 0X dgL'<%!v lX#*##*#v lX#*F%$ L2L5&lX;F<%L$ (L,L*L $ LW+qLv<i<%lC-<%lC. q = 0 Xf_L'<%!v #*##*#v #*F%$ L2L5<%<%L $ L>C?L5<%<%L $ L>C?L56<%L $ L>ddq`L<%l`C?<%l`C@<%l`C- q`6<%L $ L>PPqLL<%lLC?<%lLC@<%lLC- qL6< %L $ L><((q$L<%l$C?<%l$C@<%l$C- q$Xdp L'<%9 AlXY B#v #*#C*#9 AlXY B#*#v #*F%$ L2L5)lXi<%L$ (L,L / 0 Xf   _L'<%Dv #*#6*#v #*F%$ L2L5G _L'<%Ev #*#6*#v #*F%$ L2L5+F 8_L'<%G v #*#6*# v #*F%$ L2L5+F 8_L'<%G v #*#6*# v #*F%$ L2L5+F 8_L'<%Gv #*#6*#v #*F%$ L2L5+F 8_L'<%Gv #*#6*#v #*F%$ L2L5+F 8 l H1:qXl%lC?l%lC@l%lC- q<$%l%X $ XH>C?X5H<$%l%X $ XH>C?X5H6l%X $ XH>qXl%lC?l%lC@l%lC- q6l%X $ XH>xxqtXl%ltC?l%ltC@l%ltC- qt6l %X $ XH>ddq`Xl%l`C?l%l`C@l%l`C- q`6l %X $ XH>PPqLXl%lLC?l%lLC@l%lLC- qL6l %X $ XH><((q$Xl%l$C?l%l$C@l%l$C- q$ = )X'\%Fl%$ XX<$%l%X $ XH>C?X5H<$%l%X $ XH>C?X5H6l%X $ XH>qXl%lC?l%lC@l%lC- q6l%X $ XH>qXl%lC?l%lC@l%lC- q6l %X $ XH>qXl%lC?l%lC@l%lC- q6l %X $ XH>qXl%lC?l%lC@l%lC- q6l %X $ XH>qXl%lC?l%lC@l%lC- q  lT8xdP<(XH*x $ xWh+XXqTx iD%lTC-D%lTC. qT<$%D%x $ xh>C?x5h<$%D%x $ xh>C?x5h6D%x $ xh>qxD%lC?D%lC@D%lC- q6D%x $ xh>qxD%lC?D%lC@D%lC- q6D %x $ xh>qxD%lC?D%lC@D%lC- q6D %x $ xh>qxD%lC?D%lC@D%lC- qo 8 Xxh 8 q@ qpnCl qh $qtoC<\C9$;p$;q$;a;r;s; q#l M@ l:t]@5$ 8'%!#*F%$ /5!:u%$ (,+c% $ WJCK5+c% $ WJCL5S'%!#*#6*##*F%$ 25<%% $ >C?5<%% $ >C?5<%% $ >C?5<%% $ >C?56 % $ >ttqp%lpC?%lpC@%lpC- qp<% % $ >C?5<% % $ >C?5l@q@ ll=$ [!lt#*F%llF%"]X  dl^A\_K1l/)l6\llF]d31Cl[alt#*F%llF%"]X  dl^A\_K1/)l6\[alt#*F%llF%"]X  dl^A\_Ot\/)l6\[blt#*F%llF%"]X  dl^A\_OtT/)l6\c9lt#*F%llF%"]X  dl^=\+AL-"qd/)l6\LZt#*F%llF%"]X  dl^A\_`1P/)l6\Zflt#*F%llF%"]X  dl^A\_`1L/)l6\[!lt#*F%llF%"]X  dl^A\_"qH/)l6\ll=l= lHvg  0c <'%ll@#*F%$ /5)vlP*F%$ (,5lH+c% $ WJCK5,f% $ WJCK5+< $ WJC-5<'%l$l@#*F%$ /5e:v\M@ k:w\\M@L jL,%$ (,6 \L,-(% $ WJCP5(% $ $<'%l$l@#*F%$ /5+d 8lql^ qlhqhl@q@ Dol<*#o*#olL*#o*#2 <'%ll@#*F%$ /5)vlL*F%$ (,5+c% $ WJCK5+< $ WJC-5<'%l$l@#*F%$ /5+d 8l0* pHd CalendarPlanD $ Generator@.8alendr PEa G.eDr2to1=   E<+9stdole>(stqoke( f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\S12.tlb#OLE Automation/DOfficDO> ficv {D2DF8D04C-5BFA-101B-BDE5DAAB 42DD:\Program F`iles\1mso9.dll#Micros(Main,MaxDays NewSheetNameMaxLines/AuxDays MaxFinDate MaxStartDateUInitDate} FinishDate4 Application* DisplayAlertsActiveWorkbookDateDiffSheets Range ValueKDateAdd/6 DateSerialUYear6nMonthMsgBoxRvbCrLfvbYesNo vbExclamationvbNo%vbOKOnly vbInformationn ProceedDates  MakeCalendarflagCurrDateH NextStartDatedNextFinishDate{Flag2n WorkbooksBAddrActivate|(SetColumnWidth SelectionZHorizontalAlignmentS@xlCenterVerticalAlignmentʡWrapText} Orientationw AddIndent2W ShrinkToFitA MergeCellsکInterior; ColorIndexPatternixlSolid7nFontUBold (MakeBorderI-xlMedium (CountTasks[ InsertDays InsertTasks(CellsColumnsp9 ActiveWindow+ FreezePanesMz ActiveSheet%N PageSetup PrintAreaPAddress LeftHeader CenterHeaderD RightHeader LeftFooter CenterFooter RightFooter|S LeftMargin]InchesToPointsI RightMargin[ TopMargini BottomMarginu HeaderMargin8 FooterMargin PrintHeadings)nPrintGridlines@ PrintCommentsxlPrintNoCommentsCenterHorizontallyCenterVerticallyI xlLandscape&Draft: PaperSize xlPaperA4cFirstPageNumber% xlAutomatic@OrderAxlDownThenOver BlackAndWhiteZoomFitToPagesWideFitToPagesTallZcl\wm ColumnWidth(CreateOutputSheet( NewName# LastSheet!c SheetName6Count0vMove>yAfterXmlB^sdate\edateNDays auxDate_ll^ CellColorncol(NWeek/sweekwflagW%mnameonameMwnamecolscolHll2 ActiveCell FormulaR1C1SDayWeekdayxlThinwxlBottom?maxcol5Ta     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHJ{skName_ TaskIndexqCNT+ TaskSDate\^ TaskEDatec TaskColorq TaskDeadline! RealTaskEDatee InsertIndent- NumberFormatR DrawTaskBarcylinenumֶstColendColwcntDatePRUCase5 i`BordersC"xlDiagonalDownJ@ LineStylewxlNone xlDiagonalUp xlEdgeLeftL xlContinuous[Weight1 xlEdgeToph xlEdgeBottom xlEdgeRight%vxlInsideVerticaljMxlInsideHorizontal ThisWorkbook| Sheet1 Sheet4 Sheet5 Worksheet_Defaultj_B_var_AuxDays _B_var_sdateIp _B_var_edateu _B_var_UCasea Module2cWeeklys(MainWK _B_var_On6 _B_var_IfP(MainDL' _B_var_MainDLT _B_var_Subauxuvb_(ProceedDatesWK(MakeCalendarWK SetColumnWidthWK9CreateOutputSheetWK[ (InsertDaysWK (InsertTasksWKc CountTasksWK (DrawTaskBarWKQ MakeBorderWKٌ_B_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#D:\Program Files\Office\Office\mso9.dll#Microsoft Office 9.0 Object Library   .Calendar Plan GeneratorE  ٞ Module10U45fdec0eModule1x 4ThisWorkbook0E45fdec05eThisWorkbook Sheet10@45fdec74g Sheet1)0 Sheet40H45fdec05i Sheet4L|H Sheet50I45fdec05k Sheet5`Module20V45fdec0exModule2xxocModule30W45fdec0eModule3>mModule40X45fdec0eModule4O6 Sheet60A45fdec74/ Sheet6Module50Y45fdec0eModule5nEkModule60Z45fdec0eModule6s ~ Sheet20S45fdec05I Sheet24@ Sheet70T45fdec05g Sheet7`5`` @Hx?fI SGy([g;f Ks$,<NիY%YK6ɤϵ? {0M'B(SHYW9hrA %C^€OavVSCpʂi` ugI~ٻeBM>J9F0kR&HARظš/KB"=)e -j3Z_Av(9@ as bboolean"Const=DimBDoubleCEachDelseEElseIfHendifOExitQFRfalseTForXfriend^Goto_ifbIncInputjIntegerkisxlongModNotNothingNullPublicresumeSetSubThenTotrueVariantWend Excel+ VBAWin16~Win32MacVBA6# CalendarPlanstdole`Officeu Module1b _Evaluate (MaxDemoTasksҙ (MaxDemoDays(ItsADemo" (MaxCalDayst(NewBook,Workbookk(ThisBook-3var_ProceedDates _B_var_MakeCalendar _B_var_Datev(WK_ _B_var_Constg _B_var_WK6(DL\ _B_var_DL_B_var_SetColumnWidth`Class1+ Module3d_B_var_InsertDaysV_B_var_InsertTasksF_B_var_ThisBook _B_var_Workbook3_B_var_DrawTaskBarj (StartTaskRow_B_var_StartTaskRow/ (InputPlanNameSTDateEDDateκ (InputSTDate (InputEDDateI InputMakeDay)(InputMakeDaily'6(InputMakeWeekly_(InputSplitByMonthsS(InputSplitByLayeri(GetInputValues;Make,(ProceedDatesDL(MakeCalendarDLp (InsertDaysDL# (InsertTasksDL8a (DrawTaskBarDLOstCinCalendarILongolv_B_var_MaxCalDayskxo_B_var_ItsADemoi_B_var_MaxDemoTasks._B_var_MaxDemoDays (SetPrintAreanaXcZd[ (PlanCount͎ _B_var_set AddPlanCountvbYesa?MaxNDaysK4 maxcalldays (GlobalMaxDaysu]splitbyA_B_var_splitbyDsd_ed](CheckTaskDatesMmsgQ vbOKCancelx?vbCancel'the'checko _B_var_EndF handleCancel\EnableCancelKeyxlErrorHandlerErrovbOK%vbon%Number- _B_var_vbon7cell _B_var_cell(ExtraDay extradays>_B_var_extradaysmsxgboxG_B_var_msxgbox (MainWorkbookmainbookmagbox# _B_var_magbox̊(NRTasksp Counttasks2"(CountRealTasks_B_var_FunctionO WeekCounter _B_var_False-WeekFlag' _B_var_forjLWeekLen=_B_var_auxdateen]1HReset> (MaxDemoWeeksNDayCols\sFuntion_B_var_Funtion(Day2Week SearchDate/ CalStartDater^ CalEndDate|k _B_var_Exit(RealInputSTDateRealInputEDDat(RealInputEDDateǠcolHstColnxcowInputBox InputrealSTDate (MaxCalWeeks\_B_var_maxcalweeks MaxNWeeksaaElseox _B_var_Elseoxan Description  vbCritical+} _B_var_Elseifqmauxasq maxcLDAYS6 _B_var_To Module4e (OutLookTestMOUTLOOK,V CreateObjectoFolder>GetDefaultFolder*olFolderCalendar)oItemsItems`hRestrict)(oItemszFullNameОOotlAPPsfd7] nsMyNameSpace GetNamespaceCOutlAPPx SubjectRPStartImportOutlookAppointmentsh" StartDateEEndDateXStartRowaucxR _B_var_aucxeval=n _B_var_evalSaveStatusOnLog5MSTATUS+Lline(SaveTaskDetails#LevelColor2FDeadLine( DateValue/ yearoItemu monthoItem6mont%xmonĴmoE^mdyea yec_ylSTAux1EDauxֱGetDate, (GetDateOnlyDT\Pg _B_var_LeftQ(InputMonthNamesv_B_var_InputMonthNames Inoutmonthnames[_B_var_Inoutmonthnames5Thi9Booka (OutlookColor (OutlookLevel^ outlooklevlc_B_var_l _B_var_TaskColorw(OutlookDeadline@(MSG_MAIN_TITLEz_B_var_MSG_MAIN_TITLEKg MSG_MAIN_BODY$_B_var_MSG_MAIN_BODY™ (MSG_MAIN_END! MSG_MAIN_ENO(MSG_ERR_SELCAL^#_B_var_MSG_ERR_SELCALn (MSG_MACRO_ESC_B_var_MSG_MACRO_ESCMSG_V Sheet6Sheet41P(InputWeekdayNamesU_B_var_InputWeekdayNames\ (OutlookSource΃ olFolderTasks olFolderToUse  outlooksouce9_B_var_outlooksouceHDueDate _B_var_FormatoItemsRestrict^setoItemsRestrict|Sort(OutlookTasksComplete0CONDIT(OutlookTasksNoDateJ MonthNameH TaskPercDone^ TaskResource  TaskCategory(InputOptionalFields _B_var_InputOptionalFields(InputOptionalFieldNamesa4_B_var_InputOptionalFieldNames StartColumn(StartPlanColumnAuxLoop0Asc!uChrK~ _B_var_Chr\;StartPloanColumnNum(StartPlanColumnNum(InputOptionalFieldLenqv_B_var_InputOptionalFieldLeninputsetBgcd\TaskCnt/(TaskNameColumnWidthj MSG_DATES__B_var_MSG_DATES_@ MSG_DATES_ESC= MSG_DATES_Msgh(MSG_DATES_MAINY(MSG_DATES_TITLEq,_B_var_MSG_DATES_TITLE(MSG_DATES_TITLE_TASKSa(MSG_DATES_TASKS_1_B_var_MSG_DATES_TASKS_1I(MSG_DATES_TASKS_2_B_var_MSG_DATES_TASKS_2I(MSG_DATES_TASKS_3_B_var_MSG_DATES_TASKS_3IMSG_EXCEL_TITLE_TASKS(MSG_EXCEL_LIMIT_TITLEuMSG_EXCEL_LIMIT_1 MSG_EXCEL_LIMIT_2 MSG_EXCEL_LIMIT_3 MSG_EXCEL_LIMIT_4 (MSG_EXCEL_DAYSLIMIT_1ƕ(MSG_EXCEL_DAYSLIMIT_2Ǖ(MSG_EXCEL_DAYSLIMIT_3ȕ(MSG_EXCEL_DAYSLIMIT_4ɕ(MSG_EXCEL_WEEKSLIMIT_15(MSG_EXCEL_WEEKSLIMIT_26(MSG_EXCEL_WEEKSLIMIT_37(MSG_EXCEL_WEEKSLIMIT_48BBBBFormulStartPlanColumnNumaR1C1$ (HeaderBGColor HeaderBDFont4(TaskNameBGColor> (TaskNameFont$: (HeaderFontԈ(OptionalFieldsBGColor0lonmgq(OptionalFieldsFont3(PlanAreaBGColor=(PlanAreaWeekendColorvlaueDeadlineMarker@(DeadlineMarkerBGColorAAAr_B_var_MaxDaysoptinalfieldsbgcolorrAuxExtraWkRows\Twkrow#BGColor _B_var_Fontu(CopyFontkp FontStyleItalic! OutlineFontOSizeShadow Strikethrough" SubscriptV Superscript UnderlinestrikethroughtICopyFontHeaderFont-  UpgradeTimeN _B_var_friend7 Module5fMacro1N Hyperlinks:Anchor#r TextToDisplayauxMonthIYauxDayLemd _B_var_emdFstrTextToDisplay_B_var_strTextToDisplayastrLinkoutZ(InputMakeYearlyW(InputMakeMonthly_B_var_GetInputValuesImportOutlookTaks(ImportOutlookTasks(ImportOutlookCalendarCategory\ CategoriesClass ResourcesRequiredResourcesRequiredAttendees Organizer MessageClasspnResourceselctg strResourceAr(MSG_OUTLOOK_WARNING_TITLE _B_var_MSG_OUTLOOK_WARNING_TITLE(MSG_OUTLOOK_WARNING_MSG)_B_var_MSG_OUTLOOK_WARNING_MSGxi(AllowOutlookSecureFieldsȋ_B_var_AllowOutlookSecureFields strSubjectO dStartDate]dEndDateϦPercDoneCatJ}calB}strCalw strPercDonejTPercentCompleteϘ TaskCompleteaComplete  Ownership bIsNull AuxStartDate' AuxEndDate?catryu _B_var_catrOwner%Role!TStatusUpdateRecipients auxtstartdateI3 auxtenddate7_B_var_auxtenddate (GetStatusNamest(_ OlTaskStatusolTaskNotStartedolTaskInProgressolTaskComplete olTaskWaitingzolTaskDeferredqolTaskInProgressuolTask DisableTaskPAInputOptionalFields&whiteexcWhite (CleanTaskLine (ResetTaskListfale]blankL( _B_var_blankx_B_var_StartRow_B_var_PercDone_B_var_ResourceY _B_var_Cat[:vbWhite^KxFFFFFFiFFFFFFSMSG_OUTLOOK_CLEANING_TITLE!_B_var_MSG_OUTLOOK_CLEANING_TITLEMSG_OUTLOOK_WARNING_MSG2-MSG_CLEANING_TITLEr(MSG_CLEANING_WARNING_MSGQ(MSG_CLEANING_WARNING_TITLED9(MSG_CLEANING_WARNING_TITLE2 &MSG_CLEANING_WARNING_r(MSG_CLEANING_WARNING_MSG2շ(MSG_CLEANING_WARNING_MSG3ַvmhandleCancelOutlook(MSG_OUTLOOK_TITLE(MSG_OUTLOOK_FINISHED(MSG_OUTLOOK_ROW _B_var_msgbrAuxRow1(DetectFirstEmptyRow v( MainMTH\( ProceedDatesMTH~-( MakeCalendarMTHP ( InsertDaysMTH( InsertTasksMTHr( DrawTaskBarMTH0G ( Day2Month+(MTHw _B_var_MTHr(YRp_ _B_var_YR (MaxDemoMonths_B_var_MaxDemoMonthsMonthLeny MaxDemomonthYRMaxDemo MonthCounterMaxDaysauxloop@csatr" _B_var_csatrmsgbxoS _B_var_msgbxo MaxNMonths(MSG_EXCEL_MONTHSLIMIT_1(MSG_EXCEL_MONTHSLIMIT_2(MSG_EXCEL_MONTHSLIMIT_3(MSG_EXCEL_MONTHSLIMIT_4MSG_EXCEL_MONTHSSLIMIT_1MSG_EXCEL_MONTHSSLIMIT_2MSG_EXCEL_MONTHSSLIMIT_3MSG_EXCEL_MONTHSSLIMIT_4_B_var_MSG_EXCEL_MONTHSSLIMIT_1el_B_var_MSG_EXCEL_MONTHSSLIMIT_2fl_B_var_MSG_EXCEL_MONTHSSLIMIT_3gl_B_var_MSG_EXCEL_MONTHSSLIMIT_4hl Module6gSum _B_var_SumȒ ( MakeYearlPlanv_B_var_MakeYearlPlannYearsYeareYear (ColLetter#ColNumXE( MakeGridʥSelRangea HeaderRangec ( MakeTitle̲Title~TFontuTSizeTColor5MKBorder- IndentLevel ReadingOrder xlContextPMergeq_xlUnderlineStyleNoneNd (SetGrideLines]AvbBlackTopCellLowCell]TopRight# _B_var_en( PaintSelectionOZ MakeYPlan( MakePlanwyYear$AG2TsAG5WsThenSetColumnWidthFebruaryԲ_B_var_February]has_B_var_MaxLinesNLines5( InsertSpecialDayListrLInputWhatToListپWTLIndexCriteria7DColorDDateIsDDateEoDLabelDCat COutIndexBeenDone`ColorColLabelColeColIndexSpecialDayStartRow5InputSheetName[ ColorLegend_B_var_InputWhatToListlNLine) _B_var_NLines_B_var_InputSheetName~_B_var_ColorLegendIInputSheetNames2 TestCriteria? _B_var_maxcol DrawTasksMTHX ( InsertTasksYRc ( DrawTasksYR0dddDLoop/ _B_var_DLoop[CalDayD _B_var_CalDayCalRow)_CalColcolrowY _B_var_ll2k TaskEmptyhisBookDSheetsorTaskTestvarian0~ Valuegbox۩taskǕoneH _B_var_oneY|morexyearsdates1 _B_var_dates"aretwrongh{ _B_var_wrongU?thenegixite\ taskempyt (MSG_YEAR_DEMO^_B_var_MSG_YEAR_DEMOAdemouO inputedates(MSG_MONTH_DEMO;`_B_var_MSG_MONTH_DEMO (MSG_WEEKLY_DEMO(MSG_DAILY_DEMOpDLevel g (UseGridlinesU (InputNLevels$DisplayGridlinesCNTTotald(ConfigUseDatesDeadline8yes C__MAIN_TITLE C__MAIN_END  C__ERR_SELCAL2 C__MACRO_ESCqa C__DATES_MAINC__DATES_TITLEV\C__DATES_TITLE_TASKS2C__DATES_TASKS_1C__DATES_TASKS_2C__DATES_TASKS_3C__EXCEL_LIMIT_TITLEAC__EXCEL_DAYSLIMIT_1SC__EXCEL_DAYSLIMIT_2TC__EXCEL_DAYSLIMIT_3UC__EXCEL_DAYSLIMIT_4VC__EXCEL_WEEKSLIMIT_1zC__EXCEL_WEEKSLIMIT_2{C__EXCEL_WEEKSLIMIT_3|C__EXCEL_WEEKSLIMIT_4}C__OUTLOOK_WARNING_TITLEjC__OUTLOOK_WARNING_MSGJC__OUTLOOK_TITLE0C__OUTLOOK_FINISHEDC__OUTLOOK_ROWr(C__CLEANING_WARNING_TITLEC__CLEANING_WARNING_MSGC__CLEANING_WARNING_TITLE2C__CLEANING_WARNING_MSG2.C__CLEANING_WARNING_MSG3/C__EXCEL_MONTHSLIMIT_1C__EXCEL_MONTHSLIMIT_2C__EXCEL_MONTHSLIMIT_3C__EXCEL_MONTHSLIMIT_4(SetMSGVariables ItsPersonal6_B_var_ItsPersonal (CanChangeMSG_B_var_CanChangeMSG9Restore> (RestoreMSG%C_C_@C_\C_MSG_MAIN_TITLEC_MSG_MAIN_ENDC_MSG_ERR_SELCALbC_MSG_MACRO_ESCC_MSG_DATES_MAINC_MSG_DATES_TITLE]C_MSG_DATES_TITLE_TASKS0C_MSG_DATES_TASKS_1EC_MSG_DATES_TASKS_2EC_MSG_DATES_TASKS_3EC_MSG_EXCEL_LIMIT_TITLEC_MSG_EXCEL_DAYSLIMIT_1C_MSG_EXCEL_DAYSLIMIT_2C_MSG_EXCEL_DAYSLIMIT_3C_MSG_EXCEL_DAYSLIMIT_4C_MSG_EXCEL_WEEKSLIMIT_1˥C_MSG_EXCEL_WEEKSLIMIT_2̥C_MSG_EXCEL_WEEKSLIMIT_3ͥC_MSG_EXCEL_WEEKSLIMIT_4ΥC_MSG_OUTLOOK_WARNING_TITLE(C_MSG_OUTLOOK_WARNING_MSG.C_MSG_OUTLOOK_TITLE4C_MSG_OUTLOOK_FINISHEDaFC_MSG_OUTLOOK_ROW)C_MSG_CLEANING_WARNING_TITLEC_MSG_CLEANING_WARNING_MSGRC_MSG_CLEANING_WARNING_TITLE2C_MSG_CLEANING_WARNING_MSG2bC_MSG_CLEANING_WARNING_MSG3bC_MSG_EXCEL_MONTHSLIMIT_1C_MSG_EXCEL_MONTHSLIMIT_2C_MSG_EXCEL_MONTHSLIMIT_3C_MSG_EXCEL_MONTHSLIMIT_4_B_var_C_MSG_MAIN_TITLE_B_var_C_MSG_MAIN_END>>_B_var_C_MSG_ERR_SELCAL_B_var_C_MSG_MACRO_ESC_B_var_C_MSG_DATES_MAIN_B_var_C_MSG_DATES_TITLE_B_var_C_MSG_DATES_TITLE_TASKS2_B_var_C_MSG_DATES_TASKS_1G_B_var_C_MSG_DATES_TASKS_2H_B_var_C_MSG_DATES_TASKS_3I_B_var_C_MSG_EXCEL_LIMIT_TITLE Z_B_var_C_MSG_EXCEL_DAYSLIMIT_1^f_B_var_C_MSG_EXCEL_DAYSLIMIT_2_f_B_var_C_MSG_EXCEL_DAYSLIMIT_3`f_B_var_C_MSG_EXCEL_DAYSLIMIT_4af_B_var_C_MSG_EXCEL_WEEKSLIMIT_16_B_var_C_MSG_EXCEL_WEEKSLIMIT_26_B_var_C_MSG_EXCEL_WEEKSLIMIT_36_B_var_C_MSG_EXCEL_WEEKSLIMIT_46"_B_var_C_MSG_OUTLOOK_WARNING_TITLE _B_var_C_MSG_OUTLOOK_WARNING_MSG_B_var_C_MSG_OUTLOOK_TITLEH_B_var_C_MSG_OUTLOOK_FINISHED)1_B_var_C_MSG_OUTLOOK_ROW4d#_B_var_C_MSG_CLEANING_WARNING_TITLEo!_B_var_C_MSG_CLEANING_WARNING_MSG$_B_var_C_MSG_CLEANING_WARNING_TITLE22"_B_var_C_MSG_CLEANING_WARNING_MSG2r"_B_var_C_MSG_CLEANING_WARNING_MSG3s _B_var_C_MSG_EXCEL_MONTHSLIMIT_1 _B_var_C_MSG_EXCEL_MONTHSLIMIT_2 _B_var_C_MSG_EXCEL_MONTHSLIMIT_3 _B_var_C_MSG_EXCEL_MONTHSLIMIT_4_B_var_MSG_EXCEL_DAYSLIMIT_10_B_var_MSG_EXCEL_DAYSLIMIT_21_B_var_MSG_EXCEL_DAYSLIMIT_32_B_var_MSG_EXCEL_DAYSLIMIT_43_B_var_MSG_EXCEL_LIMIT_TITLE (C_MAIN_TITLEׇ (C_MAIN_END} (C_ERR_SELCAL (C_MACRO_ESCF (C_DATES_MAIN5x (C_DATES_TITLE>l(C_DATES_TITLE_TASKS*E(C_DATES_TASKS_1(C_DATES_TASKS_2(C_DATES_TASKS_3 (C_EXCEL_LIMIT_TITLE9|(C_EXCEL_DAYSLIMIT_1(C_EXCEL_DAYSLIMIT_2(C_EXCEL_DAYSLIMIT_3(C_EXCEL_DAYSLIMIT_4(C_EXCEL_WEEKSLIMIT_1(C_EXCEL_WEEKSLIMIT_2(C_EXCEL_WEEKSLIMIT_3(C_EXCEL_WEEKSLIMIT_4(C_OUTLOOK_WARNING_TITLE(C_OUTLOOK_WARNING_MSGPP(C_OUTLOOK_TITLE~ (C_OUTLOOK_FINISHED&D (C_OUTLOOK_ROWZ8(C_CLEANING_WARNING_TITLEr(C_CLEANING_WARNING_MSG(C_CLEANING_WARNING_TITLE22A(C_CLEANING_WARNING_MSG2(C_CLEANING_WARNING_MSG3(C_EXCEL_MONTHSLIMIT_13 (C_EXCEL_MONTHSLIMIT_24 (C_EXCEL_MONTHSLIMIT_35 (C_EXCEL_MONTHSLIMIT_46 _B_var_MSG_OUTLOOK_ROW__B_var_MSG_OUTLOOK_TITLED_B_var_MSG_OUTLOOK_FINISHEDy5CX_CLEANING_WARNING_TITLE/CX_CLEANING_WARNING_MSGCX_MSG_CLEANING_WARNING_MSG<"_B_var_CX_MSG_CLEANING_WARNING_MSGXk MAIN_TITLE0_B_var_MAIN_TITLEXMSG_(MSG_RESET_WARNING_TITLEk(MSG_RESET_WARNING_MSG(MSG_RESET_WARNING_TITLE2u(MSG_RESET_WARNING_MSG2Ţ(MSG_RESET_WARNING_MSG3ƢFormulaqYAuxStr?Split)auxsatrkN_B_var_auxsatrQ Sheet2(SetMSG$ ValueThisBookhK(MSG_SET_WARNING_TITLE(MSG_SET_WARNING_MSG  MSGLoaded  (MSGCounter(MSG_NOSET_WARNING_TITLE%(MSG_NOSET_WARNING_MSG cachangemsgo2 (AllOptionFlag2 alloptionfalge_B_var_alloptionfalg9inputsplitbymonhths8&_B_var_inputsplitbymonhths Sheet7I egi k y   / g $߷sv.@ P@ Doft  9.0 Object Library>" ٞ@Module1GdduP1 2 HB1j4BE,B!B+BkThisWorkbookGD@ThLsDWkbok! 2 $ĥ$"B#$SheetBS@#eotAG.2B/I)i4GL4@<4I47L|55 5 5 b< 'K2/K2@K/K2oc8xV+K 333%3m>9h99/:d6OfD6]-:6-:60V5:@HH'HEknu+ 6/:q~st+W[AWf+2m+Vp+4Vk+& 7m97i97 7p95 "adings. The maximum calendar length is therefore 250 days. For a starting date of  8 the maximum finish date is  . VOUTLOOK Task / Appointment import finished. InsertDaysMTHN 2 weeks. Excel sheets have only 256 columns and up to 6 are used for headings. The maximum calendar length is therefore 250 weeks. For a starting date of  4WARNING - Outlook Security POUTLOOK Task / Appointment Import WizardInsertTasksMTHDrawTaskBarMTH The Resource optional field is active. Importing the resource field from Outlook calendar appointments will fire a Warning message from Outlook stating that another application is trying to access Outlook addresses. It will only work IF you do ALLOW it to proceed. 2WARNING - Task List Reset. The existing Task List will be COMPLETELY ERASED if you proceed. Do you want to clean it? 6WARNING 2 - Task List Reset! |Are you sure you want to COMPLETELY ERASE the whole Task List? 4Task List has been erased.O 6 months. Excel sheets have only 256 columns and up to 6 are used for headings. The maximum calendar length is therefore 250 months. For a starting date of  tDEMO Version limited to 7 tasks and 27 days for each plan.ImportOutlookCalendarImportOutlookTasksMainMTH4 DEMO Version limited to 7 tasks and will only work from 2004 to 2005. Using 2004 to 2005 instead of  vDEMO Version limited to 7 tasks and 7 months for each plan. tDEMO Version limited to 7 tasks and 7 weeks for each plan.ProceedDatesMTHMakeCalendarMTH ZWARNING - Original messages will be restored.= The existing Messages will beK*y     rU ~~~~~r~~~~~~~~~~~~~~~~~~~~~~~~& b gOA t  a A<p::::;1;Y;;;;;<7812Q2y222 a S  )a 3y???? @2Aa 3 13I3q33334Ya 38//''0qe Sa 3P)(+,a 3hA@i@@@@@)AQA   Module1 ThisWorkbookSheet1Sheet4Sheet5Module2Module3Module4Sheet6Module5Module6Sheet2Sheet7 CalendarPlanF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA ) Q0F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel   !I@0FC:\WINNT\System32\Stdole2.tlbstdole aPL-[DR 'D:\Program Files\Office\Office\mso9.dllOffice Ai`& 2006 WWW.OFFICEHELP.BIZ - Calendar Plan Generator 4.1 ADVANCED Edition :Calendar Generation Finished. G) This macro is a member of www.OfficeHelp.Biz full family of Calendar Products.& Please select at least one calendar type: Daily, Weekly, Monthly or Year PMacro execution stopped by user request. TImport tasks starting on Excel row number?= The main START DATE for calendar plan (Cell C7) greater than its END DATE (Cell C9). The calendar cannot be generated.  @WARNING - Invalid calendar dates 8WARNING - Invalid task dates 2The START DATE for task ' ' on line  Day2Month F5 is greater than its END DATE. The task will have no calendar bar. Press OK to proceed, CANCEL to stop. DWARNING - Calendar needs Splitting 6The requested calendar has % Proceed automatically splitting calendars every last complete month?M ,days. Excel sheets have only 256 columns and up to 6 are used for he COMPLETELY ERASED if you proceed and the original ones restored. Do you want to proceed? ^WARNING 2 - Original messages will be restored. OutLookTestDetectFirstEmptyRow GetStatusName RThe original messages have been restored.& WARNING - Original messages will be REPLACED by the ones inserted below. GetDateOnly CleanTaskLine ResetTaskList ColLetter SetGrideLines DrawTaskBarDL MainWKProceedDatesWKMakeCalendarWK InsertDaysWK InsertTasksWK DrawTaskBarWKDay2WeekT HThe existing Messages will be REPLACED by the ones below if you proceed. You may restore the original messages later using the RESET button. Do you want to proceed? ^WARNING - Only available on the CUSTOM Edition.CopyFontMFSaveTaskDetails BI The function you are trying to use is not available on this Edition. Please upgrade to the CUSTOM Edition using the Upgrade Link on this page.SetMSGVariablesSetMSG RestoreMSGGetInputValuesMainSetColumnWidthCreateOutputSheet MakeBorder CountTasksCountRealTasksCheckTaskDates SetPrintAreaf 1  $(,048<@DHLPTX\`dhlptx|F46-4 6 D}Loc(crsof lD:X`_ KxMainDLProceedDatesDLMakeCalendarDL InsertDaysDL InsertTasksDL MakeYearlPlanMakePlan MakeTitleMakeGridPaintSelectionInsertSpecialDayList InsertTasksYR DrawTasksYRFFqAA D61 ConfigFF Range Value B2 MHS D63 B4 D64 B5VBE6.DLL CS qA9 Calendar Generation Finished. This macro is a member of www.OfficeHelp.Biz full family of Calendar Products.& . Proceed automatically splitting calendars every last complete month? C0  C   InputF DL WK MTH YRfĤIx8< C  C5 C7 C9 F11 ALL 0 C11 No Split C13 F7 Daily Weekly Yearly Monthly All I35 C27 I34 Include J35 G27 J34 K35 K27 K34 C29 C12 C14 C15 C16 C17 C18 C19 C20 C21 C22 C23 F12 F13 F14 F15 F16 F17 F18InteriorColorIndex C25 G25 C47 Yes C49 C51 C33Font C35 C37 C39 C41 C43 C55 C57 C  C 0FChqJʏi^K F"I igDF Worksheet @H=P LF! ݙxTHMjv  E d C  C  C)  C!  C 0 Output WorkbookF SelectName A Task :B &HorizontalAlignment Shadow "VerticalAlignmentWrapTextOrientationAddIndentShrinkToFitMergeCellsPattern C : D Sheet C P C` pColumnWidthBold ColorFontStyle ItalicOutlineFontSizeStrikethroughSubscriptSuperscriptUnderlineBordersLineStyle WeightColumns Count   ' 'W C(  I J KInsertIndent 0%NumberFormatAddressPageSetupPrintAreaLeftHeaderCenterHeaderRightHeaderLeftFooterCenterFooterRightFooterLeftMarginRightMarginTopMarginBottomMarginHeaderMarginFooterMarginPrintHeadingsPrintGridlinesPrintComments $CenterHorizontally  CenterVertically DraftFirstPageNumber OrderBlackAndWhiteZoomFitToPagesWideFitToPagesTall '( ) and  Days C:AG B2:AG2 Arial :AG :C AF AE AG C:CIndentLevelReadingOrder Merge Z 1/1/ # , L U N W NONE Legend / Calendar CT 6__SRP_1PROJECTwm7PROJECT%SummaryInformation(( rU~~{ a      Calendar Plan GeneratorclwNewNameiabcd 7FLlineLevelColorDeadLineSTDateEDDateTaskNamePercDoneResourceCatDTColNumstmlmaxcollinenumsdateedate TaskSDate TaskEDate TaskColor TaskDeadline RealTaskEDate SearchDate CalStartDateWTL CalEndDate StartDateEndDateStartRowyYearTitleSelRangeBGColorTFontTSizeTColorMKBorder HeaderRange TaskEmpty aSJModule1Module1ThisWorkbookThisWorkbookSheet1Sheet1Sheet4Sheet4Sheet5Sheet5Module2Module2Module3Module3Module4Module4Sheet6Sheet6Module5Module5Module6Module6Sheet2Sheet2Sheet7Sheet7ID="{00000000-0000-0000-0000-000000000000}" Module=Module1 Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet4/&H00000000 Document=Sheet5/&H00000000 Module=Module2 Module=Module3 Module=Module4 Document=Sheet6/&H00000000 Module=Module5 Module=Module6 Document=Sheet2/&H00000000 Document=Sheet7/&H00000000 HelpFile="" Name="CalendarPlan" HelpContextID="0" Description="Calendar Plan Generator" VersionCompatible32="393222000" CMG="D1D37D7B817B817F857F85" DPB="30329CC3B9C3B93C47C4B9A2E4AE6F65B2149C6FD615BD71D1547CB7D82CF4A1044CB70D" GC="8F8D2366DD9A3D9B3D9B3D" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] Module1=22, 22, 554, 462, Z ThisWorkbook=66, 66, 613, 506, C Sheet1=132, 132, 679, 572, Sheet4=0, 0, 0, 0, C Sheet5=0, 0, 0, 0, C Module2=22, 33, 906, 631, Module3=66, 99, 943, 697, Module4=22, 33, 798, 654, Sheet6=0, 0, 0, 0, C Module5=44, 66, 930, 672, Module6=44, 66, 930, 672, Sheet2=0, 0, 0, 0, C Sheet7=0, 0, 0, 0, C Oh+'0HPl www.OfficeHelp.Biz acpinho1Microsoft Excel@| h@L=@KF-՜.+,D՜.+, PXl t| \ SiteApps  InputConfigHelpDemo RestrictionsMacro ConfigurationsConfig!Print_Area'Demo Restrictions'!Print_AreaHelp!Print_Area"'Macro Configurations'!Print_Area  WorksheetsDocumentSummaryInformation8 CompObjIm Named Ranges  8@ _PID_HLINKSA ~)k/?http://www.officehelp.biz/officehelp/default.asp?ent=demosite4] Vhttp://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00002&ent=demosite4] Vhttp://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00002&ent=demosite4] Vhttp://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00002&ent=demosite4|) 'Demo Restrictions'!A1|)'Demo Restrictions'!A1]Vhttp://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00002&ent=demosite4E Config!A1E Config!A1)k?http://www.officehelp.biz/officehelp/default.asp?ent=demosite4L_>http://www.officehelp.biz/officehelp/default.asp?ent=demosite7-http://www.officehelp.biz/AP'Macro Configurations'!A1%tHelp!A1[Vhttp://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00044&ent=Demosite4  Input!A1  Input!A1]Vhttp://www.officehelp.biz/officehelp/viewcontents.asp?cl=Macro&id=00002&ent=demosite4  Input!A1BLZhttp://www.officehelp.biz/officehelp/viewcontents.asp?cl=PC%20Tip&id=00004&ent=MacroHelp2  Input!A1 F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q