ࡱ> [hZ  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYb%]^_`acdegtklmnopqrsuvwxyz{|}~Root Entry F^#^#\5Workbook!M_VBA_PROJECT_CUR"^#ǎ^#VBA^#Ď^# \p Stephen Allen Ba=  ThisWorkbook=-[, <X@"1Arial1Arial1Arial1Arial1Arial1Arial""#,##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.00 ""#,##0[$-809]dd\ mmmm\ yyyy dd/mm/yy;@00 #0.00 0000000                + ) , *      `6CSheet3Sheet2}Sheet1," Search Strings extracted from 'C:\Documents and Settings\Stephen Allen\My Documents\ACBA and ADS\ACBAWebSite\allen.netcom.co.uk-2007-11-log.txt'.Printed on 03/11/2007 09:58:40#Number of Search Strings found = 40 Search String.vba code,export to next available row in excel audit toolsactive workbook worksheet WBfacilities of the spreadsheetrandom sampling in excel"costs certified "external auditor" kendric ash9formulae for finding the no. of unique record in the list#excel free add in audit spreadsheetspreadsheet designallen.netcom.co.uk/WP.htmaudit working papers softwareworking papers of auditing cannot wrap text in merged cellsfolder$give a diagram naming the cell partsvba to make string italicefficient spreadsheet designtemplate for audit controlsexcel merge and wrapframes#ways of presenting spreadsheet data&audit finding working template at site#mark unique records in a list excelspreadsheet descriptionoutput in primary businessesvalidating spreadsheetsworkbook error "#Value";excel add same string in each cell for entire row or column*feasibility study template for developmentworking papers excel template:formula to extract numeric value from character in excel spreadsheet design excel add characters to string"random sampling" excel'excel template "vat" -software -invoiceSearch Strings extracted from 'C:\Documents and Settings\Stephen Allen\My Documents\ACBA and ADS\ACBAWebSite\allen.netcom.co.uk-2007-10-log.txt'.Printed on 03/11/2007 11:13:27$Number of Search Strings found = 618sampling audit toolscurriculum vitea formatrandom sampling and integritysampling in excelworkingprojectrandom samplingaudit working papers=excel find number of instances of a character within a string templatesacsii hyperlinkreview photographic*excel formula exctract numbers from stringwhat makes a good spreadsheetpictureevidence%how to resolve a 5 cell sudoku puzzle&excel cross-referencing between sheetsamendexcelmodulesheet spreadsheet drop down list guidedesigning spreadsheets example2what is a spreadsheet and what is its main purposeactivedelete spaces string excel vbaformat of a curriculum viteaexcel workbook designs<excel formula to carry over comments to separate spreadsheetrandom sampling tools excel find ascii character spacetemplate structure"spreadsheet design and developmentloadingrules integrityrandom sampling tool&resource planning project filetype:xlsScache:1naqvofpveij:www.acba.co.uk/oddments.htm can not merge and wrap cell in excel analysis tool for random samplesworking of electronic paperexcel extract decimalinvestigative analysis software0related:www.intel.com/it/pdf/random-sampling.pdfsoftware random sampling toolexcel random samplingspreadsheet design client8creating a random sample from a larger group in ms excelexcel find number in string!st gregory's orchestra norwich ukexcel hierarchical tabshyperlink to spreadsheet tab&audit statistical sampling excel sheetsoftwarerandom sampling of audit filescompleterandom sampling in excelnamesnagative auditors list+delete row excell cell containing charactername common spreadsheetsfuckcountif numeric cells>how can i describe spreadsheets in organisations with examplesoverwrite disk space vb codeAhow can i describer spreadsheets in organisations with 3 examplesinput form in spreadsheet2create new worksheet from within function in excel+the purpose of a presentational spreadsheetmsexcel word wrapaudit softwareauto delete row where!audit project control spreadsheet!max size of the excel cell string#vbs read line until space characterexcel field validation sourceexcel date format codes wrapinghierarchy of spreadsheets9excel vb > check whether cell value contains 3 characters,difference between worksheet and spreadsheetMcache:htxzcxixcwej:allen.netcom.co.uk/tools.htm "excel" "duplicate" "entries"approximate equal in excelexcel vba remove double spacespurpose of a spreadsheetacsii 34audit tools for spreadsheets/find cells beginning with string and delete row$extract numbers from string in excel audit working paper zip downloadexcel list shapes in worksheetexcel cross workbook calllist five type of spreadsheet r remove rowsgroupsoftware audit working paperselectronic work papers(carry data from one worksheet to anotherdeleteexcel wrap merge lines$copy into merge cells unmerges excel+extracting characters in string excel macroelectronic working papersa11*$f$26 excel formula#regulated tenancies housing benefit"pennie furneaux")auditing standards working papers layoutsvb delete first space in column%advantages and disadvantages of auditpass argument to excel templateaudit sampling tool xlsexcel remove double spaces2excel macro mark rows that match between two lists.software project quality audit review template"excel function remove double cells!excel formula remove double cellsauditing spreadsheet designsauto delete space excel#excel copying rows to single columnexcel cell length characters"random sample generator"audit sampling toolspreadsheet issue and controlDvisual basic code to add returned values to the existing cell valuesaudit sampling toolsvba merge long string linesudoku alternatives"create tabs for separate workbooks spreadsheet design specification0excel find first non numeric character in a celldesign concept worksheet-delete spaces off the end of numbers in excelcleaning auditing software old scheme claims subject to lhaauto delete rows"description of what spreadsheet issudoku excel template 4 by 44related:www.sil.org/silewp/abstract.asp?ref=2006-005investigative reporting system*return the string until character in excel#excel find first instance characterlist of vba xla codes databaseaudit random sampling'excel finding missing values in 2 listsexample acba audit#retain decimal value in excel sheet'vb code to preserve merged cell formatssubsidy servicesexcel audit template0excel extracting a series of numbers in a string9finding first non numeric character in a string ms accessacba-ewp http/1.0allen sulocal authority benefit subsidy(vb remove all spaces in character stringRexport text in worksheet greater than 255 characters using vba code from worksheet excel creating a index worksheet[cache:pck6z1x_lasj:allen.netcom.co.uk/designconcepts.htm rational formula excel spreadsheetspreadsheet designsexcel tutorialsumif findingsexcel find numeric withinspreadsheet design templatesdavid handscombe 2003%vba code identify cell text or numbergcache:1naqvofpveij:www.acba.co.uk/oddments.htm function to remove text characters from string vba excel"housing benefit subsidy rules 2007design spreadsheet for trainingaudit software reviewsrepeating on each page xlsbin design spreadsheetfree excel audit sampling toolexcel wrap merge problem*separate worksheets to different workbooksvba function to remove commashousing benefit subsidyexcel return nth digit stringvba loop remove double spacesexcel random sample acsii code"printing paper estimates"long u worksheetproject resource audit)problems associated with housing benefits tempate for audit working papers extracting integer decimal excelsudoku xls template+simple spreadsheets, cross referencing text/ordering negative and positive number worksheetaudit work papers templatesindexspreadsheet designersite audit software acba auditrandom shapes worksheet&building sampling formula for it auditaudit working paper'working papers template, internal auditmax cell long excel stringit audit templateauto delete row excelexcluded tenancy agreementgood spreadsheetgood spreadsheet design'codemodule vba search and replace excel&show page number wit<hin excel workbook&excel vba - wrap and auto merged cells2if the worksheet is full carry on on another sheet$finding gaps and duplicates in excelTvisual basic code for returning and adding associated values to existing cell valuedownload excel acba toolsimportant papers spreadsheet+excel return string value of two references"identify ascii characters in excelexcel sampling non%2dnumeric/excel make separate tabs based on one worksheetexcel vba wordwrap1excel groups worksheets together and calls them anaming a range in excel$set "standard row height" excel 2007free excel audit softwareexcel word wrap long textexcel hyperlink delete row2do while loop to get correct user input date excelexample of audit working papersmanipulating strings in excelexcel templates - audittwo lists auto filterrenting rules before 15th1"word wrap" ascii character "microsoft excel" vbavba excel remove double spaceslist shapes in xl worksheetinternal audit softwareeffective spreadsheet design7excel if statement for a range between two inequalities$spreed sheet design for constructionexcel long string of numbersexcel 2000 word%2dwrap issue6identifying duplicates in excel marking true and false(hyperlink to specific tab in spreadsheetauto delete code in vbtwo datalists in same pageformat of curriculum vitea!vba unused variables vbcomponentstab names in spreadsheet%audit working papers in software formrandom sampling with excel%excel find word delete row -duplicate+excel find missing records between two rowselectronic basic)excel worksheets for design of structures!word merge number alignment codesoddmentsexcel merge wrap text issue#excel vba cells containing italics:what is random sampling from specified existing populationvalidating excel-process the rows in a selected range in excelrandom sample tool2excel automatically treat number string to numeric%excel word wrap option max charactersscheduling audit template number order(sumif error #value! external spreadsheet!excel random selection of records*how to construct a large excel spreadsheet)spreadsheet inputs, processes and outputsexcel spreadsheet designfree audit excel working papers)what is the main purpose of a spreadsheetnew scheme cases subsidy#remove double spaces from excel vbaset active workbookexcel find similar values true!electronic audit "working papers"free quality audit templatesumif and listsgaps audit excel"excel spreadsheet design standardsEfunction to find out number of worksheets in active workbook in excel"comparing number values worksheets/convert numerical data to non standard in excelcrossconvertworking paper auditingauditing sudoku puzzle allen tools(how to identify ascii character in excelaudituser group construction in ukexcel merge wrap autosudoku puzzle templatesfirst)excel macro delete non-numeric charactersexcel rand samplingspreadsheet design manual subsidy auditelectronic working paper system%22do you want to proceed?%22'excel user forms filetype:xls combo box functionsworking papers index auditinggood spreadsheet design rules auditing working papers in excelif cell has 0 delete row vbchurch audit software,what does repetitively means in spreadsheetsot scanner software-check whether a value exists in a range excel&how to calculate numeric weighted typeexcel revion paperssoftware audit'internal audit automated working papersaudit working paper in softwarecurriculum vitea for driverdirect connect only!working papers worksheets excel(special character in hyperlinks in excelsimple random sampling tool3electronic audit working paper for external auditor+excel clear form first cell value drop downacba coding audit%uses of a spreadsheet list managementspreadsheet design services!auditing working papers templates cleaning services audit softwarecoding audits acba!example of an audit working paperfunction invites audit puzzleshousing subsidy claimclient workingpapersrandom sampling functionrandom selection tool grid auditing,excel remove spaces within cell string -trim6excel convert multiple wrapped lines from cell to rows&how to select range if string too longlinking tab names to a cell$e%2dwp software comparison worksheetexcel spreadsheet designs"excel spreadsheet designs examplesspace characters hyperlink file procofline "vbproj.vbcomponents"make your own spreadsheetsampling function exceldelete character asciihierarchy of audit evidenceexcel workbook designprofessional spreadsheet designaudit working paper templates$excel tamplates estimate developmentcurriculum vitea formvbaDcompare records between 2 spreadsheets to see what record is missing random sampling key requirementsautodelete rows excel3vba excel numeric value of ascii character functionrandom sampling worksheet"design spreadsheets for bin designstartexcel "numbers in string"$deleting row spaces in a spreadsheet15 january 1989 housingauditors tools.scottish regulated tenancies database scotlandgood design excel spreadsheet=how do i compare excel files and identify and mark duplicatesaudit sampling formulaspread sheet designTcache:jgt7l6kwbyyj:allen.netcom.co.uk/ excel "vba code" list compare worksheets freedelete rows that have a stringspreadsheet specification helpexcel vba "character code"sudoku puzzle analyzer-cross%2dreferencing system for working paperssampling formula excelaudit working paper index$merge cells with vba if text is long4how to find mark duplicates in excel other worksheet.excel local named range reference by worksheetauditing tools with descriptionimport text based report files!software project resource controlaudit of project resourcesso dokuacbadesign concepts sheets#good spreadsheet design single page(excel, formula too long find and replacesampling functiondesigning spreadsheet with form!working spreadsheet specificationsample curriculum vitea example repetitively spreadsheetspreadsheet auditing tool"excel automatically wrap text codeexempt tenancy agreementrandom sampling excel tools%"efficient" excel spreadsheet designs;what is indexing and cross-referencing in software quality?0vb code delete all rows with specific empty cell*what is the main purpose of a spreadsheet?housing benefit subsidy claimsauto delete rows in excelcell parameters wrap word&regulated tenancy no written agreementstephen w allen#remove characters within excel cell uv V A Q  k5sa V q J 3 W87y,%Qj} Y!"#y$O%8&'()(*",[ -f+.D/Q0 |1 !2{ 2E 34 4E6_6H7K8L9":@;R,=I>.?d@cc~  `oLPYUYi^byglpuy!~1AɔQٝa  dMbP?_*+%MKhp deskjet 5550 series!@m߀ DrdBe@4 d Arial8xBeںں\\ACBA\hp deskjet 5550 series,LocalOnly,DrvConvert" d??U} (o      ( ) *  +  , - . / 0 1 2 1 1 3 0 4 5 5 6 / 7  8 9 : ; 4 < =BX !"#$%&'()*+,-./0123456789:;<=>? 0 !> "? #@ $A %B &C 'D (E )F *0 +G ,1 -1 .H /I 0< 1J 2K 3L 4< 5/ 6M 7< 8N 9O :< ;P <Q =R >/ ?/D@l@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ @S AT BU CU DU EV FW GX HY I2 J KZ L[ M\ N] O7 P^ Q_ R` S8 Ta Ub Vc Wc Xd Y; Ze [f \g ]< ^h _iD@l`abcdefghijklmnopqrstuvwxyz{|}~ `j ak bl cm dn eo fp gq hr is jt ku lv mw nx oy pz q{ r| s t} u~ v w x y z { | } ~ D@l              2      M    2 2 2 \     D@l S    4               1            D@l                    1            D@l                                D@l                  /    \        1       D@l !"#$%&'()*+,-./0123456789:;<=>?  ! " # $ % & ' ( ) * + , - .  /  0  1  2 3  4 5 6 7 8 9 : ; < = > ?D@l@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ @ 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- [. \/ ]0 ^1 _2D@l`abcdefghijklmnopqrstuvwxyz{|}~ `3 a4 b4 c5 d6 e7 f8 g9 h: i; j< k= l> m? n@ oA pB qC r4 sD t/ uE vF wG x0 yH zI {/ |4 }J ~K D@l 4 L P M N 4 O 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5D@l 5 5 5 5 5 5 5 5 5 5 P @ A Q R S T U V W 0 W X Y Y Y Z 4 [ 0 < AD@l < \ < M ] Q / M ^ < Q P 0 / /   7 d / _ < h  ` ` a     b A <D@l c d e f f g h i i i i i i i i j k l m 1 n o p q 1   N r s t uD@l      s v w  x  y z { | } ~                    D@l !"#$%&'()*+,-./0123456789:;<=>?  ! " # $ % & ' ( ) * + ,M - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ?D@l@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ @ 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 [ \ ] ^ _D@l`abcdefghijklmn ` a b c d e f g h i j k l m n">@7 Sheet2  -ѥ  dMbP?_*+%"??U} (-                                    BX !"#$%&'()*+,  ! " # $! % &" '# ($ )$ *% +& ,'>@7 Sheet1  9  dMbP?_*+%"??U} }  } I} $>} } m@}  } I+} A} 0} $          >@7 Sheet7 ThisWorkbookS__SRP_9"__SRP_8*MenuControlj,  !#$%&'()+,./0123456789:;<=>@ACDEFGHIJKLMNOQRSTUVXYZ[\]^_`abcdefghiklmoqrstuvwxyz{|}~8IW7@#<3-GU^FXPNj+Uf[xXPNj+Uf[3-GU^MEPSLSS6"< <<N0{00020819-0000-0000-C000-000000000046}00(%@h % %X `p|keXi `|kHeTa ei H  p@@\TH $*\Rffff*0B48b0f7e9$*\Rffff*0C48b0f7e94" 0( "8@xoAoAAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomi6zD2P Sub _Bef oreCl8(Cancel As Boolean) Call Reset End % Open(CmdBarContrlrU !7Y I7 #4   ``  I  W <   $ <   $ 44PrU @( `T#$A `X nrU~| a  9a)Y Y__SRP_7-v__SRP_6?PublicModiq__SRP_4xy44*H:L%\$ d\ HQHx\\x Q\[Dt@<t l<0/< kbpb8t l8p` t@J kb:H'%'%'%'(%L %\x \ $QHt\ t (Hk`DL%\x \ ,QHt\p`pbtW 4h5<h l< 0/<z kbpb8h l8p` h@ kb`@t  d5/L %tW   d6  d :H'%'%'%'(%L%\d P \ $QHp\ p  p :H'%'%'%'(%L%\d P \ $QHp\ p  p L4 D@xpldht$<\Hp80d:h%x$ dx Hd )xd8$ xdfrU $`$`nrU (`0(`0(` 0(` 00!` ***0I` ***,q`J B   (  0 @ /X4x      B       /84Xx      B      $9 H5Xx     B    f|11 d@"xME (6 <@/` ` p0 ` ,( @+xME$(L(L(L << 6 <<<< LLLxXP H% `H11 x)% t)% p% lS% h041% dPo5e%`"bSR`N`o51pXx8X0X. p\ @L H @D @@O  ((< @8 ( @ @ @ (( @ @ O  X ( `pdk8 (@$ @Xx 0@h @d 0X H $*\Rffff*0C48b0f7e9*\R3*#4e*\R3*#50*\R3*#52*\R3*#4f*\R3*#30*\R3*#4d*\R3*#8c*\R1*#e8*\R1*#2ac< "(08@HPX`h "*p     : 0 P(Xpx    /   B ( .P 2:0 " P  x" "0x !( Text to ExcelX]]]]]]8]X]pWorksheet Menu Bar$$.  !&% !(ACBA Functions " '" !*'N%k "8r ,l !&%.ACBA Functions ((d N %&.k'N'"  !& " '" !*'Nk " N %&.d ,l !&%.k .l !&%.dButExtract Search Strings ((ge) o Text to Excel ((FindSearchStrings (0CoWorksheet Menu Bar$$B@o<Set CmdBut1 = CmdPopBut.Controls.Add(Type:=msoControlButton)' CmdBut1.Caption = "Bailiff Extract"+ CmdBut1.OnAction = "ConvertBailiifData" ?Attribute VB_Name = "MenuControl" Option Explicit Sub CmdBar`l() Dim& As CommanB2ut 2l 1!2!3!0PopB up!CFlag Integer i Setu=us("Workshe " For EaLch?In .As If. CaACBA Funcs"` Then'R= V+ 1 iut.Index End If Nex-= 0!0#0s".Add(Type:=ms~oD(I3(AElseI(i;)/05AK3 WL7L3ILT< Dtocel L3]L1KLAM#4=U W 4w'Gqn1Cs/ton/' ' C:1)Bailiff(tract *OnA"RB"2vert"ifDataPLI Ex SeariStrpings F8indg'Sub T ResetA ǖty.xppp` `|x`(@h `% @d  d @HT @D +|`ki~ `t`Npl1`l+`kHi~ `t `NHp`l+p`0k4i~ `v`Nt;`p`l+0`kMi~ ;e`v`Np`l`h+`t+pgi ii`pt0e+x`xp+(i Hihi`(t`p`X0`x@p4 @$ @ @  h`0h+p`Pk ''i^i`j `h `f1.`ds ``+` `$ki mb`LvN`p `Nn`l`jdb`hA+` `k EEi   -iP`xN`v`pSlX CSOICE@ h NbNx ` d` `ES` ^ES`\ r`( Zoc 8 + `p!k  ,,$i  Ni`x`vmb`pN` l ` h,` f1.`dap`bdo+ `# k 88Pi^ lsi\ N`j `hD`f2`` -`\nc`Z00`XN`8 V ` P+p `0% k8 99i^XixDIi\8-C`j`hu`f```\X`XZ`XS`VCS`(Pst+p `&k EEi 1.i'.d`x`v`plh  P h   `d``` ^`\`8Z  H + `*k ++i i`x8o`v@@ ``pj`l`h` f`d ``b+`,k1i `Lx`tsd`Nr`p`n`P-l`x@h `@d/  8`@HT @D @x4 @$ @ 8@ `x8@j  (@XP O?!A@h  @D@8X @H @h8 @( @ (@ 8`0`x`x`@d @`/  @H@P @`@ @H0 @x @ @ @@X`zh@Hh0`z@ X(@(x`l @@P^ h( @\ P @L @< @, 0@ P  0 H p@(`x @f  @d  1p@XT @D @4 @$   `  Ph`zxP@X @`V P1p@D @4 @8$ @  x@ ` @ @ @P  0  @ @ @  h !@x  P &@   x &rU x 0X@   2~@! ~! 2 @(! @!!3@  P!(!3`!(!8 9 "( @ X p ""H"""("`z8""`"a @p"` "H" @ #^ #p"  1 "@"L @< @", @ 8#p"@H# `# #@ @ p#H#H#P h $ $$X$ $$8$`l H$ $p$p@$N X$X$S@L 3 %$ @@$< @, icMo@% @ $$x%X@&p&&%X&%`l  %% &@0&N H&&@L &0&1pole2lb@&< @, @& @ 0&%pH)P( (''('`z  '''@'X ''@(V ('1proxEer@8(D @4 @h($ @0) ('@( ((@( ((@) )(@)  `))8)@ @ p)) )(!@) frmC))&@) owfm))&Sh))0X@*  *)2F@0* H**2 @X* p*0*3@ *X*3*X*8*9@+8Ph,+x+@++X+`z h+@++@+` +x+ @P,^ @,+  ,@+L @< 7@(,, B@ h,+@x, ,P,P@ ,x,x,@(Xp .--P--h-`zx-P--p@-j X-- @h (/- @@.X @P.H @8.8 @.( @h. @. @. @. @. @. @/ @ @ -%`H $*\Rffff*1148a7b88f*\R0*#13*\R0*#f  $7 H4X x     B         (  0@HPX ` hpx B          (0 8 @HP B X `h    )  (  8HPX ` h       B      -18X ` h p B x    )  0"@Xp  .D# 0  8  H X  ` p )   "     ( @ .DX #           B  ( 0 8 @ H P  h x )       ) (  H X  `  h x     B              (  0  @ P h )               8 H P  X h B p x     0  @  P ` p)        (  @ P X  ` p B x    )  0"@Xp  .D#0 8 H X  `p )  "  (@.DX#      B   (08@HP  hx )      ) ( HX `  hx  B    8g 8 H P X ` xx`]]( ~' N  ~ N$$  ~ N$'dyk X '|z'|ip]h]H ~'H N  ~ N$$ ~ N$ 'dyk X 'z'i](@]X` ~' N  ~  $$  '  ~ N$'dyk X'8z'ip]A]` ~'Aĩ N  ~ N  $$U  ' ~ N$ '<dyk X'l1COMPany`DIGITeElse Functi.oAE ord1 AsMing,O)@Intege A)A f"YV@ m2Gc7s 1, t = DjacMj1`Rj;_j_ja `$= &+6! P  bd:YOYYĤ[ INTfrmPOS(My ?'AYOp_al0 PosDZVarian΄WB!OCharStartV W`#Flag! ?[o@ Fϡ^ @ 0!\> @&F=" É!=(! "= &>D!QL Go|ErrorHandlD960sc%= nR n!  un%?-dn= |n=Fs:&~BY!5lfExit RB?҃61CLng( B!Ba:"#3?e9CHAR94'0, :f:m$ 7:7:mW`hR(:hg:ngo8gV/o8E= j8In {CH, 10< 0?" McC=1uO=+ 1A.'_?o30_?ll0_?ۭ_?_?nt2?_? _?! 5_? _?et_?nr&p7o?pSo?Yh??CI?nbBoorlϥtr2>qea$31Bt"9z"7E?xp'%4,?ROH O 0r 5a /u! n͕/Qxݿ//ݷs /(бsAزTestDig Str1Array(2, s) = "n"End If Next For r@0 To 9F&jt&1&s&If 1, txr AU ww ThenDNo(]& C({X)3 ZyMkm njrrs70$2Len922w%Mid, r, 1NQNot " "IsNumeric( ) Ls + 1uReDim Preserve2UBzDT ΃'΃J.ك2Xƒ2 ǃ \Ae >7l1COMPanyDIG@ITBoolTrue Els@FaBşFunctioAE ord!A1 Asyinlg,{)!e>aD. Intege`\[$B o 2m |s 7 t = lel1`l Illa `$= &Eude7߄!R jd|\ P\\C] NUM[S(MyJC#YF9MMy@GSMy AnswebNLovn@ۡi`sR # R%i B (a, i῀` a; lsO'@ @@ ˊU\ 4 Jpx^kxcV)($k^l MD@ `1p6$lp0pMD@  k\p\"k\l lpFDk\ll:Dk\ll ^dV^ cZk\c {DkZllk^DD]/$kZll:4]/'o#ldkZllK#*1d/:DkZll Zd ^dp\ Jpv^kvcY)($k^lMD@ `1p6$lp0pMD@ M k\p\"k\h lpFDk\lh:Dk\lh ^d^ cZk\cDkZlhk^DD]/$kZlh:4]/'#l`kZlhK#*1`/:DkZlh Zdx ^dh ldl`0&pz/pz 4D,d`plh$\ Jpxfkxc^y)(,kfl ML@ `1p6,lp0pML@ m lllp*1l fd^ Jpvfkvc)(,kflML@ `1p6,lp0pML@  lhlp*1h fd lllh0pzpzlVa d0lhp, Jpxrkxchg(8krl MX@( ( (krl M@ :]/ĸ'6 8( knpn rdhknpz En$ (8(     4$4 Jpx^kxcV)($k^l MD@ `1p6$lp0pMD@  k\p\"k\l lpFDk\ll:Dk\ll ^dV^ cZk\c {DkZllk^DD]/$kZll:4]/'o#ldkZllK#*1d/:DkZll__SRP_5 B`Module1__SRP_2 n6__SRP_3Pq10&(`A0,`ay00, `ay00, `qa009 ` qa00,a `ay00, `ay00(`A0nrU~|  (9**y,YAK Jqtpltdd/(4lpl MT@$ $ 64$4llF(4lpl MT@$ $`1l64$ pfd# llPqx qxsx(l4$K Jqtltpld/(4lpl MT@$ $ 64$4(4lpl MT@$ $llF`1l64$ pgd( llPqx qxdx(l4$ K Jpvtkvch9lpi8l MX@( ( 68(lpqp5llF(8ktl MX@( (`1l68( tdh! llCsxsxt(l8(K Jpvkvpl`7lli0lpl MP@  60 llql4(0lpl MP@  lhF`1h60  pg`* lhCsxsx|(h0 lKb b st nt< ntst ntTpz]pzpzl$ |Kr r dsp st ntL ntst ntnpdpzmpzpz |$ ,  Jpj kj-hkjc\)(,khlML@ `1`6,l`0`ML@  kfpf kf l`pd hd\= kf kdDLl :Ll`,l`, qp Jpvnkvcd-(4knl MT@$ $ 64$1lp(4knl MT@$ $Eqp64$$ ndd&lpqxX$ 4$4 Jpx^kxcV)($k^l MD@ `1p6$lp0pMD@  k\p\"k\l lpFDk\ll:Dk\ll ^dV^ cZk\c {DkZllk^DD]/$kZll:4]/'o#ldkZllK#*1d/:DkZll Zd ^dp\ Jpv^kvcY)($k^lMD@ `1p6$lp0pMD@ M k\p\"k\h lpFDk\lh:Dk\lh ^d^ cZk\cDkZlhk^DD]/$kZlh:4]/'#l`kZlhK#*1`/:DkZlh Zdx ^dh ldl`0&pz/pz 4D,d`plh$\ Jpxfkxc^y)(,kfl ML@ `1p6,lp0pML@ m lllp*1l fd^ Jpvfkvc)(,kflML@ `1p6,lp0pML@  lhlp*1h fd lllh0pzpz d0lhp,h  Jpj "pf+pfC\ Jpj kfkjPkfZkjcL)(kZlM<@  `1`6 l`0`M<@  kXpX lPl`*1PC\ l\0 ZdLa kXlPPi *L .(*LPLLLLLLLLLLLL*LLLLL*L<<<<<<<<<<<<<<<<<<<<<$0 $0% (H`P pk`0x``Dp jP  %`Nx`@v!+Z(`0 kAA fT `n L`pJ`tD`z< +bp`(kh$$2id i^`x@`|8 i\ i^`0x`@v $%`p`l`t`p`l`  %`d6` h  0$%`  %+~` k Vi^  ,$%`X`$(`F$`Dp`v`H8`4`<`L\$%$% `Xkd 6tPp lh j@`h0 i   `H6*:,H~Z h`d24  , @ (H `$$`N8X  LP 8 `D d   ```\8`X`NT`HP`L`0H `Nj+p`k\\`XD`p@` <`4`$ `$ H )@ HP `PT`RP") N8` x p   8Hp(p@ H@  @0 @   0  H x  0` X @ @ @8 @P @h @ ,% `xp `Ln, Co`Nh `d i) ``18))@0  @ 8@ b4LZ@| @ l @j X@ X @ H (@ 8 `0 CodP @@( @X @p @ @ h@ @ @ @ @ @ @H @ (pH H$    H H `     H H `     H H `     H H `     H H `  @| @x t ` @p @ XpP `Zt @8X @H @h8 @( @$  @  php`bzp @X @H @8 @( `H`~z @ v 8@t   @xd @T @D @4 @$ @  @ @P @8 @h @ @  6*:,H%@` !@( @@ @X @ +`!kRi ih x  8X 80 ( 0h HH!# @8 @ 8@ @ @p!| x @Ph @hX 2@H @8 @( @ @$ @ @ 2`Ll`Nh2*@ @ @ 2;A@  O@   O@ @ @0! `:P `D8 8P @ h P x(  xHH0``xpHP @ P @ @ @  >4 @` @ @ @@ @ @ P@ 8 %@p  *@ `d`8`8@ P p *@ p J@  ! `@! ! ` ! f`!p@ `!H!r@ @# #!#PX"h #""X""p"`z""X"a 46 @"d "@P#T "@"D @#4 I@$ "@8# @ X @h# @# h$@ @ ### P^`b$$@($ @$#@`$ j#P$@x$ @$x @$h @X #8p H $*\Rffff*4H48a7cf95*\R1*#e4*\R0*#12*\R0*#10*\R1*#1c7*\R   6G  ,F   6G  ,F   6G  ,F    ^= @   p` .Tp "C  h    "CX   $ P 0  P (M"C   $`( X/  P         X    !  %(%H%h%%%%%%(%H%h%%%%%%(%H%h%%%%  M @ Xh$ b@`  BI>@(pH>> F8>(6866`66H@66X @ 6$@86` @x66 @ 6 @6 @"6 "6H"6p"6"6"66"@P(6(6 6$@$6   B p  )p  (@ 8 @ P `x      )       8 HH  P  X@ h (0 h pX `      x B p x    )  P  )   )  p   )( @  P `  )    B  8fP   "'8@HPH`@#Pp( ` BC4.    " H# 4! # @#P#"4# X# h# 8X!x".("@" 8  @  h X    *#   X ( 8GH'8$&?X$"I$&&$ ((!((@(X(x(( ("1( (( ( ) ) ) !() @) X)p)x)p*  M %DIP%>%>o%>%>%FK%LK*>*@@&$6$>h&6)>)% *!)  H"%)%p" h":}) " =$ 80** B p !X`h (@'08@&  $( h  x'/ '2H'5',''h' p'  H& +   ( 28 ,X $p    6     2!, ! $8!  `!p! 6x!!!!  ! ! & & &&''    P x B P 0"$H" "E# $"#($0$ +xp8o`X]0Text or Print Files (*.txt; *.prt), *.txt; *.prt 6%8'008 0 @] '@] @$Hbon @ Dlename]0 D'Lxt; *.'~ N 'Nk N N $ ,G|j could7! !<(bail @VHi(i]]]]]]]]p0i] N '~y8k0( L D$~n'n  ^ N$ ^ N$$ MsgBox FileNm`y'nH'pn'zxkn'tn'x  nn p  ty xy zyy'n D$~ nnarchFl N@f tekx N 'Ns p 'pA@k8]]X]p ^ N$'  ^ \$' KTz,KT.KT@  'o \'NSh $29k@n8 N 'N N betKTz,KT S.KT  'S $46  'kndz t3 X'Zee4h t3 % N   % %.'pn'tber '"n'x You mn'z verif ' D$ N+f N N+f You m D$Z 0000000000$ N+f D$Z0000$ N+fc$ D$$ N+f MsgBox BailiffArray(23, i)* D$Z#0.00$ N+fH D$Z#0.00$ N+f DK $$ N+fb D$Z#0.00$ N+fq D$Z#0.00$ N+fAnd D$Z#0.00$ N+f pKT] DAssoc: 'd+y'tfA@kky'x+fKT D d D$b $ N+f F'pn'tKTKTFThere are four or nore persons linked to the liability order at line ' N'.A@: EnX DAssoc: "."X] ]]]] ^ d$'ma  '(1 d' ^ $'  ' ^ $'ar  ' p ^ $'ia8 0  '  b  bSe  ' ^ $'  'bSe DProp.: $n'x+f D d D$b $ N+fopFl D d D$b $ N+f+f`  b DProp.: 'dn'z+f D d d D$b d  $ N+fo D d d D$b d  $ N+f\ D d d D$b d  $ N+f9'Z'Zd'Zdk D$Z0000000$ N+f D$$ N+f X'Zk z x 'Zh  DLiab.: y'z DCourt: dk D $$ N+f MsgBox BailiffArray(21, i) D$$ N+f` ]    st  Ns C Njx $f +j$ $f +j $f +j1. $f +jer $f +jt  $f +jd  $f +j $f +j1. $f  +j $f  +j" $f  +jd $f  +jƸ" $f  +ja" $f +j" $f +j" $f +jl $f +jl $f +j $f +jZe $f +jZe $f +j $f +j" $f +jZe] !!.iffArr% StartSearchFlag = "y"  j ("k MThe process has detected an error in completing the details for line number ' N$'. You may wish to verify this line.A@: D $$X N+fLine7(Amount7(#0.007!(Liab Bal 7(Owing 7( Court Date7(q]] !B@  7! (PNo7(Account7(Year7(7(Admin7(007!(#0.007!( Last Date7( dd/mm/yyyy7!(Last Amt7(Type 7(#0.00 7!(#0.00 7!( Costs Bal 7(#0.00 7!( Assoc 1 Name 7( Assoc 1 Add7( Assoc 2 Name7( Assoc 2 Add7( Assoc 3 Name7( Assoc 3 Add7(UPRN7(  N$f '00000007!(Propertty Address7(Liability Periods7( dd/mm/yyyy7!(( Court Address7(WHave you checked on the print file both the number of cases and the total amount owing? *$:'$ $ ,G|j$The extract process has found ' N' cases $4that owe in total  #,##0.00$. $4 $4AIf you are satisfied this is correct then click 'Yes' to proceed. *$:'$8k@ D.$$X N+f D.$$D.? MsgBox BailiffArray(7, i) & " " & Mid(CodeStr, 46, 8)] GEnter the name of the bailiffs for whom you are preparing this extract.Bailiffs$L'FRevenues Bailiff Extract for ' F'.7(7!<(7!<(N Prepared by 6!P on  Z dd-mmm-yyyy$ on behalf of  6!R7(7!<(7!<(To] ]8]8] 8@ X ] ]]H]x ]( ki]] ]8]Pd!Did you find the right text file? *$:'$]]00Text or Print Files (*.txt; *.prt), *.txt; *.prt 6%8'0k]p]]](the ]@Xp *]] $ ,G|j MsgBox FileNm '@ 0 @ @$Hb @ D @Vi] ]8 ]P ]h ] ' '] N", "in?q=&q=?p=&p=?qry=&qry=?as_q=&as_q=?title=&title= ?keyword= &keyword=D '= MsgBox Me.comAscii.ValueCreate Array of Decimal Values]  N$ d(Se @`tr  'En  ']h ]h  L+ !!.k Mess N@ N N+ N ou wan N$ N$ N$ 'd]Pd '  ' $$X '  'kX% '  '    $'   $' $ $  'd  $$4 'k  '  b   $'   $' $ $  'd  $$4 'k  'kH] D $$'r) D'Le File  +Iftr(1 N$ +y N H = Sea N$H N+j Sea j (ay(2  "$4 $4'ing,  &$4'    d  /s$ CleanCodeStr = URLClean(CodeStr)ns Cod]' ' $' m N -st ': MsgBox "Position '" & i & "' returns Code '" & r & "'" D     $'":   6!%'eserve gArrk(!k ! d N$$'1, i N$ d  d $'ch + 6!%('nArray  N+Next Search String7((x  %!t.  Printed on * General Date$7((Search Strings extracted from ' 0'.7(%q% 7!<(7!<(7!<(!Number of Search Strings found = 7((7!(&7!<( ( $' $2'&6& % 6&]x : : ':kx&kp&h&  $%]   $'ringk   07:   $'  $$>'Dts  D '/1h&]h P L 'L LH  L+H L+H]0 'R N H  N$H N$H  N+Hy' R 'Rk&& R L 'L L@H  L+H L+Hk&kx& Lj7!<(Hits7( N$H N+j % L  % %. % ^ % ` b B@\% P 'PX* L 00kp*h*7!<((Number of Unique Search Strings found = H7(8*:Attribute VB_Name = "Module1" Option Ex@plicit@Base 1 Sub ConvertBailiifData() Dim FileNm As$ Sng*umber2IntegerCode* 1MyLen,, i Longl, E sMTotalOwingDoubleffArray()Vari anq[PrintStartSearchFla-nndAssoc pFindCourtProBp Liab EndGMtPoDw Workshee>ntRKRangDKReplyIAYP‹vw„ Hy>F= 0 KC n FAF?= A pa.GetPOpenn("Text or ts (*.txt; *.prt),";= MsgBox("Have you checked the$ p f bPoth nof cs an dt amo un#?", vbYesNoIf vbNo Th@Exit SubAU'C#N?= Free< ?D F@>InputAo#AN qo WhA.Not EOF(  Line6 (,}bt Ӂ#s= s(wE130 A!IsAcc  c  qB!`&" * 6ocess has detect9an err %in compxletA9`s4 fl!;'" &`& "'. Y Cmay w$is`@o ify>is .Z'dfQGcjqle@X If'3'i@i< +3qReaeser@l23dI 1a _mat`[ndMyC_(10fX`"0AE " 6 4Mid^, 19(, 25$Trim(#3)Ii)442*#0.00) @71A/4P8)a""o6* *7 Ce( &2t;o7~"p!8*3!B~8 ?r(7*? 712?odq'OD)9 S,l "N*1/ rx(11*ob1wO 232^ = + CA6jE#1_n@(@d :") > 0'=jq+ 7U[Melb Cjw5D+T ,{nd``(v% - 4Fr|tr'A\H 2;;K os 5 <%%NqO D 3 i1UM  g J nd!C)wb)4 xrhe a0fʱnopersonS!toeaRb`typdat"  W SR53Eo@+"!.o@ٔD4qIE6*B[-E_WW(9JOd`20UWd1uSٝ   BailiffArray(21, i) = Trim(Mid(CodeStr, 10,)) 'Ms0gBoxTEnd IfIf 4InT(m_"Court:") > 0 ThenC,\FindFlag"y"  2CDate(, 8) j39/&U nStart@Searchsn" A_qAssocC %PropEyVLiabH h% )AP4 n3= 0OJ3n?2I2f! Loop Close #FileNumber Replyþ("D extract process has fou@q'" & i"' casesChr(13) x& "that owe in total  Format(TAOwing, "#,#`#0.00.& E&"you are satisfied this @corretn click '0Yes'ced@.", vbN2o %vbNobu Exit@ Sub ixReDim Printi, L23B  r (1 To iaar@r@2w,=+r4Q 4, 55U6677U8899`/+01 1211O11r1^1111111121221O21r21212121213R12320.2232/3U2d079M!2 NMa:@Set wspActiveWor@kbook.sheets.AddPrntRn{ws.Range(Cells(1),.i - 1 + p>.Value? Z.ColumnutoFit-NamInputP("Ente"r0Pe nof b[r whom uSprepzaLgp@SD^Q"3s" With c4 21) "RevenuesHSCcfor gbbF ]'.nFont.BoldTrue."Siz14  P Paby dApp`bon.0User onihdd-mmm-yhabehalf  Organiz " I ricP=`ireRowRtWrapT3s()"L8ineK(Wid != +28!AccPt^38Y4No).. "-5Admi5w6m rwË7Last !&> Pdd/mm/( 8 Am?@ #9Typ!v7@A?l Q+JBi - 1Do While i > 9J=RiCRPGGGGPK\A@] ""[?aWD pCDbl(# Ti(?E;E==LoopC;:3+l3?c Rxdw: ASk!Name@U(`tSa)#Tita InitialSurna!gj=js`mrNo6t% !s 6+w s = q2  f"I M UC<`$s喡$IDDIsAccountLine'5Boolea<ǫTru@= 1 g1a4MR0COr[-)0FP%eE24>4on{]0NextSub2Search&`-s(F0F`_|Nm ,RR3Code0MyLenALong,/3Vuuhu|UPniquA(BVarian I Array3Sc&0nt5 C/ rPrint8{tartRec`*> J_ 7QZw"WorksheePrntRng0Rang)ReXply1F@0dxFlav!'Critn5$"= Applica.GetOpenP("T' `R&les (*.txt; *.prt),;p"( QsgBox("Did@ you f the righ(t tf*?", vbYesNo@7vbNoB4 1Sck 7!"?q="&c?pc?qry?as_9?tbs?keywordsa 'MrNrmMle`@reeQT FInpu+##"UaEOF(?AqOp, /#E;= ;(S.NaqdbO"@ r!sc(M, gA 10N'Q T"p.SPu'"i0"' ret0us" : rҳ5= zs 5tu ,z -6:Q AZ?= URL(w  2UBA4(_%ayv 5pIn >(1(F,  Ki))D#K=O4bMRe=Perve'_02ukV 1liO@$c:(iO >( apqh, Mussp;!I USRLClean(CodeStr)` ( Loop Close FileNumberFor i = 1 To UBound(SearchingAr@ray, 2 B (tPos`In(1, Zi)2, i)) + Lene( EndcFind (xnπOPMidM$trc, 5- 0#Application.WorksheetFuncSubstitute(? , "+" "a(Trim LCas (uI!}If uAi0 Thenuz+ 1ReDim Uniquaui G{@R r E(lseFFlag@0r ur 9I>K*r)L? ) =L?JH . Exit @G7 IfNextG4I op8Prese8rve9$i)@'oH:)i'O# Se(t wRAgve!ibookjs.Add With##.Cells!w1).Valtue"avs (racted from '" &#m"'."p Font.Bold TruT ` Prin on B orma t(Now|General Dasno!]T `v`r> ueq@F(uiG#Q)O# 1u#}{2{-E]WG9P rntRnXws.Range(C76,8{ a)'# Sn@.Curre eg vYSortF !s(2xlDescend @,1, x$lA', Ye~sBX@|D} URLogSt?g AsF)s1sMy b 1DecICgP_ClhrLong, sVtijkP4 qSH4ex_  Item BeQ]o_ NewQVarianpqReplyQQ{ ѬCNb 'MsgBox Me.comii)CreZ rS0imp[` u!! 8256?(u4Wi -36A AkR둯V%)33`D1, k7`"%f"l= Tk  |3)0}P?3oxV &&$c 5Gg54!3 FAgain:qQyEQ_Qt ب!5$1= C((6s)I XʸQ{ U'=4r:= #& ߿WQ, ? `t pIJ,yP,t\,3!q*t*  < 32 Or 927ÝsF0 {N vChr*'" End If  t = InStr(1, CellValItem)|Do Whilbe> 0'~B egYoMid( jyt - 1      '!"#$&(,)*+CS./012;456789:-<=>?@ABTEFGHIRKLMNOPQDXUVWYg??t + 3<MIf DecArray(s) < 32 Or = 127 Then%Tnv{ & _Else!/Chr(H1) \4|LoopW5SSPNexftS 0 x"%") v , Count10}= + 1!GoToAgai/+kO URLCleanC@OP Functio!A FindPos(Start Asteg@er, My oi,ng#) Dim[Amp+&QuotemB?dg@[38) |`& >4!`b|32a"@!>A@_I @"@)Applicaa'.Worksheet'.Min(F ,A!fzJ` J ecc%(%(% t ' =.C/ 6@(%(%(% t ' =.C0 6 12  $  Tl*#3*F:4N l:5Xp |$ | x>pFH8%(%(%xt 'x(C-2) |x6lXH8(>c%(%(% t ' =.C/ 6>c%(%(% t ' =.C6 6Fc%(%(% t ' =7=.C/ 6>c%(%(% t ' =7C8 66:9%(%(% t ' C- 56(%(%(% t ' C: 56:;%(%(% t ' C- 56:<%(%(% t ' C- 56:=%(%(% t ' C- 5@:>%(%(% t ' =?C@ 66:A%(%(% t ' C- 56:B%(%(% t ' C- 5@:%(%(% t ' =?C@ 66:C%(%(% t ' C- 5@:D%(%(% t ' =?C@ 66:E%(%(% t ' C- 5@:%(%(% t ' =?C@ 66:F%(%( % t ' C- 56:G%(%( % t ' C- 5@:%(%( % t ' =?C@ 66:H%(%( % t ' C- 5@:%(%( % t ' =?C@ 66:I%(%( % t ' C- 5@:%(%( % t ' =?C@ 66:J%(%( % t ' C- 56:K%(%(% t ' C- 56:L%(%(% t ' C- 56:M%(%(% t ' C- 56:N%(%(% t ' C- 56:O%(%(% t ' C- 56:P%(%(% t ' C- 5@:%(%(% t ' =?C@ 66:Q%(%(% t ' C- 56:R%(%(% t ' C- 56:S%(%(% t ' C- 5@:D%(%(% t ' =?C@ 66:T%(%(% t ' C- 5ct <dL t<$P8x0D,@LpTdp |xlXH8(! K)(8 lMX@( (`1l68( pjmllC$ l$0[tt l$U0k l$#0 lllp*1plMX@ VllCp kjpj kj)(8kjlMX@( (`1l68(llC `1D) 5DM@ `1D5DM@ r`1D5lDlhlLlTl\q\!l\P lDFl\lP(l\lPp"XlPdlDF]lXlP31lXlP(lXlP5 k"p" Xf< k"l\q\!l\P lDFl\lP(l\lPlTqT hfdM '%'%'%'% $ H % (&l=',) l,Illx*#*F%(%(%  ' C-/ 6>c%(%(%  ' =.C/ 6o m:n:oN |%(%(%  ' C- 6 |>c%(%(%  ' =.C/ 6>c%(%(%  ' =.C/ 6KqlL#*F%(%(%  ' C-/ 6KvlP#*F%(%(%  ' C-/ 6>c%(%(%  ' =.C/ 6@((%(%(%  ' =?C: 66:p%(%(%  ' C- 5>c%(%(%  ' =.C/ 66:t%(%(%  ' C- 5>c%(%(%  ' =.C/ 6cl\ !l\@ hlPd %lhlPlhl@%lhlPlhl@ hfC }(%(% , ' l\i%(X%, ', 'Q() 6l@M %(,=(%(% , ' Au(( 6(%(a(  %h%(%(a(|%'8%%'%%h%(p) 6|$ dJ @Dx,(p4LP>  |x TdKlTplTlTlp TfL Jd J/(lLl M@ :k]36>2lLil M@ `1<65(lLl M@  s`186,'lLl M@ `146lstdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft S__SRP_f B_VBA_PROJECT3*dir__SRP_0 J`B_var_IfPCount0v _B_var_Count:FileNum#_B_var_FileNmuberw (FindMyNumber&PosMyStr_B_var_FunctionO(FindEndNamePos<StrtPosmM BailiffArray{_B_var_BailiffArray PrintArrayr_B_var_PrintArrayRStartSearchFlag FindAssocFlaguFindn FindCourtFlag FinfPropFlagq FindPropFlage FindLiabFlagA EndSearchFlag (IsAccountLinem' _B_var_ForjL _B_var_Midp IsNumeric$* _B_var_ReDimNumStrPosVal  _B_var_Select'E _B_var_Format_B_var_i Trim@ _B_var_TrimmT assocflag_B_var_assocflagrTher7 _B_var_TherdThe'ThA_tkTitle~InitialsXSurnameq_B_var_T Findendname%_B_var_Findendnamedstrpos5sj ErrorHandlerO _B_var_On6riws_PrntRngRange  _B_var_SetActiveWorkbook WorksheetsAddrCells_DefaultjValueK Sheet7Sheet8dd\d[mmC^ _B_var_mmyyyySheet9Sheet10 PSheet11!PNoj^Account Year6nAdminOriginal['debtMLP!^Amounti LiabilityBalance VCosts[lTotalUOwingtAssocn^IPRNUgPropjLiab~PeriodsXCourtvColumnsp9AutoFit&  EntireRowBoldWrapText}cZ_B_var_c ColumnWidth entirecolum+  NumberFormatR EntireColumn TotalOwing, baillifarray%_B_var_baillifarrayqnReply /msgnoxÒ _B_var_msgnox- vbYesNovbNo%thatowepChrK~ bailliffarrayv _B_var_Chr\;Sheet12"PFontUSheet13#PSheet14$P_B_var_BSheet15%PBailNamebailnmae_B_var_bailnmae{InputBox SizeUserName\OrganizationNameޛItalic! _B_var_DatevSheet16&PSheet17'PSheet18(PModule2c PublicMod xlApplication clsAppEventsCTrapApplicationEventsxlAppŲ ShowFindDups fmFindDups0Show ShowFindLike fmFindLike ShowFindGaps fmFindGaps ShowFindVal fmFindValy(BEGINT AlphNumStrlc(ENDINTϗ(BEGNUMEit](ENDNUM (ApproxEqFix_Comp1FigAComp2FigKPermVarDiffc (ApproxEqPerc^PerCent^PermDiffCShowFindSigNum\ fmFindSigNum1_ showFindLists| fmFindListsu ShowCompList& fmCompListBShowCompListValԩ fmCompListValh ShowCreateKeyd fmCreateKey̮ShowMatchingRecords fmMatchingRecLShowMarkCurrOrd| fmMarkCurrOrd(NthINT>NthкStrLenTestStr (SUMDIGITS-MyStringMyAnswer (COMPanyDIGIT׾Str1F5Str2G5Str1Len0Str2LenTestDiay  *\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:\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 H @ThisWorkbook0B48b0f7e9ThisWorkbookH=MenuControl0C48b0f7e9MenuControl+HPublicMod1148a7b88f`PublicMod"(dModule14H48a7cf95$Module1Q,v Sheet70Q46efa8df Sheet75R Sheet10;48a94378 Sheet1S Sheet20<48a94378 Sheet2}0Hh(H0.I5CA dB<Q6UKNttuB%Rs: u;9uu8TB>3L?;Ozeej(f as bcallCase=Dim@DoBDoubleDelseOexitRFalseTFor^Goto_IfbIncInputjIntegerxLongyLoopNotpreserveRandomReDimSetSubthenToTrueUBoundWhilewith Excel+ VBAWin16~Win32MacVBA6#Project1  stdole` VBAProject Officeu ThisWorkbook| _Evaluate Sheet1 Sheet2Sheet3Sheet4Sheet5Sheet6 Module1b _B_var_Options(ConvertBailiifDataYc _B_var_SubWorkbookk WorksheetFileNm applicatioz*_B_var_applicatio Application*GetOpenFilename]?MsgBoxR _B_var_Openl FileNmuber  FileNumber _B_var_filenumber6OCodeStrZp _B_var_DoEOFcodstr2MyLeni` _g  Str1DigArray Str2DigArray>NoStr1FNoStr2G (COMPordDIGIT5 (INTfrmPOSCNCharLenStartValP StartFlagIntStr (INTfrmCHARChar)(COMPanyDIGITBool'U(COMPordDIGITBoolQ( (NUMDIGITS+ShowfmBegEndNumInt!fmBegEndNumInt3wShowfmINTfrmCHAR. fmINTfrmCHARShowfmINTfrmPOSÛ fmINTfrmPOS% ShowfmNthINTyfmNthINTShowfmNumDigits fmNumDigitsuShowfmSUMDigitsj fmSumDigitsModule11V FontTypeArray. ShowMergeWrap(# fmMergeWrap (CmdBarContrl/CmdBarC CommandBarCmdBut)CommandBarControlPCmdBut1CmdBut2CmdBut3 CmdPopButwCommandBarPopup Flag CommandBars ControlsKCaptionxIndexmsoControlPopupl)msoControlButtonnOnActionSelectMergeAndWrapwb_MyRngRDataCol+RngColRHt TxtLenEvalU TxtLength={ RowsNeeded RangeWidthmdneofpgaXMergeRngb MyFontSize\MyFontSizeTestu LetLenArrayStringLenArray*LetLen~ LetLenFlagPosFlag ThisRowLen5  GrandFlag3MoveTxt&StayTxtVyMovePos FirstRowValiFontNm3BoldFlagItalFlagz MergeFlag CurrentRegion|ScreenUpdating!  ActiveSheet%N ActiveWindow+RangeSelection7~RowsUAddressOffsetInsertrAsc!u Charactersrg SizeTabCol RowHeight MergeCellsک MyFontNames FontNmStr=H UsedRangeȉCheckMTMergeCellsw ColsOffset  MenuControl Workbook_Open cmdbarcntrlItemzWorkbook_BeforeCloseCancel(Reset> BeforeClose~;(FindSearchStringsnSearchStringArrays CleanCodeStrAEndPosbSearchCriterionArray]_B_var_SearchCriterionArray)J _B_var_UBoundd(URLCleanH LogStringCellRng8~Cl\jakb CellValStrHexStrab CellValItemBegStrEndStr% NewCellValcDecArray SelectionZFormulaqYValue2HexlogstrOserachcriterionarrayK_B_var_serachcriterionarrayDredom _B_var_redoms_B_var_fmFindSigNum_B_var_fmBegEndNumInt_B_var_DecArray _B_var_HexU _B_var_RandomnStrtRecVEndRecRecStr StartRecw_B_var_startrecst(_SearchStrCountҝstartpo'_B_var_startpoStartPosG_B_var_startposЛsearcstringarrayP_B_var_searcstringarrayJ% (FindEndPosJ* _B_var_FindU EndAmpPos EndQuotePosmysring_B_var_mysring4Min _B_var_Minpminimum_B_var_minimumWorksheetFunction& wndamppos4searchstringarryM_B_var_searchstringarryG applicationsn_B_var_applications C Substitute^Now% _B_var_withYlowert _B_var_lowera_LCase: _B_var_LCase' LoopAgain vellvalstrf LoopCount_B_var_vellvalstrUCase5  _B_var_UCaseatnenIMidStrmisstr? UniqueStr_B_var_UniqueStrQuig_urp_usq_ FoundFlag3ens܉ _B_var_ensFprintrng)_B_var_printrngSort xlDescending> xlAscending`xlYesa  %~$@(@@ @ hared\OFFICE11\MSO.0DLL#M 1@1.0 Ob LibraryKE@ThisWorkbookGTisWrkbUo 2 QHB1Bx=B,!("B+B MenuControlGXnuC"nrl &2 O#O#+R!E# @PublicModG!b~M!d! 2 O ddO "K Lule1Gku12O,vOQKSheet7GB}S`Be0t7@2  5R>& ! Aӧ 1 LTS 222 2 } 6rU~~{ ' Liab.: Court: >The extract process has found ' ' cases &that owe in total  #,##0.00 ." If you are satisfied this is correct then click 'Yes' to proceed.FFFF LineColumnWidth Account% Enter the name of the bailiffs for whom you are preparing this extract. Bailiffs <Revenues Bailiff Extract for ' ValueFontBoldSize Prepared by   on  dd-mmm-yyyy  on behalf of  ItalicEntireRowWrapText Year No 00EntireColumnNumberFormat Admin Amount Last Date dd/mm/yyyy Last Amt Type Liab Bal Costs Bal Owing Assoc 1 Name Assoc 1 Add Assoc 2 Name Assoc 2 Add Assoc 3 Name Assoc 3 Add UPRN "Propertty Address "Liability Periods Court Date Court AddressVBE6.DLL %S %  %; 8 % X %x x %  %`  %T  %b  %1  ,  |D:BPQP,dJJOH_;χWorkbook_BeforeCloseFindSearchStringsURLClean  %*  #Error BDid you find the right text file? ?q= &q= ?p= &p= ?qry= &qry= ?as_q= &as_q= ?title= &title= ?keyword= &keyword= %Y  % %= l$4?JsZT F-Q7O$JnkDF Worksheet Position ' ' returns Code ' ' % X FindEndPos + >Search Strings extracted from ' Printed on  General Date Search String %"  ,Extract Search Strings "FindSearchStrings BNumber of Search Strings foK*yrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~j H[6s   E  )+ A 89 q7a  !9Qq  A a a xIqa++Y2qe  e  e   ThisWorkbookSheet1Sheet2Sheet3Sheet4Sheet5Sheet6Module1Sheet7Sheet8Sheet9Sheet10Sheet11Sheet12Sheet13Sheet14Sheet15Sheet16Sheet17Sheet18 PublicMod MenuControl VBAProjectF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA  10F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel 1@0FC:\WINDOWS\system32\stdole2.tlbstdole APL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLLOffice !`ConvertBailiifData FindMyNumberFindEndNamePos IsAccountLine BEGINTENDINTBEGNUMENDNUM ApproxEqFix ApproxEqPercShowFindSigNum showFindLists ShowCompListShowCompListVal ShowCreateKeyShowMatchingRecordsShowMarkCurrOrdNthINT SUMDIGITS COMPanyDIGIT COMPordDIGIT INTfrmPOS INTfrmCHARCOMPanyDIGITBoolCOMPordDIGITBool NUMDIGITSShowfmBegEndNumIntShowfmINTfrmCHARShowfmINTfrmPOS ShowfmNthINTShowfmNumDigitsShowfmSUMDigitsF ߲G(:OFy#P@O6W9DFWorkbook Workbook_Open @ CmdBarContrl $Worksheet Menu BarFF  F F F ACBA Functions FControls Text to Excel  FTypeAdd Bailiff Extract $ConvertBailiifData - Have you checked on the print file both the number of cases and the total amount owing? y n `Text or Print Files (*.txt; *.prt), *.txt; *.prtF '. Prop.: 0000000( The process has detected an error in completing the details for line number ' H'. You may wish to verify this line. 0000000000 0000 #0.00  Assoc:& There are four or nore persons linked to the liability order at lineund = %  %  HitsCurrentRegion3-GU^XPNj+Uf[Reset PNumber of Unique Search Strings found = ,(!C _`DC_R*A|IՉxY)hT__SRP_1PROJECTwmPROJECTSummaryInformation(     PosMyStrStrtPos AlphNumStrComp1FigComp2FigPermVarPerCentNthMyStringStr1Str2Char  Cancel LogString 0StartPos8ThisWorkbookThisWorkbookModule1Module1Sheet7Sheet7PublicModPublicModMenuControlMenuControlSheet1Sheet1Sheet2Sheet2ID="{00000000-0000-0000-0000-000000000000}" Document=ThisWorkbook/&H00000000 Module=Module1 Document=Sheet7/&H00000000 Module=PublicMod Module=MenuControl Document=Sheet1/&H00000000 Document=Sheet2/&H00000000 HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="999B3543394339473D473D" DPB="32309E452A622A62D59E2B62149DF44B647BC2855A762DAA105388E163D1572E7FED4C1D4D" GC="CBC967EC01ED01ED01" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 663, 426, Module1=198, 198, 740, 616, Z Sheet7=0, 0, 0, 0, C PublicMod=0, 0, 457, 426, MenuControl=22, 22, 479, 448, Z Sheet1=0, 0, 0, 0, C Sheet2=0, 0, 0, 0, C Oh+'0HP\t bbStephen AllenMicrosoft Excel@F.@D@ 8^#՜.+,D՜.+,  PXh px GYBC Sheet3Sheet2Sheet1  Worksheets@@ 4_AdHocReviewCycleIDDocumentSummaryInformation8`CompObjm_EmailSubject _AuthorEmail_AuthorEmailDisplayName_ReviewingToolsShownOnce"-Bailiff sheet to 'tidy'bb@great-yarmouth.gov.uk Bob Bryant F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q