аЯрЁБс>ўџ ўџџџ}џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџ  )L*ўџџџ !"#$%&'(A+,@.9012345678-:;<=>?ўџџџBKCDEFGHIJR]­NўџџџPQўџџџ\TUVWXYZ[Mj_`abcdefOhiўџџџklwopqrstuvgxyz{|ˆ§џџџ€Root Entryџџџџџџџџ РFŒ9ЌЕ=ЯЩbЕЯЩ@‘Workbook0џџџџџџџџ SebiesnrMkudrfcoIaamtykdDa8џџџџџџџџџџџџX_VBA_PROJECT_CUR"/- зДЯЩ`3YзДЯЩўџџџ  !"#$%&ўџџџ()*+,-./0123456789:;<=>?@ABCDEFGHўџџџJKLMNOPўџџџRSўџџџUVWXYZ[\]^_`abcdeўџџџghijklmnopqrstuvwўџџџyz{|}~€ўџ’Dd‹Lб‹p6Б0(€ А  n ЭЩР‡сАСт\p Ben Dalby BАaР=гК ThisWorkbookœЏМ=xЬB*<X@"Зк1ШџnArial1ШџnArial1ШџnArial1ШџnArial1 џnArial"Ѓ"#,##0;\-"Ѓ"#,##0"Ѓ"#,##0;[Red]\-"Ѓ"#,##0"Ѓ"#,##0.00;\-"Ѓ"#,##0.00#"Ѓ"#,##0.00;[Red]\-"Ѓ"#,##0.005*0_-"Ѓ"* #,##0_-;\-"Ѓ"* #,##0_-;_-"Ѓ"* "-"_-;_-@_-,)'_-* #,##0_-;\-* #,##0_-;_-* "-"_-;_-@_-=,8_-"Ѓ"* #,##0.00_-;\-"Ѓ"* #,##0.00_-;_-"Ѓ"* "-"??_-;_-@_-4+/_-* #,##0.00_-;\-* #,##0.00_-;_-* "-"??_-;_-@_-рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р,ѕџ јР р*ѕџ јР р ѕџ јР “€џ“€џ“€џ“€џ“€џ“€џ`…фSheet1…јSheet2… Sheet3Œ,ЎСС"Оќџcc n ЭЩР œ  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?_-U>Ж@я7К Sheet1 n ЭЩР А  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?_-U>Ж@я7К Sheet2 n ЭЩР Ф  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?_-U>Ж@я7К Sheet3  ф:HЌќ2иџџ#ˆЖџџVBAџџџџџџџџ зДЯЩp–OзДЯЩThisWorkbookџџџџ'p__SRP_6џџџџџџџџIи__SRP_7$џџџџQŒџџџџџџ<џџєЗwrЭ EF­мhТ3ћјРFЇj€Ѓ’уGО2^XПџџџџџџџџџџџџxЇj€Ѓ’уGО2^XПєЗwrЭ EF­мhТ3ћјџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ6"џџџџџџN0{00020819-0000-0000-C000-000000000046}(p @`џџџџџџџџџџџџ|џ џџџџџџџџT” џџџџ`џџџџџџџџџџџџ|џ џџџџџџџџX ”€ўџџџџџџџЈџџ€џџџџџџџџ%џџџџџџџџ@ƒўџџџџџџџшџџџџџџџџџџџџџџ %‚ џџџџўџџџџџўџџџџџџџџџџџ %џџџџиџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџ€џџџџџџџџ@џџџџџџџџ€џџџџџџџџџџџџ№Р@\TџџџџџџџџџџџџџџџџџџџџџџАї%ŽK$*\Rffff*0Q4b8e218aпџџџџ4ўЪ €€ џџџџ€ @ " € џџџџ€ 0€ џџџџ€ <`" € H € џџџџџџџџшЭџџx–oџџ`–@oџџHџџџџ@р CreateToolbarрDestroyToolbarр6Removes your addin's toolbar when the Addin is removedinstр9Installs your addin's toolbar when the Addin is installedџџџџџџџџNБAttribute VB_Name = "ThisWorkbook" ŒBasŒ0{00020P819-0C$0046} |GlobalаSpac’False dCreatablPredeclaIdБTru BExposeTemplateDeriv’BustomizD2Option /licit 'Installs your addin's toolbar when the A is iƒed P@D Sub Й_*() – ƒ'‚ŒeT-` End‚BR emove&BrAUnD*!'De stroyбrU€€€ Јё  A џџџџЩ #4i б‘ џџџџџџџџџџџџ`` IџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЮW0 ќЦ  0 ќЦ@  44PrU€€€ џџџџџџџџ@$`Tџџџџџџџџ$A`X џџџџџџџџnDфrKŸЌќ\џџ#ˆЖџџџџџџџџџџџџIёˆЦEPлІ3 С; РFЕ1Z&XŒИI‘vлD]”ј”џџџџџџџџџџџџxџџMEџџџџџџџџџџSheet1џџџџџџџџџџџџTQSheet2' џџџџfQSheet3џџџџџџџџџџџџxQmodRegistryџџџџ7 пџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџџџџџ@ƒўџџџџџџџhџџџџџџџџџџџџџџ %‚  џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@HHџџџџџџџџџџџџџџџџџџџџџџ0ї%ŽKпўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et1" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2DфrKŸЌќЅЄџџ#ˆЖџџџџџџџџџџџџцbŘЋДљBЅЛйяЮPњR РFy@^mPRMŠъaKLMџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџџџџџ@ƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ "џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@HHџџџџџџџџџџџџџџџџџџџџџџ0ї%ŽKпўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et2" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2‚ƒ„…†‡ˆ‰ўџџџ‹ŒŽ‘’“”•–—˜™š›œžŸўџџџЁЂЃЄЅІўџџџЈўџџџЊЋўџџџ­ЎЏАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхўџџџчшщъыьэюяўџџџёђўџџџєѕіїјљњћќ§ўџDфrKŸЌќ0џџ#ˆЖџџџџџџџџџџџџЎяGн[CПЎсRкЩР РFpЮšeУи|C‘ДрwьУњЯџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџЈ€ўџџџџџџџ(џџџџџџџџџџ%џџџџџџџџ@ƒўџџџџџџџhџџџџџџџџџџџџџџ %‚ $џџџџўџџџ˜џџўџџџџџџџџџџџ %џџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџp@@HHџџџџџџџџџџџџџџџџџџџџџџ0ї%ŽKпўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et3" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2rU€€€€~|  QЉ ‰#ё б!ё&1!!‰' (y()'џџџџџџџџџџџџ”$KH#tџ€pџ4lpџ€ ъSџџ@р &Standard error handler for subroutines >!@а (Ж: 0Ж:  >!@Ж:  >!F >B@„х8ИnџџАiџџЈ ‚ І ЈA@†tringрGet the key's content Ј о$˜'t‚р Close the key ЈA@€s contЃ8zџџјЃ2№ >ъSџџрр &Standard error handler for subroutines >!@а (Ж: 0Ж:  >!@Ж:  >!F >B@„>Hх8XnџџPiџџHр-START Standard header for any module or classџџџџ ]DЖ modRegistryђр+END Standard header for any module or classџџ џџџџАџџџџ‰ЕAttribute VB_Name = "modRegistry" 'START Standard header for an„y Xule class Option Explicit PrivaТConst MODULE_NAME „AsЌringuиEND'sЅ*L)r ˆ: ‹D escri‚v: ˜ librar@y code’m http://www.mentalis.org/".‚Allows us to€ discov€Дdefault br€with  GetDƒ B &N oREG_SZ@k1 ' Uni9nul termin@yd €@tQBINARYE@3@FreФGb!ry € ubРŒ ŠHKEY_CLASSES_ROOT&H80 URREN@T_USER 1ТDЁDeРЉre 0FuncЊ@nCloseKey Lib "advapi32.dll" (ByVal hРЋLong)Ў!XOpenAlias –"€ A,  lpSub Sьng, phkR esС…k%QuerсA4ueExб;G)ѓ§@$ueт‡ E…AрervedХ&,€ lpTypeщDataсAnyљСcb .ШD&8`a•C(Љ4,!QPa`eH€SBA c‚9C Т #OPROC”€ЁK† @ЁOРšrr@G oTo EAH Ђ`ler xЃDim lngRe.tЁ уDЁ'a= tрhe keР]A@пLF@  '`хф's ‹ntрˆcЦп^  b6Ѓт( })D B^ŽaУ LeaveProc:у Ex…џџќalГXђац$№›\пиІ Remp‰bunnecesіsƒ 'l:a?)qІ@Left$(г,Ш In`K(1r a… - 1| A7Išf‡EEЯG_‡_.€A,IUgуm/s vЁwБ џ ЄП4ПџП62_p`ф{ >РJ5Еп^п^ZDoп^ ŸPUgп^В п^nd tџп^”bсZп^п^п^п^п^бHыaHп^п^oё^ ўџ˜ мўџџ џџ @ўџџџџџЬўџџ џџ @ўџџџџџМўџџ џџ џџџџ @ўџџџџџИўџџ џџ џџџџ˜ XЄ<@џџџџЄЌќxwџџЖџџh„џџRegCloseKey„4RegOpenKeyA„T RegQueryValueExAџџџџџџџџџџџџџџџџџџџџxџџME@џџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP> џџџџџџџџLџџџџ”џџџџџџџџ<џџ<џџ<џџџџџџhи т(@(Hџџџџџџџџџџџџџџ modRegistryџџЪ˜vи€Cџџџџџџџџџџџџџџ%h+€иpџџџџџџџџџџџџИџџ iƒ‚џџџџџџџџџџџџџџ„+†x pџџџџџџџџџџџџџџ  iƒ‚џџџџџџџџџџ8„ BRDiƒˆџџџџџџџџџџX„d eriƒŠџџџџџџџџџџџџџџ€****+Œˆ@pџџџџџџџџџџџџИџџ@ iƒ‚џџџџџџџџџџи„iƒŽџџџџџџџџџџј„C@.iƒџџџџџџџџџџ„iƒ’џџџџџџџџџџ8€iƒ”џџџџџџџџџџX€iƒ–џџџџџџџџџџџџџџ€+˜џџџџ`џџџџџџџџ`ИўkИџџџџ++.Œiƒ‚џџџџ џџџџи„iƒšџџџџџџџџџџџџ„@”0џџџџ` Hџџ`„œџџџџpџџџџџ`„žјlџџџџџ`„  hџџџџџ`„Ђdџџџџџ`„ЄИ2џџџџџ+tx`џџџџџџџџАЬўkШџџџџŒiƒ‚џџџџ џџџџш€iƒІџџџџџџџџ€јiƒоџџџџџџџџџџџџ€@”0џџџџXHџџ`„Јџџџџtџџџџџ GetStringџLџџџџџџТ˜|8Bџџџџџџџџџџџџџџџџџџџџџџџџџџˆx@иp8иџџџџxxџџџџџџџџЪ˜~џџџџ€Cџџџџџџџџџџџџџџ€џџџџџџџџџџƒxџџџџџџ`џџџџџџџџџџџџџџџџџџРҘzpBџџџџџџџџџџџџџџ`tџџџџxџџџџџџџџџџџџџАџџџџџџшџџџџџџџџ˜џџџџ Шџџџџџџџџhџџџџџџџџџџџџ@(џџџџџџџџшџџџџџџџџџџџџџџџџh€Иџџџџ џџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџАџџџџџџџџџџџџhPhџџџџ†˜€>(EXCEL.E@ўџШpџџџџџ @ўџрlџџџ џџ @ўџјhџџџџџ 0@ўџџџџџdџџџџџ C:@ўџ`џџџџџ dole@ўџX\џџџ џџ ё@ўџџџџџXџџџџџ @ўџ(Tџџџџџ @ўџ@Pџџџџџ R@ўџpLџџџџџ s\Co@ўџHHџџџ џџ Sha@ўџˆDџџџџџ @ўџџџџџ@џџџџџ џџ@ўџш0џџџ џџ @ўџа џџџ џџ PEa@ўџџџџ џџ C:\W@ўџџџџ џџ .DLL@ўџ0№ўџџ џџ @ўџџџџџрўџџ џџ @ўџџџџџаўџџ џџ @ўџџџџџЬўџџ џџ ˜p џџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџ@XџџџџџџџџџџџџР P № џџџџ8 џџџџи џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџh џџџџџџџџџџџџ Ј  `˜џџџџxџџџџџl( loseKeP џџџџa `„šџџџџtџџџџџ€ €  ey RegQueryStringValue `„šџџџџtџџџџџ€`„šџџџџtџџџџџ€xџџџџŒz(\м|>(A@ўџ `џџџџџ @ўџ8 \џџџџџ trin@ўџ Lџџџ џџ ingV@ўџh <џџџ џџ @ўџЈ 8џџџџџ m@ўџџџџџ4џџџџџ rt@ўџ ,џџџ џџ 0@ўџџџџџ(џџџџџ 0џџџџh !od@ўџ№ $џџџ џџ @ўџР џџџџџ nBro@ўџи џџџџџ ltBr@ўџ џџџџџ il@ўџИ џџџ џџ ,,@ўџ џџџџџ $@ўџџџџџ џџџџџ @ўџP ќўџџ џџ @ўџ€ ьўџџ џџ X @ўџ˜ мўџџ џџ @ўџџџџџЬўџџ џџ @ўџџџџџМўџџ џџ џџџџ @ўџџџџџИўџџ џџ џџџџ˜ xџџџџџџџџџџџџџџџџxџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜ї%ŽK$*\Rffff*0T4b8e2292*\R0*#f*\R0*#19*\R0*#1a*\R0*#13пўЪY€ 4x€„И€ 2а€ џџџџ€ V€ `€ H€€ RШ€ Vh€ џџџџ„0Р„$№€ џџџџ„„(€ џџџџH€ 8H€ @H€ H€ џџџџ€ џџџџB  €(@€ џџџџ€H€ P#@€ Xx€  Ј€И€ џџџџР€ џџџџ€Шаи€ ,р JА `hp€ џџџџB P€ Xx€ џџџџ€€€ џџџџ€ ( $6Ш€ џџџџ № €  ((€ @ $O` ˆ€ &˜(2Р ш №€ €  "<( P ` hpx€€€ џџџџˆ€ џџџџ€˜ € ,Ј JАи (08€ џџџџ€ џџџџ€ џџџџџџџџЭрP********************************************************************************џџр* Name__SRP_cџџџџџџџџџџџџŠR__SRP_d џџџџ ŒmodConstantsџџџџџџџџ/?%__SRP_10џџџџџџџџџџџџЇJ*#TџlXџћў#Pџ*#Lџ*#@џlDџ*Fџ' џlhџ ЬўЬў D2pџ`џTџPџLџ@џDџ)lџ\џHџЬў6 џџ№ўаў§ EА$(xџHpџ`џTџPџLџDџ@џlџ\џHџЬў џџ№ўаўмdlCtџK†6dџєlџѕltџ`џ4l`џl ^ q\џ џџџџ<џџџџџџPъ˜О Bџџџџџџџџџџџџџџъ˜ТPBџџ џџџџџџџџџџџџъ˜ФHBџџ џџџџџџџџџџџџъ˜ШpBџџ џџџџџџџџџџџџъ˜ЬШ Bџџџџџџџџџџџџџџъ˜Ю˜ Bџџџџџџџџџџџџџџъ˜вР Bџџџџџџџџџџџџџџъ˜ж@Bџџџџџџџџџџџџџџъ˜ишBџџџџџџџџџџџџџџъ˜мBџџџџџџџџџџџџџџъ˜рИBџџџџџџџџџџџџџџъ˜т8Bџџџџџџџџџџџџџџъ˜ц`Bџџџџџџџџџџџџџџъ˜ъ0Bџџџџџџџџџџџџџџъ˜ьˆBџџџџџџџџџџџџџџъ˜ЎCџџџџџџџџџџџџџџ modConstantsџџъ˜<@CџџџџџџџџџџџџџџjšИАCџџџџџџџџџџџџџџџџ NAME OF ADDINЌџџџџи џџџџџџBAn unhandled error occurred. Details of the error are as follows: are Аws: d. Dъ˜ˆˆЯ€Cџџ$џџџџџџџџџџџџъ˜Šр щ€Cџџ"џџџџџџџџџџџџРџџџџHџџџџъ˜Bˆш€Cџџ!џџџџџџџџџџџџъL рHџџџџџџџџџџџџџџA critical error has occurred. No further processing will take place. Please contact your support team. Details of the error are as follows: lNAME OF ADDIN_LOGџџџџhъLџџџџ Hџџ'џџџџџџџџџџџџъ˜HШъ€Cџџ&џџџџџџџџџџџџъ˜АCџџџџџџџџџџџџџџъ˜ВјCџџџџџџџџџџџџџџАlџџџ џџ џџџџАъЄ№Hџџ%џџџџџџџџџџџџP џџџџCџџАт(№€Hџџџџџџџџџџџџџџъ˜МBџџџџџџџџџџџџџџъ˜Р(Bџџ џџџџџџџџџџџџъ˜ЦxBџџ џџџџџџџџџџџџъ˜Ъ Bџџџџџџџџџџџџџџъ˜а№ Bџџџџџџџџџџџџџџъ˜д Bџџџџџџџџџџџџџџъ˜кhBџџџџџџџџџџџџџџъ˜оBџџџџџџџџџџџџџџъ˜фрBџџџџџџџџџџџџџџъ˜шBџџџџџџџџџџџџџџъ˜юШBџџ џџџџџџџџџџџџjšјиCџџџџџџџџџџџџџџџџjšњџџџџCџџџџџџџџџџџџџџџџjšИШCџџџџџџџџџџџџџџџџj’ИPџџџџCџџџџџџџџџџџџџџџџj’јxџџџџCџџџџџџџџџџџџџџџџj’њџџџџџџџџCџџџџџџџџџџџџџџџџjšИИ Cџџџџџџџџџџџџџџџџjšј№CџџџџџџџџџџџџџџџџjšњџџџџCџџџџџџџџџџџџџџџџъЬXЈHџџџџџџџџџџџџџџj’h џџџџCџџџџџџџџџџџџџџџџj’| џџџџCџџџџџџџџџџџџџџџџj’xџџџџџџџџCџџџџџџџџџџџџџџџџjšја CџџџџџџџџџџџџџџџџъŒ`Hџџ#џџџџџџџџџџџџBAn unhandled error occurred. Details of the error are as follows: џџџџH jš€ Cџџџџџџџџџџџџџџџџjš|Ј CџџџџџџџџџџџџџџџџjšxџџџџCџџџџџџџџџџџџџџџџjšњџџџџCџџџџџџџџџџџџџџџџjšИ CџџџџџџџџџџџџџџџџjšјА Cџџџџџџџџџџџџџџџџ` џџџџџџџџˆ CџџџџџџџџџџџџџџџџP CџџџџџџџџџџџџџџџџjšњџџџџCџџџџџџџџџџџџџџџџjšИ Cџџџџџџџџџџџџџџџџjšј( CџџџџџџџџџџџџџџџџjšњџџџџCџџџџџџџџџџџџџџџџ˜ ƒКџџџџџџ€ џџџџџџџџџџџџџџ%@ш№h№Иа8р`0ˆШˆџџџџˆџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџи р џџџџ ( X`Шџџџџџџџџ џџџџџџџџџџџџ№ј (PHxp Ш˜№Рage џџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџаur support team if you see this message when the right workbook is open A ˆical error has occurred. No further processing will take place. Please contact your support team. Details of the error are as follows: cџџџџ№ill take place. Please contact your support team. Details of the error are as follows: џџџџџџџџџџџџ И џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџАџџџџаџџџџ ˜шˆ PШ``џџџџџџџџHџџџџџџџџџџџџџџџџ8 €Јx0 џџџџџџџџџџџџ 8ајџџџџ ј (PHxp Ш˜№Р@шhИ8р`0ˆXиј(pш №ˆР Ар ˆџџџџш(џџџџ№аџџџџџџџџџџџџџџџџ№ШџџџџџџџџџџџџџџџџџџџџX џџџџџџџџџџџџџџџџџџџџџџџџџџџџCˆ ї%ŽK*\R0*#e$*\Rffff*0V4b8e2292(*\Rffff*0V4b8e2292\0пJђ(]$ЌђP]$ЌђH]$Ќђxx]$Ќђp]$Ќ ђ ]$Ќ ђШџџџџ]$Ќ ђ˜]$Ќ ђ№Hџџ]$Ќ ђР]$Ќђ]$Ќђ@]$Ќђш]$Ќђhџџџџ]$ЌђErro]$Ќђ]$ЌђИ]$Ќђ8џџџџ]$Ќђр]$Ќђ`Hџџ]$Ќђџџџџ]$Ќђ0џџџџ]$Ќђˆ]$ЌђHX,tр-START Standard header for any module or class]$Ж NAME OF ADDINђH№,F AD]$ЌђH,clр+END Standard header for any module or classр:Use these constants in your message boxes and logging code]$Ќш F ђШe theрLMicrosoft .NET assemblies have four version attributes, which we mirror hereџџ,р+Set the constant below to anything you likeџџ,]$ЌђH,]$ЌђH@,]$ BЌ ђˆrшрFUse the error below to indicate that the program must abort gracefully$]$ BЌч ђ`r - maрEGeneric error - may be handled by functions further up the call stackрYour errors hereрERROR CONSTANTS]$ЖBAn unhandled error occurred. Details of the error are as follows: ђр ]$ BЌ ђ№Ж(]$ЖBAn unhandled error occurred. Details of the error are as follows: ђШ e]$ЖA critical error has occurred. No further processing will take place. Please contact your support team. Details of the error are as follows: ђˆџџџџ`рAUse these constants to make cell manipulation code more readableџџџџ рYLogging priority - set in either the Registry or a document property for the application.рSIndividual calls to modLogging.WriteLogLine will compare the priority of the logged confiрLmessage with what is configured in the Registry. E.g. if the Registry is setll mesрOto LogInformation, all messages with LoggingPriority.LogDebug will be discarded№ №Ќ'ИЌ'јЌ'њџџџџџџp]$ LЖ_LOGђH ,рISee modLoggingџџџџРџџџџ‰ЕAttribute VB_Name = "modConstants" 'START SER€ROR CON0†шNTSSРYсMOˆ below‘UР†th!{} li.k >Аёd_2_B AS6uk000 + vbObje ctRGbFGene ric eт{-@Ey  handlРVby func_sr  r u–p[1_ @ ckќ2•UNHANDLќED3 фpрsВ +СRZBASTR_op‘U“An unе C occurb. Detai/pi$fуhaР olё€s: `†pфVt•Fi ncС›th€hprogram must abort №cef0ully"CRITICAL_SœTO7og99}1“…nStf cаv6i  h ‡NoЛЦ№ cа $2yteplace. PleaѓЃtactB ЂЃsuppAtxeamR#lY{Ї"s0ГnЁA р_дCU@MT+1?"”џ4"m<І^И/"/"/"-"с25prU€€€ џџџџџџџџ(n№диџџџџ’о Ќќ…(џџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџ__SRP_11џџџџЉ’modDocPropertyџџџџЌu__SRP_4&џџџџцf__SRP_5џџџџџџџџџџџџ№—џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP6 џџџџџџџџLџџџџš"џџџџ( џџј<џџ<џџ<џџџџџџ  ƒрџџџџџџ0џџџџџџџџџџџџџџ%+тИ`џџџџџџџџdџ+x џџџџ Œiƒфџџџџ џџџџџџџџ€џџџџ „ьџџџџtџџџАџџџџ% Аџџџџ`џџџџџџџџPєўkџџџџџџџџџџ„8(џџџџџџџџИџџџџmodDocPropertyџџџџт(џџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№HџџџџЦОР џџ@ўџџџџџxџџџ џџ @ўџџџџџtџџџ џџ`џџџџџџ@џџџџ8џџџџ ўџР @ўџpdџџџ џџ џџ@ўџˆTџџџ џџ џџ@ўџ Dџџџ џџ џџ@ўџИ4џџџ џџ џџџџ@ўџа$џџџ џџ № @ўџшџџџ џџ ˜@ўџџџџ џџ џџџџ@ўџџџџџєўџџ џџ џџџџџџџџџџџџџџџџИџџџџџџџџџџџџџџџџџџџџ˜џџџџxџџџџџџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџИ№а`тџџџџzџџџ џџрИџџИ8џџџџegisџџџџTџџџ џџ to@ўџџџџџpџџџ џџ mes@ўџHlџџџ џџ iori` џџ џџ@ўџџџџџhџџO џџ џџˆHўџ@ўџџџџџdџџџџџ џџџџHˆџџџџ€8џџџџ(џџџџџџџџџџџџИџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјї%ŽK$*\Rffff*0P4b8e214a*\R3*#46*\R1*#f1$*\Rffff*0Q4b8e218a*\R3*#74пўЪ€ 4р€„P€ 2€ џџџџ€ ^pB € !( P h p` @€ џџџџ€ \`"x € <-  >/ N/ааи€ џџџџџџџџШ–8iЗ'тЭ]ђ˜џ ьў !К“ollџ ьўШsso ь! фœkџџЗ'тyџџ–И !КѕІ   Ж PROPERTY2бЗбМ ОбlЌбžC@bбqџџиoџџар-START Standard header for any module or classџџр+END Standard header for any module or class]DЖmodDocPropertyђ(рXUse this function to test if a document property is present before attempting to read itІ   Ж PROPERTY3бЗбМ РбlЖProperty 3 ValueбžC@bmaІ   Ж PROPERTY1бЗбМ ЦбlЗбžC@bџџџџрVDemonstration code showing how to add some custom document properties programmaticallyykџџџџ8џџџџВAttribute VB_Name = "modDocProperty" 'START Standard header for any ^ule class Option Explicit PrivaШConst MODULE_NA ME AsVriФngxEND'vЈUse this func„to tetif a documen(t pм pr$es behe рattem`I€jru aF(Exists(str†e)kBoo€lean РDim dp ?AЏ„‡З*‡Fa(lseF€­Ea„ch!In T€pWorkbook€.Custom +œieУ<If€Ц.„юVThe„M… Ч€%Ц Tru„ E 9€t Р#&AEnd IfУNex2t …L ‘@fDemraBecode showA~€ €Zaddш so€ cB4kР4AСmgramm@cally€–ub™@ Sub Ckt&eФ0@ ()%WidthэL.A@#L:="PROPER€TY1", _ƒECLinkTo€Е2t@:=‚l Ty€pe:=mso…W‡„‡ valu@ ; ^Q#2#јЁNuаmber•1‡1О3?AYЎ ю"S’ng5"E( 3 ўV!% “ePС<O€AaNrU€€€€~|  И Щ бСAaЁ)Б1 a Аlєpzџ!pџ$  Qpџ[lџtџўˆhџ h dџѕ tџ $ ldџ€ ћ0/dџYєџpzџ§Эhџh tџў‹hџ *l0lџhџtџdџpџшАxџ$  Qxџtџ-:dџ%ќfDџ%ўС$џ%cџ%tџўІ /:dџ %ќfDџ%ўС$џ%(џ%tџўІ /:dџ %ќfDџ%ўС$џ%:џ %tџўІ ќcќјtџmˆА(tџxџfrU€€€ џџџџџџџџ(`§џџџџџџџџџџџЙ0$Љ`§џџџџџџџџџџџnrU€€€€~|  Љ Й# $й б$ YЁ"&&1"A%#ё !y$1!ˆDl Ctџ7 1Pџѕ>Pџ#pџ*#lџltџ*F\џ tTџ2pџlџPџ5\џI,D(modAPPLICATION(џџџџџџџџSРmodInternetџџџџџџџџџџџџ^Л__SRP_aџџџџџџџџџџџџѓ__SRP_b џџџџ™ўџџџўџџџ     ўџџџўџџџ !"#$%&'()*+,-./01234567ўџџџ9:;<ўџџџ>?@ABCDEFGHIJKLMNOPQRўџџџTUVWXYўџџџ[\]^_`abcdefghijklmnopqrstuvwxyzўџџџ|ўџџџ~ўџџџ”™O4 GoTo EH€žler` ˆ8.€ЌtusBar‚€Process‰...€%Žcre`enUpdWœFalse…+'Do@ stuff @ Leave):;'Clean up€тre, nDotrget€Ig @›'Фо$Truс€$ExitAXС" A#Select CaseСH.NuќmbAHAС7…СMsgBox "YOUR POLITE MESSAGE HER0E" &ˆ": ХDescriЈ, vbOKO nly +€InхДm‚€, РТ{CсResuРШЦTCpEnd C2‚9Au b'ƒЃhelpЫuncТХ(raXiseIЂ„ЧFEMLyHТ ()Ъ ў œЄ‹тЂfF‚BAЭF| B9Aџ9є9RR_NUM_CUSTOM_ERROR_1 -'Up to you howуТg th>i$'+ЇƒF… RI@TICAL_` PA+'Simp`?p ropagР“sЁbˆtheРgack‹€.RС6K, ,ЂHJ‹ЇjUNHРANDLEDck6d generaР›Ё‰s fro˜m fDFРur`@r down $eр callQ­ЮkЄ'Aрƒnhт-dуЅ\ -„€cОdЁ n№ re-тXЫш$$0›Ќ&(`>2R_l uvbCrLf _ ‰Ш& "і:с{ЇД&рy !уŠџ  уT !h9€Пa Љ{aI`џџџџџџјpMyApplicationEntryPointx`HJLD€Xxџџџ џџ @ўџhџџџ џџ @ўџdџџџџџ @ўџ`џџџџџ џџџџogrџџџџ\џџџџџ nt@ўџXџџџџџ s\@ўџTџџџ џџ ogџџџџ(Pџџџџџ IB@ўџLџџџџџ ta@ўџ<џџџ џџ B@„х8јnџџ№iџџшџџџџрр+END Standard header for any module or classBinрGUse this function to launch the given URL in the user's default browserџрGA bit more classy than just calling IE, especially given how many usersFрwill be using something elseџџџџџџ(џџџџ}ДAttribute VB_Name = "modInternet" 'START Standard header for an„y Xule class Option Explicit PrivaТConst MODULE_NAME „AsЌringuEND's dEXE_EXTV.exeХ ЩUse this funcЅto lah€ e given URL inuser's default` brow€€$A bit€}re {yan ju!€pcalliIE, especiy.how m›-€–'will@ be ussome€P€ˆels’ekub€Ђ F…W OpenBƒB(BАyVal‚V†Ѓ)ЉBoolean Ь ƒ'Lrkweb‡cShea@ GetDC9„ (& "@&, vbNormalFocu@- EьndF%ТV*?JYє* AЄ:)СŽ(‚@DescriТœ: Looks atoEmvalueAtHKEY_CLASSES_ROOT\HTTP\тs@...ТEТ€М extrac tsЪD‚ from€”entryOAssumesЪ ‚ {ofBРаm "PATH\€АCUTABLE" DDE_CO@MMAND1 2Зџ]ь.PlNю.(ТLBS ‡ng УzPxROCƒzˆ.pO @‚rrР„GoTo EAHР+ler UDim strРRegKeyчƒIYЧ= У(n;,$ "Ї;\oрf\c$om@od"@")C If Len(f ) > 0 TheФgЁ@ LefBtЇ, Inр(d1,‡, „fT€GCompareи) +B Є)ТL€УЁ'Remo ve doр0e-рquote@nAa"‹1)Chr0(34)bH(= hMid)2` Rxigh*› эŒ'-ќ 1Ч GюAрІ*У†EТ…'Try ЫBd Ђe IE; "c:\program files \iЄз`wplorрer\ieРб ЄСс !˜IfC LeaveProcђ:%Ex МЏAœiVЄSelect ќCaЫРC #jеС'Ішebah#`‚щ„su€ŠutinЉ=C .RaiC .Number, ‚,*щ& ":"@ЖПЧp!тЗСƒAК:fчЇw ёRe!KР*гсуЯ_џџ џџ@ўџш8џџџ џџ џџ@ўџH(џџџ џџ џџ@ўџ0џtџpџlџPџ\џ˜$KH+ChџhџClџlџѕ€Ypџ  1tџ2lџhџltџJѕл93ѕltџѕў§JЊtџMXџ@Hџ  Hџ`1tџ5Hџ6ѕtџMXџ@Hџ  Hџѕ"8џ 8џћ36Hџ8џв('HџѕtџMXџ@8џ 8џ`1tџ6Hџ8џ6ѕtџMXџ@Hџ Hџѕ"8џ 8џћ36Hџ8џ.<џJѕЎtџMXџ@Hџ  Hџ`1tџ5HџltџCxџC Cxџжpџ џџ  lpџqџџАpџ џџ  џ  џ џ  єў јўјў , 'аў'(џ*#lџ*#hџ*#џlџћў#џ*#ќў*#№ўlє№l д(џџџџs џЌќ‘џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <$џџ<(џџ<џџ<џџ< џџ<џџ<џџ<џџ<џџ< џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџ8ИHp№џџџџџџџџServ`”0џџџџ`Hџџnt`”0џџџџиHџџџџџџт(џџџџАHџџџџџџџџџџџџџџ Z№`џџџџџџџџџџџџьў@џџџџџџџџџџ„modAPPLICATIONƒXџџџџџџшџџџџџџџџџџџџџџ%+^џџџџ`џџџџџџџџџџџџЬў@џџџџџџџџ ŒџџџџШј˜џџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџјpMyApplicationEntryPointx`HJLD€Xxџџџ џџ @ўџhџџџ џџ @ўџdџџџџџ @ўџ`џџџџџ џџџџogrџџџџ\џџџџџ nt@ўџXџџџџџ s\@ўџTџџџ џџ ogџџџџ(Pџџџџџ IB@ўџLџџџџџ ta@ўџ<џџџ џџ Se@ўџ,џџџ џџ ut@ўџџџџ џџ grp џџџ џџ is@ўџќўџџ џџ poџџџџьўџџ џџ keџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(x@x0xџџџџџToPinnиproMyHelperFunctions\lџџџџ0ˆŠŒŽ(orш@tџџџ џџ iz@ўџpџџџџџ Pr@ўџlџџџџџ \Pџџџџ иџџџџРhџџџ џџ иdџџџџџ @ўџTџџџ џџ x(Dџџџ џџ @ўџ4џџџ џџ @ўџ$џџџ џџ Јџџџ џџ @ўџџџџ џџ џџџџєўџџ џџ џџџџш№ўџџ џџ џџџџаьўџџџџ @ўџшўџџџџ @ўџфўџџџџ @ўџрўџџџџ @ўџмўџџџџ @ўџиўџџџџ @ўџдўџџџџ @ўџаўџџџџ @ўџЬўџџџџ џџџџpџџџџHџџџџџџџџџџџџ№џџџџHџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџї%ŽKпўЪ<€ 4€8„€ 2X€ џџџџ€ 0"@€$№H€ џџџџ&Р "Р€ џџџџ€ А€ џџџџ€ џџџџ€P€ (р %р "аP€ џџџџ€X `p L} x€€ џџџџˆ€ џџџџ€ , B€0(€ џџџџ€ € џџџџ€ € џџџџ€ џџџџ€ (€ *P€ џџџџ0€ $8 ^h€ џџџџ`€ ZИ€ џџџџˆ€ 4€ dИј€ џџџџџџџџpр-START Standard header for any module or class€€Эџџ@–pЩ2Ѓ8р+END Standard header for any module or class]DЖmodAPPLICATIONђHрDo stuffptЖProcessing ... :(<l helpЗ :(<n]ЖMyApplicationEntryPointђ0rror–№р%Model helper function (raises errors)vate|џџЈЃ2  >!@ъng = "Sџџhх8 nџџoџџр*Model entry point routine (reports errors)З :(fhinЗ :(fageр!Clean up here, not forgetting ...iџџЃ2ˆ >!@ъram HKT ˆKTр Simply propagates up the stack pro ŠKT >!@а >!F >B@„esSџџІ  Šа Œ Ž Ž (Ж: 0 Ž >!@Ж: >!F >B@„SQnџџр Do stuff herentryzЃ8Щ2`]ЖMyHelperFunctionђamр #Up to you how you handle this errorzeEр -An unhandled error - format and then re-raiseamр SUp to you how you handled general errors from functions further down the call stacknteЖYOUR POLITE MESSAGE HERE >!@Ж:  >!F H J LA@D\WџџџџџџџџЗГAttribute VB_Name = "modAPPLICATION" 'START Standard header for any ^ule class Option Explicit PrivaШConst MODULE_NA ME AsVriФngxEND'vЈModel entry point routine (reports error$s)”ubž S€ub MyApUЊa[EP(€сYPROCXў*F8џ'Hџlpџ ЬўЬў D 2lџhџџџќў№ўєў)џ џјўЬў6Hџ8џ(џаў§ EА$,xџtџHlџhџџџќўєў№ўџ џјўЬўHџ8џ(џаўfп rU€€€ џџџџџџџџ( `§џџџџџџџџџџџ™$Љ `§џџџџџџџџџџџnшB 0€ џџџџ€ 8rU€€€€~| modToolbarsџџџџџџџџџџџџnт__SRP_14џџџџџџџџџџџџ6__SRP_15#џџџџmodFileDialogsџџџџџџџџџџџџ~ъ.№D д(џџџџ 4ЌќдFџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ > џџџџLџџџџ”џџџџџџџџџџџџџџџџš џџџџџџџџџџџџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџ`џџџџ0(џџџџџџџџ modInternet+\`џџџџџџџџ€Pџkp џџџџ Œiƒjџџџџ џџџџџџџџ„x+nџџџџ`џџџџџџџџPЬўkџџџџџџџџ!!Œ@”0џџџџ№Hџџ`„rџџџџtџџџџџТhџџџџ Hџџџџџџџџџџџџџџт( Hџџџџџџџџџџџџџџƒfџџџџџџxџџџџџџџџџџџџџџ%џџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0РH.exeџџџџа`\џџџџzџџџ џџX0Аџџџџ`„jџџџџtџџџџџ€`„jџџџџtџџџџџ€ˆ`„jџџџџtџџџџџ€ˆџџџџ˜џџџџnplџџџџ @ўџ№pџџџџџ @ўџ8lџџџџџ @ўџџџџџ\џџџ џџ @ўџџџџџTџџџџџ џџџџ@ўџџџџџPџџџџџ џџџџџџџџџџџџшџџџџџџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџp0Иџџџџ џџџџXџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџ GetDefaultBrowsertBrow`nџџџџxџџџџџ0`џџџџвм(џџџџvthвм(њкџџ@ўџˆpџџџџџ џџ@ўџˆlџџџџџ џџ@ўџ hџџџџџ џџ@ўџXџџџ џџ џџ@ўџаHџџџ џџ џџ@ўџш8џџџ џџ џџ@ўџH(џџџ џџ џџ@ўџ0џџџ џџ @>(`(џџџџџ@ўџpџџџ џџ џџ@ўџџџџџџџџџџ џџџџHџџ џџ@ўџш џџџ џџ џџ@ўџџџџџџџџџџ џџ@ўџИџџџџџ џџ@ўџаџџџџџ џџ@ўџќўџџџџ џџ@ўџpјўџџ џџ џџ@ўџєўџџџџ џџ@ўџџџџџ№ўџџџџ џџ@ўџџџџџрўџџ џџ џџ@ўџџџџџаўџџ џџ џџџџџџџџџџP@ўџџџџџЬўџџ џџ џџџџP0џџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџї%ŽK$*\Rffff*0S4b8e221d*\R0*#19*\R0*#1a*\R0*#13*\R0*#f*\R0*#9$*\Rffff*0T4b8e2292*\R0*#14*\R0*#8п ўЪ:€ 4€„€ 2€ џџџџ„ € џџџџ€ џџџџ€ NH€ N˜€ "шB 0€ џџџџ€ 87X€ џџџџx€ џџџџ€ V€€ &и€ T€ FX€ 6 € @и€ VPBЈ€Аа€ џџџџ€и€ џџџџ.+р(3 € џџџџ€ H2^h:\ € џџџџрш€ №8@€ џџџџ€H€ џџџџP€ џџџџ€X`h€ ,p JА  №ј€ џџџџџџџџЭ]DЖ modInternetђ(]DЖ.exeђ–0рLaunch in web browser nЖ  j pA@liџџрP********************************************************************************t р * Name: GetDefaultBrowserрM* Description: Looks at the default value in HKEY_CLASSES_ROOT\HTTP\shell ...- prр?* and extracts the default browser from this entrysuр0* Assumes entry will be of the formxр:* "PATH\EXECUTABLE" DDE_COMMAND1 DDE_COMMAND2р-START Standard header for any module or classd erрP********************************************************************************–]ЖGetDefaultBrowserђаЩ2]ђш vЖHTTP\shell\open\commandЖ$t'r rЌ œ rЌ r h в† h $м'rрRemove double-quotes rЌ$мЌ"$(›G rЌ$њ'rj rЌ$кЌ"$(›G r rЌ $м'rj r'ndџџрTry and use IEЖ/c:\program files\internet explorer\iexplore.exe'nkџџЈЃ8 zџџ˜Ѓ2 >ъSџџ€р &Standard error handler for subroutines >!@а (Ж: 0Ж:  >!@Ж:  >!F >tever you wantџр.Called by ThisWorkbook.Workbook_AddinInstall()ЖCUSTOM CAPTION 19Њџџџџр#Called by Workbook_AddinUninstall()€џџџџˆџџџџ5ДAttribute VB_Name = "modToolbars" 'START Standard header for an„y Xule class Option Explicit PrivaТConst MODULE_NAME „AsЌringuEND'sЅet this to whovЄyou wan„APP_TOOLBAR BCUSTOM … R/Call€ed by T2Workbook._Addin&Ip€()zub Sub CreG„Ј Dim cMenu1!?CommЎBaBr‘trolb№Main€ ‹`iHelpI@ntegercрCutom0€i€(1)Dele€fArexistСbone. We m‚u€kuse O@s„rr@xResu€ˆ@next _ in ca@it does nodt Т. @9Э NЁР Ap†a‰".Ч%s("СRshNeРq‚-=")@nƒAD€&" & n)./@œХ'GoTo 0'(2)S@a ‡ vapriabЋ€ˆmЅ€a РК  c ] = j+C3)Return€Ѓe Index numВb€ЃofТm Щ‚YcaB n ZEАplace a cР`om beЭРмe@VЧ}= Ъ+HKЯС€O‚ƒ%4)РЈ€ CoBTСЩthe лб.D р '-)E_ *!}(HOѕ.@(Type:=msoФ Popup,ф BТ:=І iU@5)Give(c Dр#aЂ cbyЧ.CЃЁŠ­Fc!6)с?]with €our new`EB#, add so@]sрwЄ s, .g€w# s@ d PtellсmAb  ich macro,run (POnAc!^)Р)WAыуsв"Butшton€ Id•CAPTION >1•Be СdMACRO"End 3т No`@BeginGroup propertyФQР lineрBtween ЧMТ Œ2 ? @+h= TrueМ Тˆ;-> 2 џ) a@Д‚!'МaCЁЛƒКˆUniвКDes “ОyшКСsž!?‰ џžжчžъ eŸHPџџџ џџ hi@ўџ0Lџџџ џџ ec@ўџи<џџџ џџ ;C@ўџџџџџ8џџџ џџ Fi@ўџx(џџџ џџ of@ўџџџџџ$џџџџџ er@ўџџџџ џџ Bi@ўџЈџџџ џџ gr@ўџџџџџєўџџ џџ am@ўџџџџџ№ўџџџџ am@ўџ№рўџџ џџ eE@ўџџџџџаўџџ џџ o @™-щ,Б-i1a.9.‰.Б.й./)/Q/y/СЁЉ/с+ 0Y0‰0С01`јKџџi'(џ%8џ*F<џ%LџPџ:Tџ%dџhџ$ hџ ddџ HPџ „Lџ , 8џ ” ) hџdџPџLџ8џ5<џKўџ9Pџ:Tџ%dџhџ$ hџ ddџ HQPџtџ)hџdџ7$џdџ:Tџ %hџtџ „hџ , dџ Ш l$џфprџ)hџdџ=dџ'єў%krџD(џ%'џ%'џ%ўСTџ %hџtџ „hџ $ Qdџlџhџ*#№ўlџ ˆ /№ў.ўСTџ%lџWрў §ŸўЇаў ўїРўРўqМў5рў:Tџ%lМўџC:Tџ%lМўџC ѕqМў.ўСTџ%lџWрў §ŸўЇаў ўїЌўЌўqЈў5рў cTџ%lЈўџC:Tџ%lЈўџC:Tџ%lЈўџC ѕqЈўCдј8 РўЌўxџtџlџ0 №ўhџdџPџLџ8џ<џрўаўРxKџџi'8џ%Hџ*FLџ%\џ`џ:dџ%tџxџ$ xџ dtџ H`џ „\џ , Hџ ” ) xџtџ`џ\џHџ5LџKўџDx$ $xџtџ`џ\џHџLџf € rU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџn8iи€ џџџџ€ 8rU€€€€~| ёQ!i‘ ™ С!1"С Ё"й #ё A !‰ 1!i #џџџџџџџџр0K[,џq$џ ѕL™$џ^q џ џџџџџџџџLџџџџLџџџџџџџџLџџџџLџџџџ”џџџџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџџџџџ modToolbars% а`џџџџџџџџЈўoџџџџџџџџџџ++ „ „єџџџџxџџџp% „јџџџџtџџџurs %`„ќџџџџrџџџџџр „ўџџџџlџџџШ8% џџџџ`џџџџџџџџ˜8џoџџџџџџџџџџ4„т(шHџџџџџџџџџџџџџџџџџџџџџџашџџџџCUSTOM TOOLBAR NAMEџџџџђ: 8џџџџƒNџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџР@ўџИhџџџ џџ EџџџтђџџџџXHџџџџџџџџџџџџџџџџџџ(XџџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџАџџџџ˜џџџџџџџџџџџџРаџџџџаџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџpˆ@ўџшdџџџ џџ ep@ўџHTџџџ џџ gr@ўџPџџџ џџ hi@ўџ0Lџџџ џџ ec@ўџи<џџџ џџ ;C@ўџџџџџ8џџџ џџ Fi@ўџx(џџџ џџ of@ўџџџџџ$џџџџџ er@ўџџџџ џџ Bi@ўџЈџџџ џџ gr@ўџџџџџєўџџ џџ am@ўџџџџџ№ўџџџџ am@ўџ№рўџџ џџ eE@ўџџџџџаўџџ џџ o @ўџHРўџџ џџ ro@ўџpМўџџџџ`(` ogr@ўџџџџџЌўџџ џџ icˆH"t O@ўџџџџџЈўџџџџ`CEџџџџp"\WIџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPШџџџџ€џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџђ:CE11\;:@ўџhxџџџ џџ il@ўџ˜tџџџ џџ gi@ўџјdџџџ џџ 16@ўџА`џџџ џџ m @ўџр\џџџ џџ on@ўџџџџџLџџџ џџ So@ўџџџџџHџџџ џџ \P@ўџџџџџ8џџџ џџ esџџџџHџџџџџџџџџџџџџџџџаџџџџшџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџ8ї%ŽK$*\Rffff*1R4b8e25bd*\R3*#50*\R3*#4e*\R3*#30*\R3*#4f*\R3*#4d*\R3*#8c*\R1*#d7*\R1*#e8*\R1*#2acп ўЪ:€ 4€8„а€ 2ш€ џџџџ€ $@„ € џџџџ€ 4h"@€ џџџџ€H€P€X€`€ џџџџ€fh€ џџџџа8iи€ џџџџ€ 8&9P€ џџџџ€ fx7р€ џџџџ€ @€ ,@$=p€ џџџџ€ $˜Р€ џџџџ€ ^ € (и.   P€ џџџџ€ d.X x€8 ˜€ џџџџh€ џџџџ€ *Р"px8i€ИР€ џџџџџџџџјр-START Standard header for any module or classbarЭџџ–]ђX]ђx]ђ˜]ђАІФџрX(1)Delete any existing one. We must use On Error Resume next' in case it does not exist.ЩЖ& ђЖWorksheet Menu Bar :%%B@\Щир2(2)Set a CommandBar variable to Worksheet menu barэЖWorksheet Menu Bar :%.јр`(3)Return the Index number of the Help menu. We can then use this to place a custom menu before.ЖHelp ј%!'ќЖCrр9(4)Add a Control to the "Worksheet Menu Bar" before Help.р&Set a CommandBarControl variable to itmitэ бl ќб ј!%b.ўр(5)Give the control a caption.Ж& ђ ў(Њ(:р! which macro to run (OnAction). бl ў!%bѕ ˜ўЖCUSTOM MACRO 19 e ЖCUSTOM MACRO 29  qџџ@ бl ў!%bѕf!З9ЖCUSTOM CAPTION 29ЊqџџирX(6)Working with our new Control, add some sub controls, give them captions and tell themр^Note the BeginGroup property which places a line between CUSTOM CAPTION 1 and CUSTOM CAPTION 2ў!oџџА–аЩ Ж& ђЖWorksheet Menu Bar :%%B@\Щ`oџџXџџџџ˜]DЖ modToolbarsђр+END Standard header for any module or class]DЖCUSTOM TOOLBAR NAMEђшрSet this to whaџџџџ€ `ј€ "X€ R€€ `ИB€(@€ џџџџ€H€P€ џџџџX€ џџџџ€ ` €€ џџџџ€ А€ џџџџ€ $И: р€ џџџџ€   8 € џџџџ€ @ EX € џџџџ€ &x $   € џџџџ€ џџџџ€ Ш р € џџџџ€ &№ (  € џџџџ€ @  ` € џџџџ€ h  ˆ € џџџџ€   Ј € џџџџ€ "А  .и  ш € џџџџ€ ,ј  (( &@  `  h p  x € € џџџџ ˆ € џџџџ€ € џџџџ˜ € џџџџ€  Ј А € ,И  JАш 8 @ џџџџP –иЭ–Ј№PрZ******************************************************************************************р* Name: ShowOpen*.cрI* Description: Standard code to use Common Dialog Open dialog control^ђШ^ђр^ђј^ђ^ђ(^ђ@^ђX^ђp^ђˆ^ђ ^ђИрZ******************************************************************************************–]ЖShowOpenђ˜Щ2(]ђА]ђа lѕ l9rрSet the parent windows\ v9tрSet the application's instancet Ќ9xр+Application.hInstance (not available in 2K)FilрSelect a filterr j9zр!b"Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)рcreate a buffer for the filegraЌў$ ~9|\р)set the maximum length of a returned fileЌџ9€р"Create a buffer for the file titleЌў$ ~9‚mр/Set the maximum length of a returned file titleoЌџ9„рSet the initial directory h9†р Set the title L9ˆрNo flagsЌ9ŒрShow the 'Open File'-dialog l$Žœ5|$ š'pр %Remove trailing vbNullChar if present pЌ$к œ p pЌ $м'pkџџш p'fdџџиЖ'fkџџШqџџРЃ8ИzџџАЃ2Ј >ъSџџ˜р &Standard error handler for subroutines >!@а (Ж: 0Ж:  >!@Ж:  >!F >B@„nџџiџџрZ******************************************************************************************р* Name: ShowSaveрK* Description: Standard code to use Common Dialog SaveAs dialog control^ђа^ђш^ђ^ђ^ђ0^ђH^ђ`^ђx^ђpРр+END Standard header for any module or class ]DЖmodFileDialogsђhailablр-START Standard header for any module or class рZ******************************************************************************************І –ш]ЖShowSaveђˆЩ2ˆ]ђ ]ђР lѕрSet the structure size l‚ƒ„…†‡m‰Š‹ŒŽўџџџІ‘’“š•–—˜™ўџџџЄœžŸ ЁЂЃ”ЅЇЌЈЉЊЋЎОПЏАБВГДЕЖЗИЙКЛМНняўџџџСТУФХЮЧШЩЪЫЬЭРЯабвгдежзийклмўџџџопюстуфхўџџџчшщъыьэр№ѕёђѓєўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџКОžђџџџџРЬ%ЌќD_џџЖ( фPMџџ GetOpenFileNameAрџџ<bџџGetSaveFileNameADGetOpenFileNameAGetOpenFileNameAфŒr(GetSaveFileNameAџџџџџџџџџџџџџџџџџџџџxџџRPRLLџџџџџџџџџџџџџџџџџџџџMExџџџџџџџџпџџ$џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  Hџџn> џџџџLџџџџ”џџџџџџџџџџџџš џџџџџџџџš џџџџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<џџџџџџH@ A%%A%+fш`џџџџџџџџH0ўkXџџџџKK$Œiƒhџџџџ џџџџx€d2iƒjџџџџџџџџџџџџ€ @”0џџџџHџџI* „lџџџџ,џџџШndar@%`„pџџџџ(џџџџџOpen+’џџџџ`џџџџџџџџИ0ўk(џџџџEEoŒiƒhџџџџ џџџџH€f Shiƒ”џџџџџџџџh€****iƒjџџџџџџџџџџџџ€****@”0џџџџ Hџџ**** „lџџџџ,џџџИ@%`„pџџџџ(џџџџџ(+ŽЈpџџџџџџџџџџџџџџ )ƒтџџџџџџџџџџџџ€modFileDialogsџџџџnџџџџШџџџџт(џџџџ8HџџџџџџџџџџџџџџhиџџџџџџџџЈџџџџџџџџшPшџџh€rрџџ\Ph€tјџџesh€xџџCoh€z( џџtih€ц@џџrah€шXџџcrh€ъpџџSeh€|ˆџџolh€€  џџ\ph€‚И$$џџesh€„а((џџroh€†ш,,џџ\Sh€ˆ00џџr h€Œ44џџph€ь088џџilh€юH::џџFih€№`<<џџ;Ch€ђx@@џџFih€єDDџџWih€іџџџџHHџџ\;+–xpџџџџџџџџџџџџшџџx )ƒтџџџџџџџџџџџџ€шr_ƒдџџџџџџџџџџџџџџџџџџџџџџџџШџџџџ0џџџџ8џџџџаџџџџxџџџџџџџџџџџџџџџџ˜XџџџџџџџџџџџџАџџџџшџџџџ€@рџџџџШџџџџhџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџXџџџџџџџџџџџџш(И`fџџџџxџџџџџ@џџџџShowOpenўџ˜$џџџ8`A%И џџџџv~LŽšкм@ўџА џџџџџ @ўџ€џџџџџ ўџџџџџаўџџА Р%p˜+@ўџјРўџџ џџ @ўџАўџџ џџ @ўџp ўџџ џџ @ўџXўџџ џџ P>(@ўџ˜Œўџџ џџ @ўџџџџџˆўџџџџ џџџџX>@ўџШ„ўџџџџ @ўџ€ўџџ џџ @ўџџџџџ|ўџџџџ @ўџрxўџџџџ @ўџјtўџџџџ @ўџ(pўџџџџ @ўџ lўџџ џџ @ўџ@hўџџџџ @ўџџџџџdўџџџџ @ўџˆTўџџ џџ @ўџџџџџDўџџ џџ @ўџџџџџ4ўџџ џџ @ўџџџџџ0ўџџ џџ џџџџРHhџџџџџџџџџџџџџџџџˆ(џџџџX џџџџ џџџџџџџџџџџџ №  џџџџЈ џџџџш џџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџ џџџџџџџџџџџџX и p `’џџџџxџџџџџ€ X Р џџџџShowSaveўџx $џџџИ `A%˜   џџџџv~мL–šк@ўџH џџџџџ @ўџH џџџџџ @ўџ0 џџџ џџ @ўџи ќўџџ џџ @ўџ` јўџџџџ @ўџ` єўџџџџ ўџџџџџЈўџџ Р% x ,@ўџР ˜ўџџ џџ @ўџ№ ˆўџџ џџ а >(@ўџ0 „ўџџ џџ @ўџџџџџ€ўџџџџ џџџџ ?@ўџ |ўџџ џџ @ўџџџџџxўџџџџ @ўџx tўџџџџ @ўџЈ pўџџџџ @ўџ lўџџ џџ @ўџР hўџџџџ @ўџџџџџdўџџџџ @ўџ Tўџџ џџ @ўџџџџџDўџџ џџ @ўџџџџџ4ўџџ џџ @ўџџџџџ0ўџџ џџ џџџџриPhџџџџџџџџџџџџшPhџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ ї%ŽK$*\Rffff*0R4b8e21e8(*\Rffff*0R4b8e21e8\0*\R0*#19*\R0*#1a*\R0*#13*\R0*#e$*\Rffff*0V4b8e2292*\R0*#f$*\Rffff*0W4b8e2292пўЪД€ 4€€„`€ 2(€ џџџџH€ H€ € џџџџ€€ј€€€€€ €(€0€8€@€H€и€р€ш€№€ј€€€€€ € џџџџ€ џџџџ€ ` € "€€ PЈ€ `PB А€Иа€ џџџџ€и€р€ џџџџ€ џџџџш€ џџџџ №€ џџџџ€  € џџџџ€ $(: P€ џџџџ€ p Ј€ џџџџ€ "@€ џџџџ€ 0P €€ џџџџ€ (ˆ9rрSet the owner window v9tрSet the application's instanceЌ9xр+Application.hInstance (not available in 2K)рSet the filter j9zрCreate a buffer ”Ќў$ ~Ќў$м9|рSet the maximum number of charsЌџ9€рLen(OFName.lpstrFile)рCreate a bufferЌў$ ~9‚рSet the maximum number of charsЌџ9„рLen(OFName.lpstrFileTitle)рSet the initial directory h9†рSet the dialog title L9ˆрno extra flagsMyЌ9ŒрShow the 'Save File'-dialog l$–œ5|$ š'pр %Remove trailing vbNullChar if present pЌ$к œ p pЌ $м'pkџџh p'’dџџXЖ'’kџџHqџџ@Ѓ88zџџ0Ѓ2( >ъSџџр &Standard error handler for subroutines >!@а (Ж: 0Ж:  >!@Ж:  >!F >B@„nџџiџџˆџџџџАџџџџgЖAttribute VB_Name = "modFileDialogs" 'START Standard header for any ^ule class Option Explicit PrivaШConst MODULE_NA ME AsVriФngxEND'vgDe‰re FuncŠGetOp enжхLib "comdlg32.dll" A@lias "ŒAP" (pf€ˆn€XOPENFILE`)aLonТg›>SaveЃ>‰ƒЉ>‡?Type ‰Q lStr€uctSize‡YhwndOwn/@tР6ƒ2‚Ikan‚cL lpstr€2>tУ @oDCustomnMa>xСG‡gРInјdexЫ'E"ЩУ€(eTit€ЅР4б G ТInitёОDir!I‚в`flagsЫ,‚šO ffsetIn`tegerƒIТEрxtensЩ(ŠёТDef@Š O0Data .fnHookMTemplРн‚МШAEnd’ ‰ A'*Ї?2@‡* Ё:JaeShowAjЂDрescri†ƒІŒcode to use CommK ŠC’  dТ“ €controla ЯŸ?2@kub@™ч‰ME(`artрEe`ctorya0C6, eТ…E:УЁPRO^CƒЁ`Џ  ЎO Јrr ЊGoTo E5AHАlХHƒIDi№m OF%<Џ~ср8Tmp'#ЉWiМthФУa5'.i‡@= Len(c) Б'S€^the parent w`indowЈ Ž=Š р­A`ДveWЌSчц apЪa!К'8s iФ“ F–= 0 'Aч.hF(not availabрƒin 2Kѕl€: a _€П@“ btЄ˜=ш<'@"Text ’s (*.txt)" + Chr$h(0) "‚lAдllg*/*шЇ!''creсыa №buffГAѓ!0Ёж Ч.ХСќSpacРe$(254Яа'‘K!maxim€um leng@"of№returhnedeјY=0 255‡—'CхŸ • t[Чї љcW= O   и•'O ќa J ЎЅ •џ Д Ж(isb`Hrƒ?џm ˆd"kBз—Жoƒ<вl= APPвBcа No ТhЧ.ПУi№0с АXђ'BU™+'-ЃUїIfa:ёБFх? Then‡!ФF= Tr№im$(7h&q[@'Remov№^rp9с vbNullChar if ppres D;` R0ightAX№M, <1)PЄˆЯ LeŽfЗ1MЃ ) -ѓЋsIf;ЅZ0ƒqчElsh1AШ"џА]!1}#QYбyLeЃProc:СГ ExiF”­'!ЉaTSe’KCaПАsрЃю 'а)5ГНe"ghƒf"Оsubroutine Н15€.Rai#.Number, ,њН& ":А" & Gn !чсC№":6s џс вР‹uНёŸ?|џСŒСaКявŒeвŒ ŒС№˜џs6/ŒЏ/ŒE /Œ‡‚"Œ ЈaulіtЅ?й_р/аrџЗŽ( tŽQŽё'vŽПѓ?Žезї0?Ž ѓ§Б4 ‹Sq,6W№ѕРбu@уsвЏЏљя oђдŸІжŸBкћ1 я Ÿй‡шŸŸ–ЊВР2K) 'Set the€ filter`€.lpstrFT8 = ,B'Create a PbuffŠe†Left(HDefault[eName & Space$(254), eЊmaximum number of chars3.nM ax^t255 €'Len(OF6ke‡‡!ЁiTitўll_ %/\…,–^›шinitial directXoryG$CAID irРIРeStar.t@M P2dog t@Х.APP`_NAMEЧG'no extraр flag‰nТР#†0 ˆ Show‚Њ@'Save Сw'-"G If GetСA|~) T8hen AТРєў#џ*F џќў  ќў`#јўT$џ2џјўєў6 џќў ѕџ™$џ ѕў #џT$џ$/џ ѕџ™$џ( € T$џ, T$џ0 ѕ™$џ4.,џЈўЈў^q џ<Јў,џ l џќRўіЈўp”$џ 1(џ(ѕ(џM˜ў@ џ   џ:ˆў]ћ35 џc&l(џJѕЎ(џM˜ў@ џ   џ`1(џ5 џl(џCxџz Cxџ ѕq$џа џ „ў„ў  l џq€ў„ўА џ „ў„ў  xў |ў|ў  hў lўlў , '4ў'Tў  *#џ*#јў*#єўlxўћў#tў*#pў*#dўlhў*Fќў' џl џ 0ў0ў D 2џјўєўtўpўdўhў)„ў|ўlў0ў6 џќўTў4ўWL`hPxџЈўi0gџџxИч Files\I(џ eџџ,џi iџџxИч ess\Bin\Hџјўєўtўpўhўdў„ў|ўlў0ў џќўTў4ў‘ ‘ frU€€€ џџџџџџџџ,™ pўџџџџџџџџџџџё4џџџџ,i xpўџџџџџџџџџџџё4џџџџ,`§џџџџџџџџџџџI000Љ` §џџџџџџџџџџџiI000‘ nrU€€€€~| Љљ)бi*q)й*Y)С)с)I+Q!й‰'Ё+Ё"™€ џџџџ€ џџџџ€ џџџџџџџџ0Эр3Support for writing debug information to a log file******–а ЊЌœtion Ќ!њ'Њt mekрYCall this function to write out messages to a text file stored in the Windows temp folder Њ'ЖiарJWrite your own code here to retrieve LoggingPriority wherever it is stored––€–]@ђp]@ђ€–h Ф Ж ›Gzj]ђ№ А'Ц Ш ЦЋЬ ЦіЖ[$МЖyyyymmdd-hhmmss$ЌЖ]  Тж ЦViџџ0– ]ђH]ђ`]ђx ЈЌœр-Start with this application's log file prefix Ь'ЈрAppend computer nameЌџ$ ~'  Aš Ќ$ („' Ќ ›G ЈЖ-  Ќ $м'ЈjрAppend user nameЌџ$ ~'  AЂ Ќ$ („' Ќ ›G ЈЖ-  Ќ $м'ЈjрAdd text extension ЈЖ.txt'ЈрAdd path to Temp directory Ю Ј'Јkџџ@ Ј'Шiџџ0–]ђа]ђшЌџ$ ~'  AЄ Ќ$ („' Ќ œ  Ќ $м'ЮdџџАЖc:\'Юkџџ˜iџџџџџџHр-START Standard header for any module or classџр+END Standard header for any module or class]DЖ modLoggingђџџџџ@ џџџџїДAttribute VB_Name = "modLogging" 'START Standard header for anyB Vule class Option Explicit PrivaРConst MODULE_NAME AsЌrftEND'rЄupport!–writTde@bug inЊma”to a log file  ›De€^re Func‚GetPCompŒr‚ŠLib "kernel32" Al ias "ŒA" (ByVal РlpBuff“q€, nSizey`Long)›AUseˆ?advap€i32.dll‰A…Я?TempPaИth ж?EЧnƒ>pLeng@С;, FHBЧBmstr=€ F€i‚_†QˆlnжgDЉ@˜oР|yУTЎ…y'Call Рthis fХw@‚‰Ўut mes@sages Т‡t exР‘@ stored@e Wрindow РDР™fl@С@#ub€ЙЧW…Р!e€%LineФ‚-€2MС'SРлng†Cс0BHУ ‘CIf @< @‘DTheтitF(УDim€5tFr eea,InteHgerуing=ц ХcOp` _р Ѕц3FрApdA ^#ШcЁB# i,€ "[" &  t(Now()`ymmdd-h€hmmss")@8"] !g)у Closej EnюdЈO4ш#(„OLFЁ… +mа+= 0 *Ч'уyour own code'€Є€‰ IreР=eve2сЉ3wherљрr @3рR#M‡ S ‰.рErroЮr ЎAIfƒ@љf = а џ$KV Я-& "-A6LefЦtз…- 1ШЗ §•u j___хk7џсNє@й*p1mp,fR 'Add уRccensрGoСo".txt –уь зЂpxРDВ direcpiy/йХr= ‘b{&mWџ“9Ck?7ќ uQџЅ’ё F"žц“_C?Aџ š“ЁED7AP_Ао4•4Љ#,|rП‘„+Х44п3n ?ё…Р2‘W"Els@ІEˆ"c:\фѕQџџџџ @ўџџџџџTџџџ џџ @ўџ Dџџџ џџ @ўџ 4џџџ џџ @ўџџџџџ$џџџ џџ џџџџџџџџџџџџи џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџашџџџџџџџџ( џџџџ` џџџџ@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџи  № `Юџџџџxџџџџџ и џџXџџџџџџџџџџџџ~Є(мџџ @ўџџџџџlџџџџџ @ўџџџџџ\џџџ џџ џџџџ @ўџџџџџLџЙ+љY‘џџџџџџџџџџџџЌl Ctџl^б'Pџ prџ5Pџ #Lџkrџєџў]/LџaPџ ѕѕ:`џN<џ<џPџ,џ :џ,џћя џ:ќўћяьўltџFмўћяЬўkrџџ 6 Pџ<џ,џ џьўЬўkrџ§=g АЌ,xџtџ(LџPџ<џ,џ џьўЬў`0”ѕЧ ѕ™ ”qxџO0$ шœ”JѕЧ  Tѕџ 1pџ$lpџJYdџlpџhџ4lhџ \џџЖџџp Mџџ GetComputerNameA„<biGetUserNameAx$ `џ('GetTempPathAџџџџџџџџџџџџџџџџџџџџxџџMELџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPИџџЌО џџџџ> џџџџџџџџџџџџџџџџ<џџ<џџџџџџР€ +š€pџџџџџџџџџџџџ@џџ iƒœџџџџџџџџџџ`„ Siƒžџџџџџџџџџџџџџџ€hr(+Ђ(pџџџџџџџџџџџџРџџ( iƒœџџџџџџџџџџр„ iƒžџџџџџџџџџџџџџџ€+ЄhLpџџџџџџџџџџџџ@џџL iƒІџџџџџџџџџџ`„ol/miƒœџџџџџџџџџџџџџџ„07 1Ђ€ЊџџџџџџШ@џџџџџџџџ`%`%%``%+Ж `џџџџџџџџиxџ+џџџџЈџџ„т(p8Hџџџџџџџџџџџџџџ modLoggingџџџџ`Рџџџџxџџџџџџџџџџџ+Ра`џџџџџџџџ`ЬўkЈџџџџ ŒiƒТџџџџ џџџџШ„)ƒФџџџџџџшџџџџ„`%`„ЦHrџџџџџџџџџџџџџ€џџџџаџџџџџџџџh џџџџp€`„Ъџџџџtџџџџџ`„џџџџpџџџџџ`„џџџџlџџџџџ+Юџџџџ`џџџџџџџџ8 LџkџџџџџџџџCŒ`„џџџџtџџџџџ`„џџџџpџџџџџH€8џџџџ`„Тџџџџtџџџџџ€џџџџџџџџ (џџџџЖАШМЌџџxџџт€Ј€џџџџ@џџџџџџџџ`„Тџџџџtџџџџџ€џџџџ@ўџH`џџџ џџ @ўџPџџџ џџ Zƒ˜џџџџџџИџџџџџџџџџџџџџџџџџџ№џџџџџџџџ+Ш`џџџџџџџџИ$џkџџџџџџџџ""!Œџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџШџџџџ џџџџџџџџџџџџШџџџџАџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHH@ўџџџџџLџџџџџ џџ@ўџ0<џџџ џџ џџ@ўџ`,џџџ џџ џџ@ўџxџџџ џџ џџ@ўџ џџџ џџ џџ@ўџЈќўџџ џџ џџ@ўџРьўџџ џџ џџ@ўџџџџџмўџџ џџ џџџџ@ўџџџџџЬўџџ џџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџxџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџx ` ЖџџџџxџџџАџџџџџџџџџџџџЊЌџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXџџџџ`xџџџџџџџџЈџџџџ№џџџџиџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџXp`Шџџџџxџџџџџ€Xџџ џџџџџџџџЮџџџџЈЬ~š(мЂЮ@ўџџџџџhџџџџџ @ўџџџџџdџџџџџ @ўџџџџџTџџџ џџ @ўџ Dџџџ џџ @ўџ 4џџџ џџ @ўџџџџџ$џџџ џџ џџџџџџџџџџџџи џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџашџџџџџџџџ( џџџџ` џџџџ@ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџи  № `Юџџџџxџџџџџ и џџXџџџџџџџџџџџџ~Є(мџџ @ўџџџџџlџџџџџ @ўџџџџџ\џџџ џџ џџџџ @ўџџџџџLџџџ џџ џџџџ@ џџџџџџџџџџџџџџџџџџџџ€џџџџџџџџџџџџџџџџџџџџр џџџџџџџџџџџџџџџџџџџџџџџџџџџџї%ŽK(*\Rffff*0V4b8e2292\0$*\Rffff*0V4b8e2292$*\Rffff*0^4b8e22ec*\R0*#f*\R0*#12*\R0*#11пўЪR€ 4 €„€ 2и€ џџџџ€ :€ џџџџH€ 8H€ @H€ H€ џџџџ€P€X€ џџџџ€ `xB `€ џџџџh€€ˆ@a  р№€ џџџџBH P€ Pш `p ир€ џџџџBј€€€€ џџџџ€ џџџџ€ 4( `€ џџџџ€ hˆ$˜$Ј6LР€ џџџџ€ ј$ $06LH€ џџџџ€ €˜€ џџџџ€ Аа€ џџџџр€ џџџџ ш€ џџџџ№€ џџџџBј€€! $0 H%Xp xˆѕ #hџѕў§qlџ/hџllџѕлР>” *F4џllџѕЎpџMTџ@Dџ  Dџћя$џ`§ч64џDџ$џѕџ 1pџ$lpџJYdџlpџhџ4lhџ ” *F4џllџѕЎpџMTџ@Dџ  Dџћя$џ`§ч64џDџ$џ”*§ч #hџ”*§ч/hџ ”CxџXœ0xџtџpџhџDџ4џ$џмœѕџ 1tџ!ltџlџ4llџltџJ P€ Vј€ @€ H€ 2€ 2Ш€ X€ &€ ^˜€ H€€ RШ€ J € <А€ PH€ V№€ 8€ PџџџџHр*р*р* http://www.brdalby.co.ukрррррр)* Contact details at our web site below.р,Version 1.0 - Initial Verion - 8th May, 2009р,********************************************р Includes following features:рP********************************************************************************ncрA 2. Scheme for version, cell and error constants (modConstants)рK 3. Toolbar creation and registration code (ThisWorkbook and modToolbars)џj$ рC 4. Document Property checking and creation code (modDocProperty) j$ р6* Addin Framework - Developed by B R Dalby Consultinges р6 5. File Open and File Save dialogs (modFileDialogs)choiрO 7. Logging code to write messages to a text file in temp folder (modLogging) рJ 6. Code to launch default browser with URL of your choice (modInternet)рW 1. Model top level and subordinate functions showing error handling (modAPPLICATION)IрP********************************************************************************Wр8* Information Systems Consulting For Growing Businesses, рQ* This code may be used freely in your own applications. Credits and expressionsрN* of thanks welcome. Also let us know if you find any problems with the code.L џџџџИџџџџGГAttribute VB_Name = "README" '*LЄ Addin Frмwork - Developed by B R Dal Consulting8 a tex^tРmР z`^p!Ad@ A! @6 ОЕ€0* pH‚dфADDINFRAMEWORK$LB R Dalby Consulting Addin framework@BHR RDalbyConsDuti g1Ad fr/me‚w+rkKh=Љ   ї%ŽKT %<9s@tdole>stgo€=e h€^€*\G{0002043ь0-C 0046}#2.0#0#C:\WINDOWS\system32\ƒ22.tlb#OLE Automрation0ƒE Offic„EO€tŠf€€c€t ž€”€E2DF8D04C-5BFA-101B-BDЄE5€EAA€C4€B2ˆEProgМ Files\CommonMicrosoft Shared\OFFICE_VBA_PROJECTџџџџџџџџџџџџЦУ9dirџџџџџџџџџџџџљТ__SRP_0џџџџ+џџџџцЃ__SRP_1џџџџџџџџџџџџœ     ўџџџўџџџ !"#ўџџџ%&'()*+,-./01234567ўџџџ9:;<=ўџџџ?@ABўџџџDўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ!ЕЄџџџџhƒБШзуjљџџџџсZW6№юEИЌѓˆЂeПџџџџЫЗ„(LБz.ЕIЗџџџџџџџџ‡Ў†§нО2џџџџ9ЩDј :J“Ъс§џџџџ}ž6њŒSEЂ)–bЊ>:7џџџџџџџџH€5џP| €џas€џCase"€џConst.€џdebug=€џDim@€џDoC€џEachE€џElseIfH€џendifP€џExplicitQ€џFT€џFor_€џIfb€џInk€џIs‹€џOption•€џpublicЏ€џSubВ€џThenД€џtrueМ€џvariantР€џwithExcel€+VBAїтWin16С~Win32MacГВVBA6­#PayrollProcessorŽ&stdole“`OfficeuMSFormsC „џThisWorkbook|у €џ_EvaluateйWorkbook_AddinInstall…У CreateToolbar‚ Workbook_AddinUninstallЃРDestroyToolbarсCSheet1шSheet2щSheet3ъmodMainЊ MODULE_NAMEцс gSourceDataš–clsPayrollRecordszЂMenuDisplayAbout%f PROC_NAMEˆЛ ErrorHandlerOProcessCommandsœ' CMD_ABOUT˜7 LeaveProcА ApplicationЅ* StatusBarЪœErroŠNumberЃ-ERR_NUM_NO_WORKBOOKS_OPENf7MsgBox—R DescriptionО vbOKOnlyѕВ vbInformationВnAPP_NAMEЃMenuFlattenDataRзCMD_FLATTEN_DATAYрMenuExceptionReportдCMD_EXCEPTION_REPORTТFMenuAgencyReport‰CMD_AGENCY_REPORT .MenuStudentReportг•CMD_STUDENT_REPORTЎЎ intCommandsŒ’ xlSourceSheetєў WorksheetСўxlFlattenedSheetYјScreenUpdating!  CheckWorkbookEБGetFlattenedSheetоParentЎтWKS_FLATTENED_DATAМ vbYesNovbNoЇ% FlattenData> UnFlattenData|2 AgencyReportxЃCreateAgencyReportТMExceptionReport7“CreateExceptionReport<1CreateStudentReport*  DisplayAbout€RaiseєERR_STR_NO_WORKBOOKS_OPENqERR_NUM_CRITICAL_STOPаERR_NUM_UNHANDLED_ERROR­5ERR_STR_UNHANDLED_ERRORжhvbCrLfЏЌxlSheetГр WorkbooksBьCount0vActiveWorkbookЂ WorksheetsМјTrim@яCells„џvalueфKERR_NUM_PAYROLL_DATA_MISSINGфсERR_STR_PAYROLL_DATA_MISSINGeoERR_STR_CRITICAL_STOPъ9 frmAboutBoxŸЗfrmAboutяРCaptionxlblAboutžС MAJOR_VERSION-Œ MINOR_VERSION‡REVISIONЩюPath2ShowѕvbModalt modConstants-lCOL_AqHCOL_BrHCOL_CsHCOL_DtHCOL_EuHCOL_FvHCOL_GwHCOL_HxHCOL_IyHCOL_JzHCOL_K{HCOL_L|HCOL_M}HCOL_N~HCOL_OHCOL_P€HCOL_QHCOL_R‚HCOL_SƒHCOL_T„HCOL_U…HCOL_V†HCOL_W†HCOL_XˆHCOL_Y…HCOL_ZŠHCOL_FLAT_SHEET_AREA_MANAGERХPCOL_FLAT_SHEET_DATE ЃCOL_FLAT_SHEET_EMPLOYEE_IDЗРCOL_FLAT_SHEET_IS_AGENCYю…COL_FLAT_SHEET_AGENCY_NAMEЛ COL_FLAT_SHEET_EMPLOYEE_NAME/ COL_FLAT_SHEET_HOURSšCOL_FLAT_SHEET_CODEМ%COL_FLAT_SHEET_SITE_NAMEXFCOL_FLAT_SHEET_IS_STUDENTMЮWKS_AGENCY_REPORT…tWKS_EXCEPTION_REPORT эWKS_STUDENT_REPORTсSTR_NULL_AGENCYхDBL_EXCEPTION_THRESHOLDс]DBL_STUDENT_EXCEPTIONуФDataSortЪY DefaultSortБˆmodErrorыуmodFlattenDataСЇ intDataSortšлobjPayrollRecordsЭoobjPayrollRЬayџ  ф*\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.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:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL#Microsoft Office 11.0 Object Libraryо*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{96272A05-EC59-4DF3-AE1C-AF548BD4A398}#2.0#0#C:\DOCUME~1\Ben\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д џџHB R Dalby Consulting Addin frameworkџџџџї%ŽKџџџџ џџ џџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџЌќThisWorkbook0Q4b8e218aџџThisWorkbookџџ2иџџ Sheet1094b8e2111џџ! Sheet1џџ\Ѕџџ Sheet20;4b8e2111џџ# Sheet2џџЅЄ0Ѕџџ Sheet30=4b8e2111џџ% Sheet3џџ0HЅџџmodRegistry0T4b8e2292џџxmodRegistryџџxwPЊџџmodConstants0V4b8e2292џџКmodConstantsџџ›#xВџџmodDocProperty0P4b8e214aџџрmodDocPropertyџџ…(џџџџ€ф џџmodAPPLICATION0H4b8e2111џџXmodAPPLICATIONџџ‘џџmodInternet0S4b8e221dџџfmodInternetџџдFPџџџџ8:џџmodToolbars1R4b8e25bdџџNmodToolbarsџџшэ˜ЉџџmodFileDialogs0R4b8e21e8џџдmodFileDialogsџџD_Рџџџџxџџџџ`в%џџmodLogging0^4b8e22ecџџ˜modLoggingџџ>\xџџџџЈemodWinAPI0W4b8e2292џџжmodWinAPIџџ7›Р џџmodTest1Q4b8e25bdџџmodTestџџђќ˜џџџџиŸ џџ README1X4b8e25eeџџ< READMEџџ3!№ёИџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџ€џџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџиџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈџџџџџџџџџџџџџџџџџџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ˜џџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ’FуЋMKAИЁ ЋcVІџџџџнЬ›­і€CƒGу;y аџџџџП`з\8XAОб)і™(2€џџџџяЉ)икЏC‡ Vђ)cЉџџџџрэ;1UнEO–5˜$Н›Д0џџџџЧ мLѓV@ИО,#Ѕ˜‹џџџџюј!яNЇБƒзёМрŠџџџџSІ>ќ/T3LВЁ$ЌƒГЂКџџџџDWЩ:ыМOИх›wўЩxWщМЭі˜TMИуР7(џџџџёLЗ]љюBКВпжїƒ0h(ЙХе(€ecordOžclsPayrollRecord lngRowPointer:] lngLastRow4 xlSortRangeФ~Rangeк  GetLastRow‚SortЌKey1OИOrder1o­ XlSortOrderоГ xlDescending>‘Key2PИKey3QИ xlAscending`р ReportPeriodбuReportTimeZoneф”AddTypedЩ lngRowOffsetB{ lngRowLastIstrCurrentAreaManager]ЬxlRange2 xlTempSheet™ xlDataSheet95 blnReplaceАNCOL_REPORTDATE8COL_EMPLOYEENAME§ДCOL_EMPLOYEEID S COL_HOURS5NCOL_CODE@Э COL_SITENAMEЌ DisplayAlertsєіDeleteИxIsAreaManagerCell<IsDate2ЂAddїrAfterЁXItemзz AreaManager_( RecordDatel7 EmployeeIdsIsAgency'Ÿ AgencyNameЁE EmployeeNameєюHoursGPCodeњНSiteNameab IsStudent”Я UsedRangeШ‰RowsЁU MergeCellsкЉ MergeAreaФ xlWorkbookPТWorkbookk modReportsdNmSummaryRecordsДYmSummaryRecordsNODUPSyШmExceptionRecordsб1mSummaryRecordxe xlReportSheetI dtHourTallyuXstrCurrentEmployeerlngCountIŠ lngSortKeyp blnDupFound#аlngCurrentExcelRowМеAddPayrollRecordъ§CreateOrReplaceNamedWorksheetјQInsertAndFormatReportNameкInsertAndFormatReportDetailDateDiffЁъInsertAndFormatAgencyNameIjIIfzžInsertAndFormatColumnHeaderнŽxlLeftк9xlRighteInsertAndFormatDatašу FormatHoursЮ` EntireColumnє•AutoFit&  AGENCY_TOTALЅЉ mAgencyRows_№ mSummaryRowsБtmpPayrollRecord ДnewPayrollRecorduЗ strEmployeeId3њ strSiteNameв strAgencyNameЃKstrLastAgencyNameAъblnAgencyChangeов dtTotalHoursŸп vbTextCompare QInsertAndFormatGrandTotalЦo mStudentRowsПЕdtHours4Right MinuteamstrValueKЭFontUSizeюћColor2FBoldƒљResize@4HorizontalAlignmentS@xlCenterAcrossSelectionфbintCellAlignmentё† modDesignTimeЩf APP_TOOLBARњƒcMenu1аЙCommandBarControlPХ cbMainMenuBar˜ч CommandBar iHelpMenuMо cbcCutomMenu CommandBars ControlsЬKIndexёПmsoControlPopupl)Before‰оmsoControlButtonnѕOnAction„  BeginGroup‰ЖSTR_AGENCY_INDICATORmmSTR_STUDENT_INDICATORkmdtHoursсmstrEmployeeNameЛL mblnIsAgencyF mblnIsStudentžПmstrAgencyName+aJobCodeї_ JobNumberЫыParseEmployeeNamežп vbNullStringЎТReplacefChrK~blnValueGˆdtValue / ParseHoursРЮintHoursg‰ intMinutesЊ# TimeSerial…ЬmobjColЋ@ CollectionщWmstrReportTimeZoneTАstrAreaManagerG dtRecordDatestrEmployeeName(?strHoursЎбstrCodeѕ% objNewMemberйт blnIsAgencyЭБ blnIsStudentZKeyЇЈobjItemTМRemoveЯБClass_InitializenClass_TerminatePщ cmdOK_ClickИHide9zlblWebSite_Click?В OpenBrowserRА lblWebSite$ёlblWebSite_DblClicky‡Cancelё˜ ReturnBooleanщe modInternet—FEXE_EXT.URLљпShellVзGetDefaultBrowser? vbNormalFocusІљ strRegKeyrR GetStringуЄHKEY_CLASSES_ROOTљ$ modRegistry5REG_SZгd REG_BINARY(>HKEY_CURRENT_USERЪ RegCloseKeylІhKey … advapi32.dll}0 RegOpenKeyЖŠlpSubKeyп phkResult4RegQueryValueExTЈ lpValueNameў) lpReserved‹PlpTypeЈѕlpDatah0lpcbData”4RegQueryStringValueВ strValueNameЧlResultMU lValueTypeX§strBufќы lDataBufSize-фstrData@ЃstrPathlчlngRetwЖ modWorksheetƒЛ strSheetNameҘ xlWorksheet,CreateProperties‘€џџџthisЬЙ €џџџ_B_var_thisљ €џAddinInstall˜€џAddinUninstallВ€џCustomDocumentPropertiesо– €џLinkToContentLы€џmsoPropertyTypeNumber­ћ€џmsoPropertyTypeString4о€џmsoPropertyTypeDateц8msoPropertyType|р€џmsoPropertyTypeBooleanЈђdlbStudentExceptionLimitаdblР‚ClassЛ €џInitializeгN €џTerminateyLdblStudentExceptionLimitЮed] €џџџ_B_var_edКёModule1boptonw  €џџџ_B_var_optonЃбepxlicit6ЅmodDocPropertyI%DocPropertyExists“ЗstrNameыZ€џџџ_B_var_Function™OfoB] €џџџ_B_var_foъёdpљ\customВ7€џCustomPropertyy €џџџ_B_var_ForjL €џџџ_B_var_IfPђ€џџџ_B_var_CustomProperty‰Ц€џDocumentProperty&Vpuliџш €џџџ_B_var_puli,Npublc €џџџ_B_var_publcIпpublucC €џџџ_B_var_publucьŽDP_PROMPT_FOR_STUDENT_LIMITџQ _B_var_StringгŠDP_STUDENT_LIMIT_DEFAULTy7doc˜„dp_pr^dblsI? dp_studenZйlngTempОŽdblTemptistrTempMInputBoxЯ Str—еapŠ\ IsNumeric$* €џџџ_B_var_elseifqm€џ_DefaultjТ _B_var_TrimmT _B_var_Midэp _B_var_LeftQс _B_var_Chr\; _B_var_Right9йorint^ €џџџ_B_var_DebugлЎCOL_FLATЏ €џVersionЁХ„џBUILDЯE €џџџ_B_var_LongЇ BUILD_NUMBERЙŒERR_NUM…'€џџџ_B_var_ERR_NUM +ERR_NUM_ERROR_BASEМ‘ vbobjecterzЬ vbObjectError ERR_NUM_CUSTOM_ERROR_1.ъ€џџџ_B_var_ERR_NUM_CUSTOM_ERROR_1uХERR_STR_CUSTOM_ERROR_1ЃB modToolbarsэcprivtaeŸж€џџџ_B_var_privtae#кstirng?M msopropertyHsmodAPPLICATIONЉDMyApplicationEntryPoint&NApplicationEntryPointнMyHelperFunction[_ ERR_NUM_unл €џџџ_B_var_CaseГк modFileUtilsвzShowOpen~strStartDirectoryY strFilterгЅOFName-y OPENFILENAME35strTmpсJ lStructSize/r hwndOwnerЌўGetActiveWindownE hInstance ќ lpstrFilterФ lpstrFile‡VSpace юnMaxFile€lpstrFileTitlep4 nMaxFileTitleymlpstrInitialDirrл lpstrTitleˆoAPPLICATION_TITLEъѓflagsoGetOpenFileName]? vbNullCharкYShowSave GstrDefaultFileNameВОGetSaveFileNameŽW modLogging)3GetComputerNameЅ‘lpBuffer>–nSize}“kernel32_Ѕ GetUserNameги GetTempPathš˜ nBufferLengthѓшmstrLogFileNamenСmlngLoggingPriorityLoggingPriorityЦѕDebugSaveXMLFileњљxmlDocЪЧ lngEventId™Ч strDebugFileСх LogPriority6†LogDebugи6 ThisDocument<žNow%КSave’а WriteLogLine # strMessageоlngLoggingPriority| intFreeFile ЪGetLogFileName[ strLogFileName†LOG_FILE_PREFIX$œTempPathЂ–GetLoggingPriorityЮєmodFileOpenDialog3ИmodFileDialogs0Ь modWinAPI™š CopyMemory&pDestТ pSrc%пByteLen‰Зuser32*Ю pOpenfilenamecˆ comdlg32.dll?†lpstrCustomFilter№˜nMaxCustFilterэ` nFilterIndexcЅ nFileOffsetIŠnFileExtension9щ lpstrDefExt_ lCustData'5lpfnHookАlpTemplateNameШtLogInformation}’ LogErrorsylogging1Б€џџџ_B_var_LOG_FILE_PREFIX6v _B_str_Chrm# _B_str_LeftVƒ€џџџ_B_var_HKEY_CLASSES_ROOT…_ _B_str_Spaceу€џџџ_B_var_APPLICATION_TITLE7. _B_str_TrimБі _B_var_FormatрADDINFRAMEWORKэmodTest~( TestFramework G€џџџ_B_var_FЂmsgbxoлS €џџџ_B_var_msgbxo„ЮFileOpen иwww№х €џџџ_B_var_wwwЃww™_wmЃКmsgboѓ €џџџ_B_var_msgbo|ЗDeleteTkgdiђ\ €џџџ_B_var_dišёstrTest/TestAddToolbarsУЅsu)_TestRemoveToolbarsˆkCreateОMdestroyЩ№READMEŠ1џџќ=џџџџџџ™ џџџџџџџџџџџџџџџџO џџџџџџџџџџџџџџџџџџџџYџџџџЛ!gџџџџџџџџџџ !$#%џџџџџџџџџџџџy џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџе з џџџџџџџџџџџџсџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ*џ `@@ўџ @ €@@@11\M€SO.DLL#GУ& 11.0 Object Li`brary€%€@MSForms>‚‡MS*Fim€t3@SD452EE1 -E08F0A-8-02608€C4D0BB4SАFM20L'B Р_бЬ&/;@%1РƒjIqAHq00}#К0Bq#Р €ž50Тf€€ A96272A05-EC59-4DF3-AE1C-AF548€BD4A398ˆ6DOCUME~1\Ben\LOCALSTemp0\VBE@aТ5.esр!э#NѕoВ9o›#kaи`DoТc€Єpert€$! EЃ D`cPрЭoдpрPr y Џ7#BЙяф .-T…(ђAPPLICA`TIONGbA# A`PLICATрONŸчЈщГяџ ‘ћ D#IntePrnet&I {tѕBnPt` Ь&ЭЩп:пдFпа€Toolbar&­ї.T a}b&rNŸі.ХйЭпЉпшэлT"QwDiaИlog ‘ГFР7кl€Dpбoр8Q/7_Й_gР џ в%)џ D_ћ С@odLoggšGЛё`d%бсAnP є›2Ÿ0 ‘Єe>\{ sWinAPIGЕ#Wbс*Iа#-j2oА0IR Г`\]67› iq#мes,bTрёQі‚2‚ fŸРK]ђќ[ёeR EADMEг`RтEPropertymodDocPropertymodAPPLICATIONmodAPPLICATIONmodFileDialogsmodFileDialogsmodLoggingmodLoggingmodWinAPImodWinAPImodTestmodTestREADMEREADMEID="{F655AD4C-6FB0-4CF3-A3C6-2AA17131F753}" Document=ThisWorkbook/&H00000000 Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=modConstants Module=modToolbars Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} Module=modInternet Module=modRegistry Module=modDocProperty Module=modAPPLICATION Module=modFileDialogs Module=modLogging Module=modWinAPI Module=modTest Module=README HelpFile="" Name="ADDINFRAMEWORK" HelpContextID="0" Description="B R Dalby Consulting Addin framework" VersionCompatible32="393222000" CMG="AFAD40AF40D177D577D577D577D5" DPB="E2E00DFC41FD41FD41" GC="1517FA351E691F691F96" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=132, 132, 816, 636, Sheet1=66, 66, 750, 570, Sheet2=88, 88, 772, 592, Sheet3=110, 110, 794, 614, modConstants=110, 145, 856, 769, modToolbars=154, 154, 838, 658, C modInternet=44, 44, 728, 548, C modRegistry=198, 198, 882, 702, C modDocProperty=0, 0, 684, 504, C modAPPLICATION=0, 0, 684, 504, C modFileDialogs=154, 154, 838, 658, C modLogging=198, 198, 882, 702, C modWinAPI=176, 176, 860, 680, modTest=22, 22, 706, 526, C README=198, 198, 882, 702, Z ўџр…ŸђљOhЋ‘+'Гй00 X`xє˜ ЌМ д рьфAddin FrameworkB R Dalby Consulting Ben Dalby1.00Microsoft Excel@€nƒ\0Щ@€LMзДЯЩ31. See README in code editor for more information.ўџеЭеœ.“—+,љЎ0ь PXx €ˆ˜   ЩфB R Dalby Consulting' Sheet1Sheet2Sheet3  Worksheetsўџ џџџџ РF!Microsoft Office Excel WorksheetBiff8Excel.Sheet.8є9ВqCompObjџџџџџџџџџџџџCmџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ