аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџO < =  !"#$%&'()*+,-./0123456789:ўџџџўџџџN>J@ABCDEFGHI;KLMSeўџџџQRўџџџTU^WXYZ[\]P_`abcdfighjmklnўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ РFƒЌA’Шp‘~§АШР?WorkbookџџџџџџџџP_VBA_PROJECT_CUR"PЎ&Д—’ШРУЭД—’ШVBAџџџџPЎ&Д—’ШСЉД—’Ш  !ўџџџ#$%&'()*+,-./01ўџџџ3456789:;<=>?@AўџџџCDEFGHўџџџJKLMNOPQRSTUVWXYZ[\]^_`abcўџџџefghijklmnopўџџџrўџџџtuvwxyz{|}~€ FЭЩР‡сАСт\pBLUEtaker BАaР=гК ThisWorkbookœЏМ=рx[,ќ!<X@"Зк1ШџДArial1ШџДArial1ШџДArial1ШџДArial1 џДArial"Ѓ"#,##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_-;_-* "-"??_-;_-@_-Є"$"#,##0_);\("$"#,##0\)!Ѕ"$"#,##0_);[Red]\("$"#,##0\)"І"$"#,##0.00_);\("$"#,##0.00\)'Ї""$"#,##0.00_);[Red]\("$"#,##0.00\)7Ј2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).Љ)_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?Њ:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6Ћ1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)рѕџ Р рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР рѕџ єР р Р р+ѕџ јР р)ѕџ јР р,ѕџ јР р*ѕџ јР р ѕџ јР “€џ“€џ“€џ“€џ“€џ“€џ`…<Sheet1Œ,ЎССTќџccN FЭЩР є  dќЉёвMbP?_*+‚€%џСƒ„Ё"џр?р?U>Ж@я7К Sheet1 №Ьдџџџџг'Tgˆtџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(ThisWorkbook џџџџ"сSheet1 џџџџџџџџ2йModule1џџџџЁZ__SRP_2џџџџџџџџџџџџ?ьSLџџџџSџџџџS”џџџџ<џџџџџџN0{00020819-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0>ŒoI пўЪџџџџџџџџxџџџџААAttribute VB_Name = "ThisWorkbook" ŒBasŒ0{00020P819-0C$0046} |GlobalаSpac’False dCreatablPredeclaIdБTru BExposeTemplateDeriv’BustomizD2№Ьдџџџџг'TgЦсџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{00020820-0000-0000-C000-000000000046}џџџџ@€ўџџџџџџџ(џџџџџџџџџџ%џџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0>ŒoI пўЪџџџџџџџџxџџџџЈАAttribute VB_Name = "She@et1" шBast0{000Р20820- C$0046} |Global!ФSpac’False dCreatablPre declaIdЋTru BExposeTemplateDeriv$’Bustom izD2rU€€€ џџџџџџџџ$`§џџџџџџџџџџџ$Љ`§џџџџџџџџџџџ$б`§џџџџџџџџџџџ$љ`§џџџџџџџџџџџ,!`§џџџџџџџџџџџay;#,I`§џџџџџџџџџџџay;#$q`§џџџџџџџџџџџ$™`§џџџџџџџџџџџ*\R1*#64*\R1*#10*\R0*#19*\R0*#13*\R1*#4a*\R0*#2*\R0*#14*\R0*#1*\R0*#f$*\Rffff*0C496f93e8*\R3*#30*\R1*#5a*\R1*#ce*\R3*#50*\R3*#4f*\R3*#4d*\R3*#8c*\R1*#df*\R1*#285пўЪ"`hpx€ џџџџ"€€ Zˆ€ ,ш€ Z€ џџџџ "x %ˆ€˜€ €Ј€АИ"*Р7ш7€ џџџџ$=(€ ZP€ А€ ZИ€ џџџџ€ џџџџ€ X€ p€ Xˆ€ џџџџ р 8. p€ џџџџ.ЈР ј€ џџџџ€ џџџџ.ш$ˆ € џџџџ.Рји №€ џџџџ€ 6 € X€ 6pЈ€ ^А€ € ^€ џџџџ "x€ 6ˆ€ џџџџР€ џџџџ"Ш€ џџџџ€аи"*р (€ џџџџ 1h€ џџџџ P`€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ€ џџџџ"€ џџџџ€ D€ (`€ Dx€ џџџџ€ џџџџH€ џџџџ€ џџџџ€ џџџџ€ˆ€€˜€ €Ј€А€И€Р€Ш€ џџџџ€а€и€ш€№€€€€ €(€0€8€ џџџџ "@€ џџџџ€ HР€ P€ џџџџ€h€p€№$дџџџџ}ЅHTgкsџџЖџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџ˜џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€(џџH ”џџИ(Lџџж(Lџџк> џџџџ<џџџџ<џџ<џџ<џџ< џџ<$џџ<(џџ<,џџ<0џџ<4џџ<8џџ<<џџ<@џџFџџџ џџџџџџ`„@џџџџDџџџ џџј`„B№@џџџџџ00`„D0<џџџџџ00 „F8џџџP`€%`„Jџџџџ4џџџџџ€ `„P8,џџџџџ```„Rџџџџ(џџџџџ```„T&џџџџџ`@`„Vџџџџ$џџџџџ`` ˜€`џџџџџџџџџџџџ№ўJџџџџџџ7„iƒ<џџџџ џџ џџ0€`@iƒЌџџџџџџ џџџџџџ€Аp`„Ўџџџџxџџџџџ€€`„А0tџџџџџpp šx`џџџџџџџџџџџџ№ўJРџџџџџџU„iƒ<џџџџ џџ џџр€€€iƒЌџџџџџџ џџџџџџ€€€`„Ўџџџџxџџџџџin`„Арtџџџџџў „џџџџtџџџИƒџџџџџџpџџџџџџџџџџџџџџ% МР`џџџџџџџџ@8џoџџџџџџџџџџq„% ЦР`џџџџџџџџˆhџoџџџџџџџџџџ „ „џџџџxџџџџџџџ%џџџџи „дџџџџtџџџ@а%џџџџ Ь`џџџџџџџџА|џoџџџџџџџџџџ„ Ю `џџџџџџџџh Єўoџџџџџџџџџџ;;„ „иџџџџpџџџш %`„мџџџџnџџџџџ`„оџџџџlџџџџџ є`џџџџџџџџ€џoџџџџџџџџџџ@„ „дџџџџxџџџx%€ РџџџџPџџџџџџџџаџџџџџџџџxРџџџџр џџџџ`џџџџџџџџP |џkџџџџџџџџџџ‹„џџџџрџџџџџџџџџџџџџџ@ўџHtџџџ џџ џџџџ@ўџ dџџџ џџ џџџџ@ўџџџџџ`џџџ џџ џџџџ@іџџџџPџџџ џџџџџџ`џџџџ`џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP@ўџџџџџ@џџџ џџ џџџџ@ўџ`0џџџ џџ џџџџx8џџџџџџ@ўџџџџџ џџ џџ џџџџ `џџџџџџ@ўџџџџџџџџ џџ џџџџџџџџ` џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP џџџџџџџџЮ€ Iџџџџџџџџџџџџ(аџџџџ№џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ  џџџџ8 џџџџh џџџџџџџџџџџџџџџџш ` џџџџџџџџџџџџˆ џџџџџџџџџџџџџџџџ  џџџџLврш№џџ @ўџP xџџџ џџ Ьўo@ўџ€ \џџџ џџ @ўџџџџџXџџџ џџ @ўџџџџџTџџџџџ @ўџ˜ Dџџџ џџ џџ@ўџА 4џџџ џџ џџ@ўџШ $џџџ џџ @ўџџџџџџџџ џџ џџџџўџџџџџџџџ ` %x ш @ўџ0 џџџ џџ @ўџH №ўџџ џџ @ўџџџџџрўџџ џџ џџџџ@ўџА аўџџ џџ   ` @ўџи Ьўџџџџ`Ш ˆ @ўџ Мўџџ џџ № А $@ўџ( Иўџџџџ` и $џџџџџџ@ўџџџџџЈўџџ џџ џџџџ@ )џџџџџџ@ўџџџџџЄўџџџџ`џџџџџџџџ( )џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№ џџџџџџџџ8 xpˆ`иџџџџX И  HЈџџџџРџџџџџџџџР и џџџџ№ џџџџ џџџџџџџџџџџџџџџџаџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€шџџџџЦМLXZ\^`џџ@ўџP0џџџ џџ €@ўџџџџ џџ џџ@ўџhџџџ џџ џџ@ўџ єўџџ џџ @ўџ8фўџџ џџ @ўџPдўџџ џџ 0@ўџџџџџФўџџ џџ @ўџ€Дўџџ џџ @ўџ˜Єўџџ џџ @ўџh”ўџџ џџ Ј bdhnp|v„џџџџ0@ўџјўџџ џџ џџџџаIџџџџџџ@ўџрŒўџ? џџ џџџџјјIџџџџџџ@ўџџџџџˆўџџџџ џџџџА€tHސ’–˜џџ@ўџШ„ўџџ џџ џџџџ@ўџ€tўџџ џџ >S@ўџ˜dўџџ џџ џџ@ўџАTўџџ џџ џџ@ўџџџџџDўџџ џџ џџ@ўџџџџџ@ўџџ џџ џџ@ўџ<ўџ? џџ џџрvўџ0рxЇ6S@ўџP8ўџ? џџ @‚†/Sh…@ўџЈ4ўџ? џџ 0S˜Pџџџџ 8šœž џџџџџџџџџџРPЉџџh@ўџр0ўџ? џџ аЈЕџџџџџџјЈКџџџџџџ@ўџџџџџ,ўџ? џџ џџџџрХџџџџџџ0рЩџџџџџџ@ўџ@(ўџџџџ аXЯа@ўџџџџџ$ўџџџ h@Яџџџџx@вџџ џџџџџџјзўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(ˆџџџџОhЪџџџџџџџџ@ўџXtџџџ џџ џџџџ@ўџџџџџpџџџ џџ џџџџ@ўџ˜lџџџ џџ џџџџАpџџџџџџ@ўџџџџџhџџO џџ џџџџР˜џџџџ˜ HџџџџLО  @ўџ@ўџxџџџ џџ @ўџрdџџџ џџ џџџџр џџџџџџџџ џџџџ(џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџшџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџа@@ўџјTџџџ џџ Ђ@ўџџџџџDџџџ џџ џџџџ@ўџџџџџ@џџџ џџ џџџџ@ўџP<џџџ џџ џџџџh(џџџџџџ@ўџџџџџ8џџO џџ џџџџxPџџџџџџџџџџP џџџџџџџџџџ№ PџџџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџHџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€>ŒoI $*\Rffff*0Q496f8df2*\R1*#1b0*\R1*#284*\R3*#4e*\R3*#50*\R1*#91*\R1*#db*\R1*#e8*\R0*#1a*\R1*#97x€€€ џџџџJ&ˆL-и>E(0 h€ џџџџ$8 ˜,Ј€ џџџџР иш€ џџџџ€ џџџџ€ J№ј (€ џџџџ0€ џџџџ€ .8€ h€ € џџџџ€ J  "№€ џџџџ€ @€ @".`€ џџџџ€ Bˆ€ 0а ) %€ џџџџ  (€ џџџџ€ џџџџ€ >8€ "x& 0А-Р€ џџџџ€ џџџџ5а€ 4ш3 € џџџџ€ 28p€€ џџџџ   € џџџџ А€ џџџџ€ Р(‰р€ џџџџ> $ € џџџџ 0 &L@ hx€ џџџџ€ €˜(‰ € џџџџ>Ш $р€ џџџџ №$E€ џџџџ (8€ џџџџ€ @ `(‰p€ џџџџ5˜ $А€ џџџџ Р€ џџџџ а р€ џџџџ №&L € џџџџ( € џџџџ 0 &L@ € џџџџh € џџџџ p &L€ € џџџџЈ € џџџџА € )џџџџ&LШ € џџџџ№ € џџџџ ј  € V € `h € ^Ш € ( H (‰P € џџџџ>x  $ € џџџџ    А &LР € џџџџш  №  € џџџџ€ џџџџ€  ( (‰0 € џџџџ>X  $p € џџџџ € - &L  Ш  а р € џџџџ5ш € џџџџ€ џџџџ  !  )0  H  &X  #h € џџџџ€ :x  И € џџџџШ € џџџџ€ џџџџ"  а € @и € €0€ џџџџ "@€ џџџџP€ џџџџ€ џџџџXhp&Px € џџџџЈИР€ џџџџ Ш€ џџџџ4и№ј€ џџџџ€ џџџџ€ џџџџ€ џџџџ"  € @€ P€ џџџџ€p€ џџџџ€ џџџџ "€€ џџџџ˜ЈА$PИр€ џџџџшј€ џџџџ € џџџџ408€ џџџџ@€ џџџџ"P "X€hp 'x€ џџџџ/ˆ   А€ џџџџ Р "ар€ џџџџ"ш€ (№€/ 8 @ P€ џџџџ€ џџџџ `p€ џџџџ"р ши€ џџџџџџџџ(–A@МA@Цр>==============================================================makeр"COPYRIGHT MODELLING SOLUTIONS 2008]ђ@]ђX]ђp]ђˆ]ђ ]ђИ]ђа]ђш]ђ]ђ]ђ0ђH]ђ`]ђxђ8Я]ђЈ]ђР]ђиђ№m]ђ]ђ ]ђ8]ђXЗ L(N770рwill be destroyed.]ђp]ђˆ]ђ ]ђИЖ6Running this macro will destroy the current formattingЌ $X'PK PЖ1of the active model. Therefore, if saving renameЌ $X'P PЖas a different version.Ќ $XЌ $X'P PЖ!Are you sure you wish to proceed?'P Z \ 'T P T R$^'V V `›G|j V bœkџџЈЌ'Ќ$' Ќ'*Ќ)'"Ќ'$Ќ'&Ќ#'(Ќ',Щ р(Makes the macro cycle through each sheetрin the work book.џ ў d“ B@fрCDefines sheetName to be the name of the currently active worksheet. h!'Jр:Sets up a status bar to tell the user what sheet the macroрis currently working on.ЖNow working on: J L(jр;Makes the referencing system relative rather than absolute.р*This is the key to the logic of the model. L!l'D n L(lэА.: pB@rр7Clearing out all the old formatting of the sheet beforeрwe start putting in our own. h!tB@H | v!x(zЌ v!~(zЌЌ h%tB@Hр-find last cell and get row and column numbersэ „ €%‚..р+in case there are hidden rows/cols adjacentэ .!†..э .!ˆ.. .!Š'0 .!Œ'2 pB@rрIdentifying - BOOLEANЌЌ$t 0 2$t$HB@Hэ Ž  v%‚.: pЌœџ <ў :“ , <!Š <!Œ h%t!x(z>џ <ўШkџџирIdentifying - TEXTЌ'pЌЌ$t 0 2$t$HB@Hэ Ž ’ v%‚.: pЌœОƒЏhџ <ў :“и* < L%”›G  <!x(zjнщжџ <ўШœHWlkџџрIndentifying - FORMULAS% pB@rќAб|CЎЌЌ$t 0 2$t$HB@Hэ – v%‚.:iZ;ђ pЌœ]Дž2џ <ў :“M$ < >A˜ој < @Aš—v > @œ & <!Š <!Œ h%t!x(z 8kџџ( > @œгxn ( <!Š <!Œ h%t!x(zYgkџџш > @œ $ <!Š <!Œ h%t!x(zќ kџџЈ > @œŸ ќf " <!Š <!Œ h%t!x(zmmkџџ`џ <ўШŒo+žkџџHрOerrors- that will be in formulas. We have to include the "if err=0" bit becausew рY if there are no errors in the sheet, we get an error in the code! Furthermore, we have aрW "if iserror(cell)" as a failsafe, because the code seemed to return more than errors -‹Ер maybe a compiler bug?pЕЌ'pЌЌ$t 0 2$t$HB@Hэ – œ v%‚.: pЌœ‹dAџ <ў :“š{ <$žœ3@І6 * <!Š <!Œ h%t!x(zinkџџhџ <ўШ/ЄлMuсkџџPрIdentifying - NUMBERSъ|њ˜Ќ'pЌЌ$t 0 2$t$HB@Hэ Ž   v%‚.: pЌœЎЌtпџ <ў :“‹& < L%Ђœ  <!Š <!Œ h%t!x(zjїkџџˆџ <ўШ—RCoikџџpЌЌ h%tB@Hџ BўЌ 2’3вџ—Ќ B 8%Є(І§  B 8%Є!ЈB@Њџ BўШ№ГАР;‡Ж L(jn|Gw D L(lп§Іор4Makes it go back and do the same for each worksheet.мkj~џ ўШ{wДXїДoџџˆ–ар:This sub is called from the ColourSheets macro to identifyрformulas in rows.]ђPђhЗ L(NеєНКwВЗ'Ќ <!ŒЌœ|џџшdџџр <!Š <!ŒЌ $t!В'ЎeЃkџџА ЎЌœл[|џџ˜kџџ <!В'А2@3b А$Д Ў$ДœЗ'ЌkџџXoџџP–€р:This sub is called from the ColourSheets macro to identifyрformulas in columns.]ђђЗ L(NЗ'Ќ <!ŠЌœ|џџЈdџџ  <!ŠЌ <!Œ$t!В'Ўkџџp ЎЌœ|џџXkџџP <!В'А А$Д Ў$ДœЗ'ЌkџџoџџЩ–xЗ L(N]ђ0Щр ОB@Рџ ў О!Т“ B@H B@Фџ ўШЗ L(Noџџp–Рр"UNhides each sheet in the workbook]ђџ ў О!Т“Щ hB@H Ъ (Шџ ўШoџџр р>==============================================================рBProvide A Message box warning the user that all current formattingрCDefining the colours we are going to use in the Colour Code Scheme.џџџџˆ –PЩhA@ЮoџџX–рS===================================================================================р%THIS PROCEDURE LOADS UP THE MENU BARSрS===================================================================================З L(N в L(а]ђ(]ђа]ђ№]ђЩэЖWorksheet Menu Bar$р.дЖHelp д%т!ф'мЖWindow д%т!ф'оэ шбl мбъ д!т%ц.ирS===================================================================================ррS===================================================================================рR==================================================================================р MODEL INPUTSрR================================================================================== иѕ №бl5т%цѕЖcolourCodeModel9ђqџџPр/===============================================рEND OF MENU BARSр/===============================================qџџX рX========================================================================================ррX========================================================================================З L(Nр0Application.Calculation = xlCalculationAutomaticoџџ@ – ]ђ`ЩP эЖWorksheet Menu Bar$р.дЌ'іџ іў іЌ ’ іЌ 'іЖ &COLOUR CODE9ьјџ іўШoџџШЖ COLOUR CODE д%тB@јЖ&Colour Code Active Workbook9ьџџџџ џџџџр №бl5т%цѕЖ RemoveAddIn9ђbookqџџ€Ж&Remove This Add In9ьџџџџ€џџџџиџџџџHџџџџpЖwww.modellingsolutions.co.uk'R'џџџџџџџџЖ&Applys Colour Coding to an Excel Model9юџџџџ˜ №бl5т%цѕЖAboutThisAddIn9ђe o–Р B@CodeMoqџџHЖ&About This Add In9ьџџџџ(џџџџ”ЖAttribute VB_Name = "Module1" Sub Auto_Open() On Error ResuДNext LoadMenus EШnd j x2 x'=O 'THIS PROCEDURE LOADS UP THE MENU 0BARS'R} Application.Scre enUpdngA€ЅFalse‹C`alcul‚xlˆManual Dim cbWSЉbar As CommandBarmuC@ustom1 C ontro!iHelpIndexIntege€iWindowQxSet $=Ш#s("Workshжe A, )"РŠˆ:=I.)(")ђ.‚! %• . ЙЇCг .Add(Type:=mso Popup€, BeforћЧ+/'‹NР ПЁб%Aл0 € MODE€L INPUTŸh‘}With f8 .Capjd"&COLOUR C@’.ToРoltipT С…СoyсclourРR„dioto a • xcel  ™el9 Ђ ІORBBu0ttonр?*About This" рH InсOnќAceсРЂС —С #3lCoЅDe Ё ve amb(ookMcBCoєЏe РScheme0)Q18\= 6C‡[‡Жur = 36  error0ColoЈ fo rmulaX41\copiedDHown424 4A cross8dbHand :35:bрooleaRQOn EЂ Resume Next 'Makes the may cyclerough each shee0'in'wor$k 8k."Fo(r ES Iиn W€sƒ’€‚.Activate DDefLinENa€Stˆo bEe nof?curre@ntly a$ež G„G = 6e<) :Sets up a status barB €;tell‚6user whatƒ‚‚ ”@,is #A!ing on„!Applicat*i@SBР= 0"NowТ,C : x" & (Чfr(efe@=cС system relСve ra@o@-han absoluteР 'ThЧ(€Сvkey‚5€y@logic Sm0odel,Aiol„dR„eSty@‚?РP2 GS ;xlјR1C„ПЦЧРaL cР\€Нle€uoТnРзNotheССуA=In€terior.!x@rIndex@x0lNonH^чFo”ntk0Ч s(1, 1)Ц'@id lastЂ* ‡ get r@Oac€Dmn РnumberˆtС0Ё У .Sp ecialas(‚xтTypeL@ a)чcn caBsBwre a`h iddenсs/€s adjacРxчlХ.xlT`oRighD–Ѓ-tџ‚!РHсЊIЁaеAR€=ц.Р'Bƒ"H@8umnё ,QФ @IРtifyAN- BOOLEAN'Rang”e(сsC6, ƒэ,у")ч9с ‡!%Že'JT5Con`œnts, xlLЩ€alШ6IfФ )р0 The€ч Ёџ†МaМ ‹ЯSЁ!.Ю,тQс]+).“eŠй+ AзBЧEnd Ifу0TEXT}HrСішkп1Cп1oОlЗKяqC˜3ъTy@Values=ў q1 бŸ?+ДЫщZIsѕб()Ђ#ЏqL~t€ А RŸ /™б№Qnї2FOРRMULASЇ6ц O?4stP !&?4љ‘ ?4 /OLАяA_3c ппЂ л!C‘lscanщUIn0Ks’p4rЄџу H#В@ЯСЁћ?ёRиOР"Ћ“ Aѕа6(€y wЌS#ЏPџ@@Q@Rs™_'№П$П­&ЕŸdИ џДPхyП П П џМџTН/ 4=@ HD"џВgЏ VЏ Џ Џ І џ7O—   з“ Шss)?)wn?)­џќпЯЯЯЦ!Јљvр _Љ oTfT2'rчs-0ЩрЩwipЏрвЌ$s. W0e ha ТЭincludуд"if Р=0" biВtаАcapЮрX €СФC›noQorsЮ @QФТГ, @ГСЄрЦеcАФ! F„urmore’эђaБQiрдРђгf" a€  failsafрbe‚Bжб seemed‘ЫreturnV aёn• -‘mayap;mpiТlлbug?—0dёYdddВўDбД Set cellColle€ction = X.SpeciaDlC„s(xTypeFormulas, xlErrors) cšIf &Œ0р Then06@Ax Eachю ўСџ%ўСЄў%0џѕ $ А0џўšџ3ќ4ќјLџ0џ5џ$ˆў (0џ0џ 4lˆўѕЧ0џѕlLџHџўt<ўѕLkhџDЄў%HџWџ1%HџWєў2%0џ$ @0џўšфў)џ=дў+џC,0џ6џєўфўдў Hџўu<ўžѕ (0џ0џ 40џ‰(џ%(Єў%0џ$ X0џўЂџќ‹l`џ§itў%l\џ§iTў%„ў$ X„ўўЂєўќ‹@ўќэєўќэџ$  @ўў ы)0џ„ў@ў6џєў>ўСџ%ўСЄў%0џѕ $ А0џўšџ3ќ4ќјLџ0џ5џ$ˆў (0џ0џ 4lˆўѕЧ0џZlLџHџўt8ўZ-Hџ§“ @0џ$ 0џўšџ5џ0џ5џOkvџDџ%HџWџ+џC,5џ Hџўu8ў  (0џ0џH0џ‰(џ%(Єў%0џ$ X0џўЂџќ‹l`џ§itў%l\џ§iTў%„ў$ X„ўўЂєўќ‹@ўќэєўќэџ$  @ўў ы)0џ„ў@ў6џєў5ўСџхяџџ%0џѕ $ А0џўšџ3ќ4ќјLџ0џ5џ$ˆў (0џ0џ 4lˆўѕЧ0џ№lLџHџўt4ў№ FџHџ 6 DџHџ 7 kFџkDџУФвLknџDЄў%HџWџ1%HџWєў2%0џ$ @0џўšфў)џ=дў+џC,0џ6џєўфўдў kFџkDџФ,LklџDЄў%HџWџ1%HџWєў2%0џ$ @0џўšфў)џ=дў+џC,0џ6џєўфўдў kFџУkDџФ‡LkpџDЄў%HџWџ1%HџWєў2%0џ$ @0џўšфў)џ=дў+џC,0џ6џєўфўдўkFџУkDџУФуLkrџDЄў%HџWџ1%HџWєў2%0џ$ @0џўšфў)џ=дў+џC,0џ6џєўфўдў Hџўu4ў_ѕ (0џ0џ 40џ‰(џ%(Єў%0џ$ X0џўЂџќ‹l`џ§itў%l\џ§iTў%„ў$ X„ўўЂєўќ‹@ўќэєўќэџ$  @ўў ы)0џ„ў@ў6џєў>ўСџхяџџ%ўСЄў%0џѕ $ А0џўšџ3ќ4ќјLџ0џ5џ$ˆў (0џ0џ 4lˆўѕЧ0џp lLџHџўt0ўp HџMџ @ 8c LkjџDЄў%HџWџ1%HџWєў2%0џ$ @0џўšфў)џ=дў+џC,0џ6џєўфўдў Hџўu0ў ѕ (0џ0џ 40џ‰(џ%(Єў%0џ$ X0џўЂџќ‹l`џ§itў%l\џ§iTў%„ў$ X„ўўЂєўќ‹@ўќэєўќэџ$  @ўў ы)0џ„ў@ў6џєў>ўСџ%ўСЄў%0џѕ $ А0џўšџ3ќ4ќјLџ0џ5џ$ˆў (0џ0џ 4lˆўѕЧ0џ lLџHџўt,ў -Hџ§“ @0џ$ 0џўšџ9џ0џ5џў LktџDЄў%HџWџ1%HџWєў2%0џ$ @0џўšфў)џ=дў+џC,0џ6џєўфўдў Hџўu,ў… 5(џ%(Єў%0џ$ @0џўšєў)§Ÿў˜*0џ5єўѕ@џl\џўd$ўЉ !(Дў%@џ§“@Pџўšџ:џC;5џ)@џ§“@Pџўšџ:џ=фў<§Ÿў˜=6џфў @џf$ўU &:џ>%ѕ 0џ$ 0џ  0џ#l<џѕ 0џ$ 0џ Ј 0џ xџўuŒў™X lTўŒў<ў8ў4ў0ў,ўTџ,џ8џ(џXџ4џdџPџxџLџHџ,0џ„ў@ўџєўфўдўФў0 ќЦа  0 ќЦ€  и"єѕ xџ$ xџ а xџKџџ''Dџ%'Tџ%'dџ%xџ$ Hxџ ?xџ/@џxџ$ Hxџ Р?Q@џ[<џtџxџўˆ8џ@Вѕ 'dџ%tџ ”@ѕ 'dџ%tџ ˜@ tџў‹8џ@"єџѕ xџ$ xџ а xџDи0<џ8џtџxџ@џМx/pџtџ$ Htџ Р?Qpџ[lџxџtџўˆhџ@sKџџtџ$ @tџў˜*tџѕџџџџѕ iƒўџџџџџџџџџџџџџџџџџ П-Њiƒўџџџџџџџџџџџџџџџџџ АдЮiƒўџџџџџџџџџџџџџџџџџ кџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџ˜h\ЌЌџџџџџџџџџџџџџџџџџџџџџџ`>ŒoI $*\Rffff*0C496f93e8пй4к8џџџџ<б@вDжHзLиPўЪџџџџџџџџxџџџџџџџџъАAttribute VB_Name = "ColourCodeScheme"  œBasœ0{2E598D75-74BF-44A3-955D-FD6858CD5E3B}{266479B5-0570-4298-987F-A48 42AC5A} dGlobal’SpacoFalse ŠCreatablPredeclaIdлTru BExpo se0TemplateDeriv–Customiz‹DrU€€€ ИЩЉ б џџџџЁ41‘Yйййџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ81‘ёкккџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ< Б1џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@1‘ёбббџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџD1‘ вввџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH1‘!жжжџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџL1‘9зззџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџP1‘Qиииџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџd`rU€€€ џџџџџџџџ\nuГ€0* pH‚dф VBAProjeˆct4@j = r >ŒoI ” J< r€stdole>stdo€le h%^*\G{00€020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`ƒEOffDic„EOf€iдc‚Ež€”€E2DF8D04C-5BFA-10€1B-BDE5€EдAA€C4€2ˆE€˜gram Files\CommonMicrosoft S_VBA_PROJECTџџџџџџџџџџџџVЅdirџџџџџџџџџџџџsy__SRP_0џџџџџџџџџџџџв__SRP_1џџџџСАўџџџ‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ЁЂЃЄЅІЇЈЉЊЋЌ­ЎЏАБВГДЕЖЗИЙКЛМНОПРўџџџТУўџџџдЦЧШЩЪЫЬЭЮЯабвгўџџџежзийўџџџлўџџџнопрўџџџтуўџџџхцчшщъыьэюўџџџ№ёђўџџџєѕіїјљњћќўџџџўўџџџџџџџumbermЎColumnsp9 ColumnWidth›п EntireColumnє•AutoFit& copiedљ>previousStringn‚ currentStringЖ FormulaR1C1STrim@яWorkbookk WorksheetСў €џ_B_var_On6ѓЌ(UnProtectEachSheetј€џActiveWorkbookЂ€џProtectзf€џSheets  €џUnprotect? Ќ(UnhideSheetsŠP€џVisibleЖг€џxlSheetVisibleЋо Ќ(Auto_OpenV  Ќ(LoadMenus  €џCalculationhН€џxlCalculationManualщ cbWSMenubarBТ €џCommandBar muCustom1гп€џCommandBarControlPХ iHelpIndexEЬ iWindowIndexŸJ €џCommandBars €џControlsЬK€џIndexёПAddїr€џmsoControlPopupl)Before‰о€џCaptionx €џTooltipTextb?€џmsoControlButtonnѕ€џOnAction„  Ќ(RemoveAddIn9*I`€џDeleteИxItemзz _B_var_Chr\;€џ_DefaultjТNumberЃ-€џ_B_var_I Ђwww№х €џ_B_var_wwwЃmodellingsolutions?coг\uki_ _B_var_TrimmT UserForm1)жMSFormsC ColourCodeScheme›5Ќ(AboutThisAddIn'ХUserFormNLabel1,Label2Ž,€џShowѕLabel3,Label4,Label5‘,Label6’,Label7“, Label5_Click=М Label4_Click-„џџxџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџH€"@џџџџџџџџџџџџџџџџTgThisWorkbook0N496f8c3ehared\@10\M€SO.DLL#‡ 11.0 ObС LibraŒryK€MSForms>„SFЇ€rms3€ІD452E€E1-E08F`A-8-02608C4D0BBТ4SFM20L'BF Р_Ь&/;"1?РƒjIqAHq00ш}#0Bq#Р €ž5h0Ѕ€ ‡РA17148539-7F0D-48E0-A3A0-FD@88759BBBBˆ6UserРdHELSE~1\AppData\Local\Tem`p\VBEc‚7.xexdd•<@"€с.E р…€.`ŒM Ди"гТTgНThisWorkbookGЊРT€Оi@lWТnkbРok*Ю 2к Р HB1с-B,Т!ˆt""+Ђ‚rShePet1Gт S eq€`t1 AvЃ2gЎџ ‰Цсы ТVoАduleУVo €юuЂ€A2фZ ЏFЋ@­кs!Њ ColourCodeSchemАeG Ё -l` urCрd`*SР€hрm`нq2`oš Љm”€Г#$( у2aџџџџџџџ“K*sџџџџrU€€€€~~~~~~~~~~~~~~~~O AПЎ;НšœOЃ•П№іў‰  фџџџџ џџџџџџџџџџџџЙ џџџџџџџџџџџџсˆa ёџџџџџџџџ q‘Бб 9qЁЩџџљƒ€a iџџџџџџ)9!A! ThisWorkbookSheet1Module1ColourCodeScheme VBAProjectяРF@C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLLVBA aџџџџ ‰0РF4C:\Program Files\Microsoft Office\Office10\EXCEL.EXEExcel џџџџЉЬasџ  ф*\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.4#0#C:\Program Files\Microsoft Office\Office10\EXCEL.EXE#Microsoft Excel 10.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.2#0#C:\Program Files\Common Files\Microsoft Shared\Office10\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{17148539-7F0D-48E0-A3A0-FD8528759BBB}#2.0#0#C:\Users\CHELSE~1\AppData\Local\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Libraryс.E р….`ŒM Д  џџџџџџ>ŒoI џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџTgThisWorkbook0N496f8c3eџџThisWorkbookџџˆt-џџ Sheet10O496f8c3eџџ Sheet1џџЦс-џџModule10Q496f8df2џџModule1џџкsPџџџџ0ЋHџџ ColourCodeScheme0C496f93e8џџ ColourCodeSchemeџџ€ГPšџџџџџџpџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџPџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЈPЦ_YА@@хь{цУЁџџџџ‡W!žЭ NЗЕ.yŒЉФЉџџџџЖЏ’RcL‰1И{E џџџџџџџџ0йЕ•л`НDОУЊ4Й