ࡱ>  !TahomaH,{5Tahoma4(#No. of Transactions per inner page:5TahomaH,{5Tahoma4(!No. of Transactions on last page:e:5TahomaH,{5Tahoma ( Enter Details  @Tahoma((Test Name/Identifier:es@TahomaH,{5TahomaH,#{5Tahomau$#Frame1"(2<Label2$@tbSrcNoE(2DLabel3og $4tbSrcNm(2LLabel4mE ( 4tbSrcPgNoailE( 2TLabel5mO ( 4 tbTransPg1il \p Stephen Allen Ba=  ThisWorkbook=hL,<X@"1 Arial1 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_-;_-* "-"??_-;_-@_-                + ) , *    ` MasterOwnerDetAuthorisedCopiesMyInfoSheet2 Sheet3,!  ;AddCity:AddCode: AddCountry: AddLn1:AddLn2:AddStat:" AuthCopyDays:# AuthCopyEndDt: AuthCopyNo:" CopiesMadeNo:" FstLayerCopy: FstOpenDt: MasterOrg: MasterUser: OrgFullNm:" SecLayerCopy:Setting:$UserContactNum: UserMail:  UserTitle:8NYMaster OrganisationMaster User NameUser Job TitleFull Organisation NameAddress City/Town County/State Post/Zip Code User emailContact TelephoneCountryACBA Stephen AllenCopy ReferenceJob Title/Position Contact EmailRegistered by Emailacba10dave JohnsonauditorACBA10Rob WilliamsSenior AuditorACBA0Stephen Allen! } cc   v  dMbP?_*+%*'&CACBA10Stephen Allen&R16 February 2002MHP DeskJet 720C Series7 d,,HP DeskJet 720C SeriesLPT1: ,," d,,??U} m                   >@7 Sheet5  vd  dMbP?_*+%MHP DeskJet 720C Series7 d,,HP DeskJet 720C SeriesLPT1: ,," d,,??U            (F*>@7 Sheet4  r  dMbP?_*+%"??U  ~ ~ ~ @~ @~  >@7 Sheet1    dMbP?_*+%"??U>@7 Sheet2    dMbP?_*+%"??U>@7 Sheet3 ThisWorkbookh __SRP_2&<__SRP_3 /fmRegCopy*  !"#$%'()*+,-.013456789:;<=>?@ABCEFGHIJKLMNOPQRSTUVWXYZ\]^_`abcdfghijkmnopqrtuvwxyz{|}~|8N,L,#<3(kOBv(FG9ig9.Ae^xG9ig9.Ae^3(kOBv(MEP[LSS>" <<<N0{00020819-0000-0000-C000-000000000046} ``|k@T i BA  `@|kX%` %8 %"$ @H`@\T%x=$*\Rffff*0U4758f300$*\Rffff*0V4758f3004 "   8 4@ x   "xpDim CmdBar As CommandBar5Y.Set CmdBar = CommandBars("Worksheet Menu Bar") CmdBar.resetA B@oP`A"A$o0(Attribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2Option /licit 1 P*. Sub _BeforeClJ(Cancel As Boolean) 'Dim CmdBar Comman Set= s("0sheMenu "'%.reseRCall R .SavN` End+/O0pen(TestFstLayer lis tsHrU 0!@  1Y #4a `` IWP   $  $ D  $ 44PrU @(`T#$A`X n<jxN,H,#<ɚ I+,h FܱJ5O]xܱJ5O]ɚ I+,hME. .B@T .7VB@XSettingmyInfo %<%4!^5Z(\ Z dd mmmm yyyy$5Z(`qXsteveallen@netcom.co.ukdRegistered Copies for SettingmyInfo %<%4!^f *B@b 2B@B 2!h!j'6 8 6Y 8 2%>(^ 8SpnThe ACBA Random Sampling function cannot see your mail system. Please print out your details and send by post.A@lnAuthorisedCopies %<.. .!n .(nk A@ro](]H]h]]]]0 !|!d!You must enter a valid Reference.A@l !|B@~|k  !!d !!d !!d9At least one of the 3 remaining fields must be completed.A@l !B@~|k .*AuthorisedCopies *%<.. .%>!@.2 2!h!j'r r r z 6 r 6 2%>!^ 6 +z8k0 6 r !|!d 6$zMThis is a duplicate reference. Do you wish to continue registering this copy? $l'x x  !|(d|pkhk`X CopiesMadeNoMyInfo *%<%4!^': : CopiesMadeNoMyInfo *%<%4(^ . !|!d r 7>(^ !!d r 7>(^ !!d r 7>(^ !!d r 7>(^N r 7>(^q CopiesMadeNoMyInfo *%<%4!^': AuthCopyNoMyInfo *%<%4!^'v : !(d : v DDo you want to add another copy or print or Email authorised copies? $l'x x  99|99qd A@rkd !(rYou have entered the maximum number of copies under this licence. Do you want to print or Email authorised copies? $l'x x  99|99qd A@rkko]]] J( .*AuthorisedCopies *%<.. .%>!@.2 2B@H .* *!<!R.. .%>B@T .%>!@.2 2!VB@XAuthorised Copies as at Z short date$ .!Z(\SettingMyInfo %<%4!^ .!Z( .!Z( .B@ J( .B@ J( J( A@ro(]h]]]]] .*MyInfo *%<.. AuthCopyNo .%4.2 2!^' CopiesMadeNo .%4.2 2!^'  !(d 9 N,|C+.Bً1߻JTӭkAC n옌vB-rG8x옌vB-rG8C+.BًMEPSPSSS<,<0<46"0{B7D5F3A1-85E5-498D-85A9-77E35A21FBE3}{FAE741D4-CB08-43D1-8F81-0BC00D856EB7} (`.. *X% .x% 2%`6`8`: p`__ *@X% .`<% 2 %`6`8`:`r`t`v`x z`Hh (` *% .% 2 % ` *% .% 2%` ``efer@8%h@ %(At l%&%(@p%x=$*\Rffff*0[4758f35948<@DHLPTX\`dhlpt " (0  H$X      (02@"x  t 0@X x  x $8 HX ` p "x , 08 H@ D  $(H  Xh& ` hx 28 $ $H$p$ 20 P ` Vp      ( 0 @            (  0 "8 @ H P  X  h $x       0 B@ 6         0 "8 @ H P X ` h  p         0  8  H  X  h x    xp]@]`]]00 .*D77AuthorisedCopies *%<..]̎ .%>!@.2DNF 2B@B 2B@H J!L NKT J!P!R.* *%<. !(d    5(5|(5(5(qkxophAttribute VB_Name = "fmRegCopy" " Bas0{B7D5F3A1-85E5-498DA9-77E35A21FBE3}{FAE741D4-CB0 8-43D^F81-0BC00D856EB7} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizDOption 0licit F 1 P+/ Sub cmdEmail_Ck() Dim wb As Workboo k s shee#,Rng Ra,ngqiInteger, jkESet= ThisbsNwb.ABs("AuthoriNies"+ != ws.Cells(1, 1).CurreLnt@D .oFilter field:=@5, Criia1:="N  Select CAAppHaW.MLSystem xlMAPIB1b@1I9s.Add <17A@7Pa@SpepcialOW8ith@.ColumnE)D@@o Page! upQorHeadIfJcmyIn fo").("!@tingValRightF Format(DR, "dd m y!<pEnd ESHend2 R$pi@?s : &veallen@netcom.co.uk",_j;`AD v J for " &RqNMiBaRoVounh2! g= 2 To ig#\j, 5)., "YV-Next j-BUEšEMsgBox "The ACBA :dom Sa : funccannot see your A sa. Pledprint outCdete(s a`6s@4 b$y t.h !:mna/If'|Mod!á8en -If Unload Mdub!mMd_w__ĩrJ" ƭt a ReplyRefLis(t()S`ngc)Me.tbl.TJ`"(EYou m ma validofece< Focus +xiNto3 eJobTitlex"A#_ ntactTel?l@-D.At q**ne of t@/3 re,n.as be Cpleted  m-mmq0?>1Bmmr ARDr > 21dRe r r-pr FHFrt 9i2Gi?u$^FYPo tj)V *= C&( Iis a duwe& DoAF wish tonhu!g-tpy?@_vbYpesNotu0'2= vbNo4aQ&py`2$TE+ǥCu k@<M s@MpvNat$OZvO= kh + Wirg 2'fG9, 3 Co:/, 4,;KoAK"ps tpchyy&5"@%k < t$ष2X7-E+a`r@+a*aPuh@Tc o$r 4tr  av,0#,,0.,!!m*1]"xb/`e!w1׆u]_?PDFQv.E>nθ;%Bqhhavesh]maximum numbpp^ unQ2AмenpjVDYDF g1?Q&0G   G3Qq |nt㡅R㾲nge Application.ScreenUpdpng @= FalsS et wb e The'With8 " ntactTel.Enabled HFpyReBfEmaiJobTitleHJIf5cLSheet22~Sheet3 DmodSetUP <7@__SRP_8[b(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@HH0%x=$*\Rffff*0]4758f3594xAttribute VB_Name = "She@et2" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2@%N,F,#<}D}dOV F4zvLQBx4zvLQB}D}dOVME PSLSS16"<<<4N0{00020820-0000-0000-C000-000000000046} `@H)` %h%%%hh@LH%x=*\R1*#1c8$*\Rffff*0^4758f3594"  ophAttribute VB_Name = "She@et3" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$BustomlizD2P Sub Works_SelectionChange(ByVal Target As Excel.R ) End rU~|  0   0   0   0   0 ]]H]`]x] $<. $$<. %>!@. !h!j' !. !V!j' 'd'k    %>!@. !V!j'  : ':  6  6$!^ 6+kk A474!95(qxRandom Integer   7>(^ Batch Page No   7>(^ Batch Name   7>(^N th Transaction   7>(^   7>!( : 6  6$  6  7>(^0k(q      %>!^ '  @B '  '  %>!^'    '  '  +  %>!^ +  %>!^ +  +   r    ' ? X 'd0 'k   r   7>(^ $ r   7>(^ $ r   7>(^ $ r   7>(^Q Set DataCell = DataRng.Columns(1).Find(.Cells(4 + r, UsedCols + 1 + u).Value)G .Cells(4 + r, UsedCols + 2 + u).Value = DataCell.Offset(0, 2).ValueG .Cells(4 + r, UsedCols + 3 + u).Value = DataCell.Offset(0, 1).Value) v = Rnd * DataCell.Offset(0, 3).Value If v > 0.5 Then v = CInt(v) Else# v = DataCell.Offset(0, 3).Value End If- .Cells(4 + r, UsedCols + 4 + u).Value = vqP r   %>!@. %V     B@ !h!j' !^''  b' r  r$   '  ' ? X 'd( 'k  r %>(^ $ r %>(^ $ r %>(^ $ r %>(^)Set DataCell = DataRng.Columns(1).Find(v)7UsedRng.Cells(r, 2).Value = DataCell.Offset(0, 2).Value7UsedRng.Cells(r, 3).Value = DataCell.Offset(0, 1).Value) v = Rnd * DataCell.Offset(0, 3).Value If v > 0.5 Then v = CInt(v) Else# v = DataCell.Offset(0, 3).Value End IfUsedRng.Cells(r, 4).Value = vk r$'LstTrans = SampRng(r, 4) r  0Q  ' There are 1 or more sample items which are duplicates. The programme has not been able to eradicate these and is escaping from the loop to allow you to inspect them manually.A@l'k)MsgBox "I'm going back through the loop."   %>!@. %V     B@ !^'kd r     ' ? X 'd  'kd  2N,B,xMEP<,<0<46 "<< ` @ i *x%` .%`  ` i0i h%%`%` %` %` (%``r`t`v`@ %@ ``` pX %```6`:`8x@( ``````  +` ` )i`  ` 4 &` 8 *X`@|k< .` @ 0` D X8 %, %x=$*\Rffff*0X4758f300$*\Rffff*0Y4758f30aI B   (0 8 H`p    "   8@HPX`hpx   (8 H Xhpx      08@  HPh p 00,2&P x(   x(8PXpx    $ $ 8 P ` p  (22@2x  X  N N`  0    *0 ` 4p   ( ,   ( 8  @ P X p         $ $0 $X   0 > > 0 08 h   *  $   8  X  h x   PX  0`(,  (0H `px ( F F FH > ::  Pp ( (F0x     ,( @PXhp 6 6 6  8,X,   (0PXp     0(F 0@ HP  Xh  B      "   "   "  (" 0 8 H" P X hxp]`]]] J!.* . *!<  .!  'kxp 'dP'k@i8]P]p]]]]]]]0]H`x]]]]](]@]x]]]p  r   7>(^@ .Cells(4 + r, UsedCols + 2 + u).Value = TransArray(v, 2)@ .Cells(4 + r, UsedCols + 3 + u).Value = TransArray(v, 3)@ .Cells(4 + r, UsedCols + 4 + u).Value = TransArray(v, 4) r   7>!^ %V%. %!^ r   7>(^ %!^ r   7>(^  %!^' ? X 'd` %!^'k8  r   7>(^q r   %>!@. %V    %V   B@ !h!j' !^''  b' r  r$  r$   '   ' ? X 'd  'k  r %>(^0 UsedRng.Cells(r, 2).Value = TransArray(v, 2)0 UsedRng.Cells(r, 3).Value = TransArray(v, 3)0 UsedRng.Cells(r, 4).Value = TransArray(v, 4)  %V%. %!^ r %>(^ %!^ r %>(^  %!^' ? X 'd  %!^'k  r %>(^k r$' r$' r   ' There are 1 or more sample items which are duplicates. The programme has not been able to eradicate these and is escaping from the loop to allow you to inspect them manually.A@l'kp )MsgBox "I'm going back through the loop."   %>!@. %V    %V   B@ !^'kk B@ %>B@ox ]  $X'DataSht 'i0 "B@$o (B@$o ,B@$oX &B@$o 2B@$oA@4hjAttribute VB_Name = "modSetUP" Option Explicit@Base 1 @ FuncFI sSht(Nm As Sng) Dim wb$Workbook&Old X+s+sheer@FlagIntegerx Y= Apad.Avejor Each ws In1.\@s If C=.Then)9= <+uEnd If NexJ= 0 0 Else #dSub CreateSample(PgN&Mx, NoUsedRnRang:= ox Col A@BGCA#IData A HG +A R%+r<, ,, *tuJvGCe|llF3!LstPOLongBuM Tran TestHeader()Ak?FDRaIt6e =Cik, :kJjHC )Ar0ray(BCounLH/4onPage!xy, zgcs[etVAD=~ n\ax?nGetH~A/@8@k!. 4 #EAF4,"iL=  la`kk 3aRe_5 To  ezFi i)!;i).Valu ) ñ!EGa@Withe; ".("A4").Entire@C.Wrap&T@Tr.Font.Bold! CR5(-`uD "do~m@BۀY+21,BatwNo3_d4\N bAa"?0''Wid`= 153'8k >6t%#mpq C/ i0@r"YiC?#x2!-CsiT= +vEx, 4* x r iz,@< 10?6Z\ P  8]pSQ`GR vay@No'fAi w*G1B?s?21`3V5/3/2/p/x0 2#y#raNo"MbAvRP*(+(zv8.Y!eCLng(v3) 274qWEMrk 0(Q/>Pv, 2 LQ3Pk R4#'A '`(oby(K`Find(_ T 1'tq!.Offset(0Au az) (o 7B)pC*R*F I+*R;ϐEqs(ρ01.Sort key1:=%P 1#, orxlAscending, h":=xlYe0ows = UsedRng.Rows.Count (SamptValuepPFlag21Do While ,> 0, T& For rr2 To| .If y(r, 1)+LstPg Then QX+ v,Rnd * TransYdv .5KCLng(v)0 Elsu)E6 IfCellZs^.Jv2)/Array`(v, 2E*3Օ344D &C'Set Da|taA1.@lumns(1).FindJ'(4.Offset(05ohL.1`[T3E/ȑ+%O SOa"L/ WOCนF @[ a?D A0qoJoJoJO!gJ!ߪߪ6ϪϪgqȧb40ϪϪϪϪϪϪϪϪϪo ϪϪ![JsϪ ϪͪRng = SampSht.Cells(4, UsedCols + 1 u).CurrentRegion .Sort key1:=$vumns(1),@ order6xlAscending,\2\4.# .heaD:=xlYes}AtValueE`nd If L oop  Activat]1, 1)2. &!Su"bFunon GetData`PgNm(,M As Strw)Dim MyNo Integer  = Ca (Mid#D0)) 1"7" && NKT ShowPPrep($fmSetUp. ' Eub Ne>wA1 AA AboutMe W တCopyC Z Det Mast er   H$$ 0 X  0   HrU (`0,` 0&(`__SRP_9eModule1 [F__SRP_4__SRP_5l0$`$!`$I`$q`$`nrU $`$`$`(`0$!`$Ie4*\R1*#1c8*\R4*#8c*\R4*#4d*\R4*#30*\R4*#4f6 " (08@ "*H p    : ( 0 P(Xp/x :(  :. 8 h:  :$  8Q0 hx:&  t Xh p "x "0 "  g:N,0xME` @(L8(L<(LB , 0<4<> "LLLLPP*LLLp% @l'%`jP`6h 0`0dk< R` SSB *:! % .ampl% T@!`6`8'`:'`V'`X`Z \ % ^%``' j` k@@il  `nx`pt `rPp)Se`tl.Col@v\ 7Us /Xlue % +Te % "``k`nxData`ptlue`rHp The`tl= CI`hse ` `nr, 4`p`r`tpRng .`%` `k x`  *he l % .8them% 2X%`x thr `  + * % .%x04X%`x00jx@Hd @`T @P @x@ @0 @ @ @  @ @ @ h8P 8 xzJZ@ D @ 4 @ $ @  @h  @  @ @ @ @ @p ` @P @ @8 @ @  `H%p "@` X p  @ DLN@ d @0 T @ P @ L @HO @D @@ @H 0 @` @x  @ @ @ @8 @ @ @  @P @h @ @x @h @X hPz@x @h @d @T @D @4 @$ @ D@x @h @d ( x0%x=$*\Rffff*0V4758f300*\R4*#4e*\R4*#50*\R4*#52*\R1*#2ad*\R1*#2ab$*\Rffff*0U4758f300*\R1*#f1*\R1*#dc*\R0*#14*\R1*#2ac*\R1*#e8*\R1*#d7*\R0*#12*\R1*#f1*\R1*#e4*\R1*#   (8 (X *     0( 0ZP     * 0 (P "x &  .  8 X x     $ ( $H p " * & 0 8 @ H P X ` (h  . ,  & @ H " P X ` h p x           0 @  )X 6Vh 0   * 2 Ry  x     ".  (( (@(`(x( N N (((0(Pp x (G.G  "  (@ X2Jh    4Z8 @ H P " X`hpx  " p( 4 N `p x" 4F4F &( " 08@HP  Xh     " (0  8 H `p xxp]@]`]]]]Worksheet Menu Bar$D.6x : 6!Fx :!HACBA Functions  ' :!J'6k0(  Ll 6!F%R.:!CmdBut.Caption = "ACBA Functions"ACBA Functions :(Hd 6 6%F.:xk Ll :!F%R.@Random Sampling @(Hx Nl @!F%R.>$Prepare New Data and Sample >(H ShowPrepData >(P Nl @!F%R.>!Prepare Sample from Existing Data >(H ShowNewSamp >(P Nl @!F%R.>%About Me >(H!V ShowAboutMe >(P Nl @!F%R.>Register Master Details >(H 6 ShowRegDet >(P secLayerCopymyInfo %<%4!^Y >(5(k Nl @!F%R.> Register Authorised Copies >(H N ShowRegCopy >(P secLayerCopymyInfo %<%4!^Y AuthCopyNomyInfo %<%4!^ >(  koWorksheet Menu Bar$DB@6$oP0]p]]  ] ]8Ph!]]] .* MyInfo *%<..'!ws.Cells(12, 1).Value = "Country"#ws.Cells(12, 2).Name = "AddCountry" ^ *!b ^!d'` ! ` J!f% `! ` J!f% $'`k `AuthorisedCopies ^!  ^!h ' ^ ` *%<%4!^'A@l? kH@Set ws = wb.Worksheets.Addws.Name = "MasterOwnerDet"$MyInfo(1, 1) = "Master Organisation"  MyInfo(1, 2) = "MasterOrg"!MyInfo(2, 1) = "Master User Name"MyInfo(2, 2) = "MasterUser"  MyInfo(3, 1) = "User Job Title" =MyInfo(3, 2) = "UserTitle"'MyInfo(4, 1) = "Full Organisation Name"MyInfo(4, 2) = "OrgFullNm"MyInfo(5, 1) = "Address"MyInfo(5, 2) = "AddLn1"MyInfo(6, 1) = "Address"MyInfo(6, 2) = "AddLn2"MyInfo(7, 1) = "City/Town"MyInfo(7, 2) = "AddCity"MyInfo(8, 1) = "County/State"MyInfo(8, 2) = "AddStat"MyInfo(9, 1) = "Post/Zip Code"MyInfo(9, 2) = "AddCode"MyInfo(10, 1) = "User email"MyInfo(10, 2) = "UserMail"#MyInfo(11, 1) = "Contact Telephone" MyInfo(11, 2) = "UserContactNum"!'Set ws = wb.Worksheets("MyInfo")For i = 8 To 11' ws.Cells(i, 1).Value = MyInfo(i, 1)& ws.Cells(i, 2).Name = MyInfo(i, 2)Next 'ws.Cells(8, 1).Name = "Setting"o]8]P]h]]]] ExcelAddIn'n ACBA Sampling'pPerm'r n p r$x'v v n pA@zk) Myset = GetSetting(AppNm, FileNm, MyKey) MsgBox Myset J!|'t t AuthCopyNoMyinfo %<%4!^'t t J!~'tMsgBox ThisSet l FstLayerCopyMyInfo %< ZX FstOpenDt74(^ ZX AuthCopyDaysMyInfo %<%4!^ AuthCopyendDt74(^ CopiesMadeNo74(^Setting74(^q@ .*MasterOwnerDet *%<.. .AddCity74(^AddCode74(^ AddCountry74(^AddLn174(^AddLn274(^AddStat74(^ J!| MasterOrg74(^ J!~ MasterUser74(^UserContactNum74(^UserMail74(^ UserTitle74(^ OrgFullNm74(^qkY lMyInfo %<%4(^ tSettingMyInfo %<%4(^ n p r tA@o]0]H]`]x] ExcelAddIn'n ACBA Sampling'pPerm'r FstlayercopyMyInfo %<%4!^' N FstLayerCopyAjd0 n p r$x'tMsgBox ThisSet tSettingmyInfo %<%4!^Akko]]]]0]H]hMyInfo %<.. ExcelAddIn'n ACBA Sampling'pPerm'r Seclayercopy .%4!^' N AuthCopyNo .%4!^ CopiesMadeNo .%4!^ ZX AuthCopyEndDt .%4!^  SeclayercopyAjkH d@ n p r$x't tSettingmyInfo %<%4!^DThis is not an authorised copy of the ACBA Random Sampling function.A@l B@Bk k ox N FstlayercopyMyInfo %<%4(^N SeclayercopyMyInfo %<%4(^ ExcelAddIn ACBA SamplingA@zo ]] ]@]` .*MyInfo *%<.. .N Fstlayercopy74(^N Seclayercopy74(^ AuthcopyDays74(^ AuthCopyNo74(^q o x]] .* . *!<  .( o x Attribute VB_Name = "Module1" Option Ex@plicit@Base 1 Sub listBars() Dim Cmd As CommLan2ut 2C@ontrol 1a!PopB EuBpCFlag@I@ntegeri SetU=Us("WorksheMenu f"m For` EachAI n .bs Ibf.CaACBA Funcs" ThenS'T= X+iut.Index End If Nex-= 0!aFaE.Add(Type:=msnoPf')  @(lse !(i2 !p,;O,# VRom Samng"1S Cs@#ton*=1Prepare New Data e OnAw"ShsMid(,  -@#zR4NotP="8@.8{MsgBox R& " 0& Local "'"ka EINm@'  3QS's@ yaq  rTOwnercR'.AVOrganisRgp0ry5"8UsKo0 !3UJob Titlg_54Full ) lc@NmX5e,resWs٠Lna6OH27ECity/Townfo8A9y/Stat 9Post/Zipdeo10"emxMPT1)"act Telepho>nV0&!Nu//q0bAM'a8 To 1' : NiA vNBN2}`'8Q2Q0:tǰcr! AContactNumC/ MailTitlY[1Fulc2! "NŦCall (@@&Els ^AE= Get(q2 'MsgBox3Not%! 2m$d _A;SecB!!?CW'ZAAA`EDA'Jw"AUD"et <+_J_JT=,cFsfF9wsE%٨>( _ A@G q"^ A'*^@@f _Fnӕ=x@Lz8A"ĖL@ܥ|x8A"ĖL@ܥ|>q"^ A'*MEfmPrepSampsfmAboutMe__SRP_a0 __SRP_bPSPSSS<0<,6"<0{B3B92B00-A072-4324-958B-31FBF71FF976}{788F3D95-9D40-4CEB-A77A-90C3C18FC302}p p``` `((` .% *% 8 `J!`6p % %p0%(`%p ( 2T Label6mO( 4 tbTransPgGen; (2T Label7mO( 4 tbTransPgLst( HcmdEnterDett? (2LLabel8m1$4tbTestNm1( 4tbTotSampett;   Microsoft Forms 2.0 FormEmbedded Object9q8T%x=$*\Rffff*0_4758f35948<@DH< " @(h 2  " (  8 H  ` p       $8 `h p  xp]@]X !!d !!d !!d$ !!dX'`6 !!^'  A A@rdH(You must complete both fields correctly.A@lkop]]]]]@X .* . *!< .!'  SampleSht*!  'k`X   . *!< .!'  SampleSht* 6 '6  6rU~|  F  I q @   1 Q q Q  I y9a Q 1a1a)aq!I)Q i!q$*P:T/%d$ dd H0QPxddx 1Qd[LtH2Dt 2lD30/D kjpj@t 2l@ph tH2J kj:P'%'%' %'0%T %dx 1d $4QPtd 3t 2(PkhDT%dx 1d ,4QPtd/T %tW5678l6 9l 2:P'%'%' %'0%T%dl P8d $4QPpd :p 2 ;p 2:P'%'%' %'0%T%dl P8d $4QPpd <p 2 =p 2:P'%'%' %'0%T%dl P8d $4QPpd >p 2 ?p 2:P'%'%' %'0%T%dl P8d $4QPpd @p 2 Ap 2Q:0B%P:T%d$ d dP A :-]3)dP6 p 2:P'%'%' %'0%T%dl P8d $4QPpd Cp 2 Dp 2:0B%P:T%d$ d dP A :-]/:%:%$  d Ax (]/hX)dP6x p 2$<$LHxplt< DdPxhXp80d:h/%x$ dx H0d 1)xd8$ xd0 0  \CxCtCp'D%lpltlx F4\\:D]/4$b'%ltFD%lx $) $  x> 1lVllF:%:D%$  d4 A$ `1l)64$0ll $  Tl *1l/   0*:D%$  dQ24 4Fi%:D%$ C 644$y4 4Fi:%:D%$  d$ A %:% C )6 44$ (%:D%4 C 54 :%:D%4 C 54cV=T.:D%T  dl= X) lX(:%'%:D!%  ,(:%'%:D"%  ,(:%'%:D#%  ,(:%'%:D$%  ,(:%'%:D%%  ,(:%'%:D&%  ,N $  x> F4%'%:D'%  ,)54N $  T> F4%'%:D(%  ,)54(:%'%:D)%  ,(:%'%:D*%  ,(:%'%:D+%  ,(:%'%:D,%  ,cG:-%l @:D%$  d4 C )54GllF%:%:D%$  d4 C )54lllpltlx .\H0 ptTXl\x, 4$hCxCtCpJ:@%P:T%d$ d dP A `1h)dP6  lh 0 C  / 'T%lpltlx 1lZllF]:@%P:T%d$ d dP A /)dP6  8 hptlx( dP 0   F:4 %:T%d:h%x$ x dd C )xd5F:4 %:TE%d:h%x$ x dd C )xd5'T%:h% $h$ xd0   0 x  C+ .%>!^ 6+k  !(kxophAttribute VB_Name = "fmPrepSamp"D Bas0{B3B92B00-A072-4324-958B-31FBF71FF976}{788F3D95-9D40-4CEB-A77A-90C3C18FC302} dGlobalSpacAoFalse CreatabldeclaredIdTru BExpose0Template DerivCu@stomizDO@ption 0licit h1 P+/ Sub cmd_Ck() Dim No As Integer PgNm Sng$If Not Me.ddWsNm.Text" AndI tb(SzIsNum8c() Then b != C!O B$=Val[Call iehle(A ,6@9U nload EBxMsgBox "You m@V( coaeboth fieldsrrectly.E@8IfASIWUserForm_Activ\EXws@R]wsAWor`ksheenb!bookbColArray()GcA Row n, iqC+Set wbi%eA @+ EachR #In@ .#s.=.ɁCLike "\`Sht*"q%= + EON F `> 0eF, 27i!i i, 1)  2.Cells(1.O'AAC dLi~sd% '%!dHrU @tingMe.labRef.CaH= .ValAgMas2AuthCoplyN 6 AHa t(O@UDt")A, "Lo@CDQ") & ".c Sec ;asterOwnerDeD:@.h  " Each YIn@w.DZ s If JcLpayer8["N"aen @ A.Like "T+*I pVisi If EA3 `? "& @V! Nex"^I Y@SPSSS , 0(4 6""PLLPLLL   a!a!!# "1 Q !"I"q"q ""Y$1$ $)Q4y!8y!9<y!Q@y!iDA0`I Hy!iLy!Py!Ty! Xa `  \y!1 `y!I dy!a hy!y ly! py! ty! m W Plx$ x$ x`V=x.T:X%hx h dlT=t)hTh'D%:X%t Qhp,pa40h h @/0h54Eh'D%:X %t ha40T T @/0)hT54{h'D%:X %t ha4: N4 : 0T T @/0)hT64_:D%T:X%hx h dT4A0  @/0)hT64h LQh[l\2h'D%:X%t ha4: ]3h54"0l tl0~/0 l M0l tl0~/0K l  l`<$lpxt,0hT4XDPrU $ `$A `n<jxN,^#<! O F!) I@(Ux1x!) I@(Ux1! OMEtK  9N,̅|,{'I,5E(҅Oqk?s5Lԭir0C$Sxr0C$S,{'I,5MEX@SPSSS , 0(4 6""PLLPLLLLL <\<`?@BCDFHIJKLdOPQRSTUVWXYZ[\]^_`abcefghijklmnoqstuvyz{|}~(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@HH0%x=$*\Rffff*0`4758f3594 xpAttribute VB_Name = "She@et4" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Option /licit <jxN,?#Sheet5__SRP_c__SRP_dBfmMasterDet%<ڀBDl- Fl(sL Scxl(sL ScڀBDl-ME(SLSS6"N0{00020820-0000-0000-C000-000000000046}(%H` % %`h8@HH0%x=$*\Rffff*0Z4758f30a4 xpAttribute VB_Name = "She@et5" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2Option /licit rU ## 4a`rU @n]@]`]] .*WorkshMasterOwnerDet *%<..erDet" . !!d MasterOrg74(^ !!d MasterUser74(^ !!d usertitle74(^ !!d orgFullNm74(^x !!dAddLn174(^ !!dAddLn274(^ !!dAddCity74(^ !!dAddStat74(^ !!dAddCode74(^ !!dUserMail74(^ !!dUserContactNum74(^ !!d AddCountry74(^q .%>!@.2 2B@H J!L NKT&MsgBox "Mail system is Microsoft Mail" J!P!R.* Owb.Name = ThisWorkbook.Worksheets("myInfo").Range("Setting").Value & CLng(Date) *%<.. .B@T .7VB@XSettingmyInfo %<%4!^5Z(\ Z dd mmmm yyyy$5Z(`q(steveallen@netcom.co.ukdSettingmyInfo %<%4!^f *B@bSThe ACBA Random Sampling function cannot see your mail system. Please print out your details and send by post. Address details at 'www.acba.co.uk'.A@ln  A@ro]]]8]X .*MasterOwnerDet *%<.. . !!d MasterOrg74(^ !!d MasterUser74(^ !!d usertitle74(^ !!d orgFullNm74(^ !!dAddLn174(^ !!dAddLn274(^ !!dAddCity74(^ !!dAddStat74(^ !!dAddCode74(^ !!dUserMail74(^ !!dUserContactNum74(^ !!d AddCountry74(^q A@rop]]]] J( .*MasterOwnerDet *%<.. . !!d MasterOrg74(^ !!d MasterUser74(^ !!d usertitle74(^ !!d orgFullNm74(^ !!dAddLn174(^ !!dAddLn274(^ !!dAddCity74(^ !!dAddStat74(^ !!dAddCode74(^ !!dUserMail74(^ !!dUserContactNum74(^ !!d AddCountry74(^q` .%>!@.2 2B@H .* *!<!R.. .B@T .7VB@XSettingmyInfo %<%4!^5Z(\ Z dd mmmm yyyy$5Z(`C@qp J( .B@ J( J( A@ro(]h]]] .*MasterOwnerDet *%<.. J!|5(d J!~5(d usertitle .%45(d orgFullNm .%45(dAddLn1 .%45(dAddLn2 .%45(dAddCity .%45 [N,4/J$^!Z:C&M?8H%^`or@EEbx`or@EEb/J$MEPSPSSS<,<0<46"0{0122310B-8D86-4EF5-8E6B-CDB26E1B5173}{B114953F-FE38-4812-A125-115EEAEDAFA9} `77 *Xme"% .xUser% 24%`H p` *e$% .0Mast% 2P%<%` (`-- *(% .!% 2%` ` *% .% 2%`%8 %p(%2%8(` @%x=$*\Rffff*0a4758f35948<@DHLPTX\`dhlptx|  " (  0"@h$p$$$  0"P"x""($ @ H h  x , V0 H  X`2p"  X  08     "  "0X$`$$$  "@"h""($ 0 8 H "PX`hp x "$$$$@ h """" (H $p         2 "X         "       " H P `  p      0 P $p     x(dAddStat .%45(dAddCode .%45(dUserMail .%45(dUserContactNum .%45(d AddCountry .%45(dq@o80Attribute VB_Name = "fmMasterDet" Bas0{0122310B-8D86-4EF5-8E6B-CDB26E1B5173}{B114953F-FE38-4812-A125-115EEAED AFA9} dGlobalSpacoFalse CreatablPredeclaIdTru BExpose0Templat@eDerivCustomizD Option 1licit 0 P#' Sub cmdMail_Ck() Dim wb As WorkPbook s shee#Rnga RangiString6Set'= Th,is) swbF. s("C|O wn}$With@ ws . rg").Valu_Me.tbrg.Tex@) UserS A u titleM T orgFullNm A OrgNm AdpdLn1M C 2 2 City Á Stat TodI0C APTContactNu+buntr o" End. OX]=`Q.Cells(1, 1).Curre ntRegl `.CopyUOa Select CAppmJas.Sym#xlMAPIG'MsgBoxB cil s is Microsoft (nsI os. g'pĮtJsmyInfo@5dp` t|f7& CLng(D@v a"}1Hws.PSpecial-J C -lumn@1).AutoF !Pageup6nHeaderAH_nl RightF Format", "dd m y~"$ GN a 3S$en R$pi!Ms:="`Fveallen@netcom.co.Puk",jM:=9s9g-SEeSThe ACBA ` dom SaD funccannot see your m ϤY. Ple1print out#detQ@s a8s` by rt. 0, ress t 'www.acba'.}U (^ Source Name7>(^Page No7>(^ Trans on Page7>(^7>(^ $7>(^7>(^ 7>(^q r    r 7>(^ $ r 7>(^ r r 7>(^  r 7>(^q r  $   ,>    ,>    ,>kp  $   ,>    ,>    ,>kd %>!@. !h!j 't  t7>(^ $ t7>(^ t7>(^  t7>(^q8 r    r t  7>(^Tx $ r t  7>(^ r r t  7>(^  r t  7>(^qp r  $  t   ,>   t   ,>   t   ,>k  $  t   ,>   t   ,>   t   ,>k@k8-Do want to continue with another sample list. $l'x x  ! 995(5(9999qx J(|`dX %>!@. !h!j't r t r r %>(^ r %> !9^5(5(q-Do you want to proceed to sample preparation? $ $mClick 'No' if you want to amend the numbers of transactions on some of the inner pages within your data list. $l'x x  %>B@ A@rdx !!dX'  A A@rk8k0 J(| [ P!R.*d=This is an unknown/unexpected error. Its reference number is !o. Please contact ACBA on email 'steveallen@netcom.co.uk' and inform them of the occurence and reference number.A@l A@r J(koo]8]P  !!d !!d'  X '  You must enter a simple number.A@l   !(dkk| You must enter a simple number.A@l 5(d5B@~ .tbTotSamp = "" .tbTransPg1 = "" .tbTransPgGen = "" .tbTransPgLst = ""q oho]](  !!d !!d'  X '  8You must enter a simple number as the total sample size.A@l   !(dk8k0|(  You must enter a simple number.A@l  .tH  6N,ZAu\di@(靎5? DIn=tJWWzF,[F6bw xF6bw Au\di@(靎ME$SPSSS0004<,16"<(<,<0<4<8<<<0{509EF0C7-82D4-496E-8B4E-1E151F28531E}{3D13BB6E-74D1-4AB2-9CBD-57577A462C5B} % %84(^XP(^%xp(%%% ```%`````r%`t!`v` *0%`xP p ` h`)0%``  ` @`)%``  ` `)%``  X` `)%``  0 `  `p)%`` %  %"P40@"x8P@"<p@"@@"D@bH@bL@(0xP@hX"  (0$@%x=*\R1*#2ab*\R1*#1c8*\R3*#e$*\Rffff*0b4758f359PTX\`dhlptx| j   (08@ "HPX`hpx   8(p      ( @X hx  (8@ x          (  8H P"p$0H Php"  " Hh  " 8PXp "("8"`  ("" (  0 (@ "h "   @     8  @  P ` h p x             8  H  X h p  H X  p                   "  ( " 08@HPhx * *0 8 H  X x    "  " 0@ PB`  *  8 X `    "  " ( 8BH  *    @ Hh p   "  "  (B8*   0 8 Xx   "  "  B(p*     ( H h  xp](]P]x]]]]](]@]X]p]]]]]8 J(80 J!.* % ! ! !bSrcPgNo.Text = "" .tbSrcPgNo.SetFocus9 .tbTransPg1 = "" .tbTransPgGen = "" .tbTransPgLst = ""q8o0@o ]]  !!d !!d'  X '  8You must enter a simple number as the total sample size.A@l   !(dkP kH |@ 8 You must enter a simple number.A@l  .tbSrcPgNo.Text = "" .tbSrcPgNo.SetFocus .tbTotSamp = ""9 .tbTransPgGen = "" .tbTransPgLst = ""qH o@ o0 X]]  !!d !!d'  X '  8You must enter a simple number as the total sample size.A@l   !(dk` kX |P H You must enter a simple number.A@l  .tbSrcPgNo.Text = "" .tbSrcPgNo.SetFocus .tbTotSamp = "" .tbTransPg1 = ""9 .tbTransPgLst = ""qX oP o@ 0]]  !!d !!d'  X '  8You must enter a simple number as the total sample size.A@l   !(dkp kh |` X You must enter a simple number.A@l  .tbSrcPgNo.Text = "" .tbSrcPgNo.SetFocus .tbTotSamp = "" .tbTransPg1 = "" .tbTransPgGen = ""9qho`XAttribute VB_Name = "fmSetUp" Basx0{509EF0C7-82D4-496E-8B4E-1E151F28531E}{3D13BB674D1-4AB2-9CBD-57577A462C5B} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizD Option 1licit1 Dim SourceNm() AHs Sng ampPg Wor`kshee!Dz RnRangv0# PgN&M:Nm P@B Sub cmdEnter Det_C6k(R),NoIgerC8Page TransPdg1LoECDGentA pglstr, s , Sht)3*wb[bookReply5App=aAw.ScreenULpd@^= đO~rror GoBT@>ddWbA|ReStart: J = IA ct If Me.tbTo tSq@"" O r _ Src@qoQ@ QL@)Nest`BThen`sgBox "Every field mc be coieted }i.@!Focus{9+wExitP End If*dh  Nob' (1 C ReboeXDm(f+F mb e 1p=8.5bss.A|dd:bj`%!6leM" & wBIs(Ao) g%!R= LPop WhiFt@t + @ "a Loop(c.ĿNMEdRc%"dE Far oŞo -{ ]/r".$7M7L`9d "Lunique to this batxch.NbiGV P|cQQdRaNext `ac Oser|vee M o߫!3'`D=`遂 }1.)& HU?A17+With 3 .Cells(1, 1`).ValP1U#Reftg2h7~3x No>48 x2 (  x P9 aA12 c q1sr? `T/ / h + ? R# /p" = ?` "b"@L, >2a.?O 3#_er4Q$v c > + _c  o g_ 7mS1A=6t5Curr@entReg s>.Rows.Counb$s$w$?$mGr>o0 #o0 abo0EEQ.sqd/ 0D C/1$  o1ao1++& 1_Z''/2tl2?:Ot`W"T A""eC@xYX =E-^YW MC<> 0 GY@must `@ua simp|3 " a@3& __aAW@ġF:#.`h0Focu ~'#B*APDg1GenL%= KJQkKTcQbVQQS?`XSQ=QQLng"Q"(( as1Eltal msr* *B=aC DaB O*Pu o 1F*&><'m*_*PQ+_* !-c_*T_*ukP'S1o*A <-*SSoSSSl S1*Sj* C*"\/S/!+S*T*5 **@+T}T\}T*#M*'ST+d OSnsPg*4**h}T**`S ****}}t*b **"**> ^***toU `&u ++f***OU}U*o)a);,"***P**********EϨC!0 *** MsgBox "You must enter a simple numb tQ zv akb WorksheetsCells CurrentRegion| AutoFilterfield3 Criteria1Copyƿ Application* MailSystemxlMAPI WorkbooksBAddr PasteSpecialKColumnsp9AutoFit&  PageSetup CenterHeaderDValueK RightHeaderSendMail RecipientsSubjectRPRowsUCount0vMsgBoxRAutoFilterMode"cmdEnter_ClickrisjtkReply / CopyRefList tbCopyRef#SetFocus tbJobTitle# tbContactTel!ftbEmailvbYesNovbNo% tbCopyMadevbYesa?cmdEnterEoEnabled۪cmdPrint_ClickbfScreenUpdating! ActiveWorkbook LeftHeaderFitToPagesWidePrintOut. DisplayAlertsDeletexUserForm_ActivateZsFlagAuthCopyMadeCopya tbCopyPermh Sheet2 Sheet3Worksheet_SelectionChange4TargetF modSetUPt(IsShtShtNm'OldShtNm&z (CreateSampleSampPgNMSampNo UsedRngUsedRowsONUsedCols޷SampSht7SampPgNoDataSht^DataPgNmDataRng{DataRowsulvmDataCellSampRngLstPgLstTrans~ TestHeader- LstSampRng_ LstSampColsrIterz TransArrayԮ TransCount TransonPage3 PageTransxoylzq (GetDataPgNm UsedRangeȉ EntireRowWrapText}FontUBold EntireColumn ColumnWidthRndRSortkey1Oorder1o xlAscending`headerMxlYesFindnOffsetkey2Porder2pActivate|MyNo6 (ShowPrepData  fmSetUp(Show (ShowNewSampe4 fmPrepSampy (ShowAboutMeW fmAboutMeL (ShowRegCopyR (ShowRegDet_ fmMasterDet Module1bCmdBarC CommandBarCmdBut)CommandBarControlPCmdBut1 CmdPopButwCommandBarPopup  CommandBars ControlsKCaptionxIndexmsoControlPopupl)msoControlButtonnOnAction(TestSht(MyInfo@lcmdneMyRngRNmh^WsNmNamesοRefersToWorksheetFunction& RefersToLocal (SetSettings{.RngNmxAppNmnFileNmMyKeyThisSetMysetk GetSetting DeleteSettingOrganizationNameޛUserName\ SaveSettingStatus+ (TestSecLayer(DeleteMySettings (authcopyset` (TestShtVistVisiblexlSheetVisible cmdPrep_ClickNPgNmoddWsNmtbSampSz IsNumeric$*wsNam9ColArrayXRowNoList*CommandButton1_ClickCtrlControllabRef$qlabMas2labMas6labSec2  Sheet1 Sheet4 Sheet5 cmdMail_ClickmStr tbMasterOrg  tbMasterUser tbUserTitle= tbFullOrgNmUtbAddLn1tbAddLn2 tbAddCity < tbAddStat tbAddCodeY tbUserMailW=tbUserContactNum tbAddCountry cmdOK_ClickSourceNm4SampPgLDataPgzHcmdEnterDet_Clickt{SourceNo6PageNo"day  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.5#0#C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE#Microsoft Excel 11.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\fm20.dll#Microsoft Forms 2.0 Object Library *\G{9AC3FE78-7D1E-4EF4-8055-486B4253064A}#2.0#0#C:\DOCUME~1\STEPHE~1\LOCALS~1\Temp\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.3#0#C:\Program Files\MSOffice\Office\mso97.dll#Microsoft Office 8.0 Object Library   %x=  N, ThisWorkbook0U4758f300ThisWorkbookL,xfmRegCopy0[4758f359'fmRegCopy Sheet20]4758f359 Sheet2H,0 Sheet30^4758f359 Sheet3F,HmodSetUP0X4758f300modSetUPB,`3Module10V4758f3004Module10x:fmPrepSamp0_4758f359)fmPrepSamp fmAboutMe0Y4758f30a-fmAboutMe̅? Sheet10W4758f300 Sheet1^ Sheet40`4758f359 Sheet4^ Sheet50Z4758f30a Sheet5?fmMasterDet0a4758f3593fmMasterDet4fmSetUp0b4758f359#fmSetUpZ 6@ H`0xqдArZdێy,!"EgPIGANPTNma"5B dۥO|*#CP0,aLG-*Jhs-R]|@.Q8״8KkX= vSave Workbook_Open (TestFstLayer((listBars fmRegCopy%cmdEmail_Clickwb_Workbookkws_ WorksheetRngURange i`jTransPg16 TransPgGen҂ transpglstShtIntAddWb:zReStart tbTotSamp tbSrcPgNoB tbTransPg1T tbTransPgGen tbTransPgLstwtbTestNmtbSrcNmtbSrcNoSizeChrK~ErroNumber-tbSrcPgNo_ChangetbSrcPgNo_Exit ReturnBooleaneMyNum correcterrorHJtbTotSamp_Change8tbTotSamp_ExitORtbTransPg1_ChangeVtbTransPg1_ExitvtbTransPgGen_Change^tbTransPgGen_ExitMtbTransPgLst_Change0QtbTransPgLst_Exit6 BeforeClose~;_Defaultj _B_var_DatevItemzUserFormNLabel1,Label2,Label3,Label4,CommandButton1|Label5,labMas1labMas3labMas4labMas5labSec1 labSec3Click _B_var_FormatcmdPrintcmdEmailDLabel6,Label7,SelectionChangencmdPrepLabel8,Label9,Label10@Label11ALabel12BcmdOK'cmdMail}Frame1 cmdEnterDetChange'  # )-53  &  !@0* pHd VBAProject4@j = r %x= J< rstdole>stdole f%\*\G{00020430-C 0046}#2.0#0#C:\WINNT\System32\c2.tlb#OLE Automation#^MSForms>!SFEr ms3DD452EE1-E08F-101A-8-02608C4D0BB4 DDOWS\sEfm20.dll#Microsoft : ] Ob Library/;D~1t00}#0#k0A9AC3FE78-7D1E-4EF4-8055-486B4253064A6DOCUME~1\STEPHLOCALS@Temp\VBE\T.exd `/Aa/S2U/O6 6.ZqErU~~~~~u  CancelRngNm aShtNmSampPgNMSampNo y( 8  ShowRegCopyIsSht ShowPrepData ShowNewSamp ShowAboutMe ShowRegCopy ShowRegDetFPD1,{'I,5E(҅Oqk?s5Lԭir0C$S"-?@labRef!-6S` labMas2labMas6labSec2ȏ[qJ eUserForm> 7%K F3Dynamic  Label1Label2Label3Label4{lFWJOCommandButton1Label5labMas1labMas3labMas4labMas5labSec1labSec3CommandButton1_ClickUserForm_Activate Yl| AuthCopyEndDt Long Date .pj).`ƏYl| SecLayerCopy labSec* labMas* 1  ڀBDl-l(sL Sc#=h8+3qG?,2qL# $#P SeclayercopyiAixÚ}NUHkBSJ 2C:\DOCUME~1\STEPHE~1\LOCALS~1\Temp\VBE\MSForms.exd !AIL-[DR *C:\Program Files\MSOffice\Office\mso97.dllOffice 9F__SRP_13XfmPrepSamp0+# [ [f9o"$:HPN FstLayerCopy$H @}t (( Sample Size:q5TahomaoH,"{5Tahomao$AX,{5Tahomao\(JWorksheet Name - enter the work sheet on which the sample is to be printed5B'{5Tahomao (Prepare SampleNuTahomaoadeNo MasterOwnerDet A2<Label1oOO$4tbSampSzg {$\ddWsNmSz (2|Label2SzO$@cmdPrepzq;   Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fmPreCompObj8=aVBFrame*PROJECTwm^PROJECTK*y rU~~~~~~~~~~~~~~~~~~~~~~~~(  F_M-D    1 Ia   !A  VBAProject ThisWorkbook fmRegCopySheet2Sheet3modSetUPModule1 fmPrepSamp fmAboutMeSheet1Sheet4Sheet5 fmMasterDetfmSetUpF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA Y `F4C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXEExcel Qyp0FC:\WINNT\System32\stdole2.tlbstdole a.E .`M C:\WINDOWS\system32\fm20.dllMSForms AAixÚ}NUHkBSJ 2C:\DOCUME~1\STEPHE~1\LOCALS~1\Temp\VBE\MSForms.exd !AIL-[DR *C:\Program Files\MSOffice\Office\mso97.dllOffice 9F3(kOBv(FG9ig9.Ae^DFWorkbookWorkbook_BeforeClose Workbook_Open @listBarsResetTestSht SetSettings TestFstLayer TestSecLayerDeleteMySettings authcopyset TestShtVis  ExcelAddIn ACBA Sampling Perm Fstlayercopy MyInfoF Range Value N FstLayerCopy Setting myInfoVBE6.DLL 1  F! O F!) I@(Ux1DF Worksheet FFF AuthCopyNo Myinfo FstOpenDt AuthCopyDays AuthCopyendDt CopiesMadeNo MasterOwnerDet AddCity AddCode AddCountry AddLn1 AddLn2 AddStat MasterOrg MasterUser UserContactNum UserMail UserTitle OrgFullNm Y 1  (H 1 b X 1  x $Worksheet Menu Bar F F F ACBA Functions FControlsTypeAdd  F Random Sampling CreateSample GetDataPgNm 6Prepare New Data and Sample ShowPrepData BPrepare Sample from Existing Data ShowNewSamp About Me ShowAboutMe .Register Master Details ShowRegDet secLayerCopy 4Register Authorised CopiesCompObj%EaVBFrameGDfmAboutMe5!( [ [fM pSamp Caption = "Prepare New Sample based on Existing data" ClientHeight = 2610 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 StartUpPosition = 1 'CenterOwner TypeInfoVer = 8 End $H @}"((wAn automated process which allows the user to prepare random samples very quickly from paper based audit trail sourco')NTCompObj*paVBFramer8fmMasterDet- [ [es.I@Tahomapz( Version 2.02g uTahomapz0(Copyright: ACBA September 2003; N @Tahomapz`(NWeb Address: http://www.acba.co.uk E-mail: steve@acba.co.uk &O5Tahomapz(OK NuTahomapzT(DThe reference for this copy of the ACBA Random Sampling function is:OuTahomapz,Ref Nopzkr @Tahomapz<(,This is a master copy, from which a further 5Tahomapz(Label7pzO5Tahomapz(copiespz#5TahomapzH(7may be generated. The licence to make authorised copies5Tahomapz( expires on 25Tahomapz(Label11zS5Tahoma1zL(<This is an authorised copy generated from the Master held by5Tahoma1z(Label71zuTahoma1z<(*Third generation copies are not permitted.r uTahoma1z2Label11z{(2<Label21zE (2XLabel31zq (2Label41zI,4CommandButton1 (2tLabel51z{(2DlabRef1z(2\labMas1z( 28labMas2zS( 28 labMas3zu( 2h labMas4z'( 2< labMas5z(28 labMas6z(2l labSec1z(28labSec2z'(2\labSec3z  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fmAboutMe Caption = "ACBA Random Sampling Function" ClientHeight = 5010 ClientLeft = 45 ClientTop = 330 ClientWidth = 4635 StartUpPosition = 1 'CenterOwner TypeInfoVer = 28 End $H @*}14%(fwo,.x$CompObj/aVBFrame0( Organisation5Tahoma3zH,I{7 @Tahoma3z (Master User Name5Tahoma3zH,I{7 @Tahoma3z (User Job Titleme5Tahoma3zH,I{5Tahoma3z((Full Organsiation Namek5Tahoma3zH,I{5Tahoma3z(Addressz5VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fmSetUp Caption = "Sample Setup Form" ClientHeight = 2880 ClientLeft = 45 ClientTop = 330 ClientWidth = 6510 StartUpPosition = 1 'CenterOwner TypeInfoVer = 32 End ThisWorkbookThisWorkbookSheet2Sheet2Sheet3Sheet3modSetUPmodSetUPfmPrepSampfmPrepSampModule1Module1fmAboutMefmAboutMeTahomaszH,I{5Tahomasz(Addressz5TahomaszH,I{5Tahomasz( Town/CityTit5TahomaszH,I{5Tahomasz( County/State5TahomaszH,I{5Tahomasz ( Post/Zip Codeeme5TahomaszH,I{5Tahomasz( User emailod5TahomaszH,I{5Tahomasz$(Contact Telephonet5TahomaszH,I{5Tahomasz(Countryz5TahomayzH,I{5Tahomayz ( Enter DetailsemeOuTahomayz ( Print DetailsemeOuTahomayz((Email Details to ACBAOuTahomayz2<Label1yz( 8tbMasterOrgl(2@Label2yz( 8tbMasterUser"(2@Label3yzD( 4tbUserTitlerq(2HLabel4yz ( 4tbFullOrgNmr ( 28Label5yz: $ 4 tbAddLn1g ( 28 Label6n1$ 4 tbAddLn2( 2< Label7n20( 4 tbAddCityNmr](2<Label8n2( 4tbAddStatNmr(2@Label9n2&( 4tbAddCodeNmrS(2<Label102( 4tbUserMailmrI(2DLabel112,4tbUserContactNum(28Label122( 4tbAddCountry$@cmdOK122!$@cmdPrint!$HcmdMailta$!  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fmMasterDet Caption = "Master Copy Details" ClientHeight = 5460 ClientLeft = 45 ClientTop = 330 ClientWidth = 7575 StartUpPosition = 1 'CenterOwner TypeInfoVer = 42 End $H @}")( H,{5TahomaltH,{5TahomaltH,{5TahomaltH,{5Tahomalt (Copy ReferenceumfmRegCopy>2 [ [fo13CompObj4a@Tahomalt$(Job Title/Position@Tahomalt$(Contact Telephone@Tahomalt(Emailalt@Tahomalt(ACBA will only provide technical help and back up to registered copies of the Random Sampling function. The Copy Reference can be found in the 'About Me' information dialogue.&q@Tahomalt ( Enter Detailsg NuTahomalt ( Print Detailsg NuTahomalt((Email registered copiesg NuTahomalt$(Copies Permitted:op @Tahomalt( Copies Made:D@TahomaltH,,7 @TahomaltH,,7 @Tahomalt4tbJobTitlee:( 4tbCopyRefee: ( 4tbContactTel1$4tbEmailt(2DLabel1ltg (2HLabel2lt(2HLabel3lt(2<Label4ltS( 2Label5lt$ @ cmdEnter$ @ cmdPrint$ H cmdEmailI(2H Label6il (2@ Label7il ( 8tbCopyPermelg E( 8tbCopyMadeelE  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} fmRegCopy Caption = "ACBA Sampling - Register an Authorised Copy" ClientHeight = 4320 ClientLeft = 45 ClientTop = 330 ClientWidth = 5970 VBFrameFfmSetUp?7 [ [fso6<T      !"#%Sheet1Sheet1Sheet4Sheet4Sheet5Sheet5fmMasterDetfmMasterDetfmRegCopyfmRegCopyfmSetUpfmSetUpID="{B4F84898-13EE-11D6-913C-00104BB89449}" Document=ThisWorkbook/&H00000000 Document=Sheet2/&H00000000 Document=Sheet3/&H00000000 Module=modSetUP Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=fmPrepSamp Module=Module1 BaseClass=fmAboutMe Document=Sheet1/&H00000000 Document=Sheet4/&H00000000 Documi03: n`` [ [fHo9;CompObjp    "$#%'( &Root Entry FH>+N [WorkbookB_VBA_PROJECT_CUR"@&܅ [ [VBA6߅ [ [ .6/( !"#$%&')*+,-W0123V5789:;J=>?@ABCDEFGHI4KLMNOPQRSTUX}|Zf\]^_`abcdeYghijklmnopqrstuvwxyz{~ StartUpPosition = 1 'CenterOwner TypeInfoVer = 27 End (H  @ },R KQDBTahoma (2LLabel1,(Total Sample size required:5Tahomail( Source No.e.5 n``Microsoft Forms 2.0 FrameEmbedded ObjectForms.Frame.19q, }X) Tahomail@H,N,17 @Tahoma$(Unique Source Name: 5TahomaH,,5Tahoma,(No. of Pages in this source:5TahomaH,{5Tahoma4("No. of Transactions on first page:d5ent=Sheet5/&H00000000 BaseClass=fmMasterDet BaseClass=fmRegCopy BaseClass=fmSetUp HelpFile="" Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="7674C4414CCFB7D3B7D3B7D3B7D3" DPB="DDDF6FF6B154BA54BA391519B52F2A16F67E" GC="4446F69F3A073B073B07" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=66, 66, 506, 407, Sheet2=132, 132, 522, 473, Sheet3=88, 88, 528, 429, modSetUP=44, 44, 460, 356, fmPrepSamp=132, 132, 548, 444, , 88, 88, 504, 400, Module1=22, 22, 560, 263, Z fmAboutMe=22, 22, 462, 363, Z, 66, 66, 506, 407, Sheet1=66, 66, 462, 407, Sheet4=88, 88, 484, 429, Sheet5=110, 110, 506, 451, fmMasterDet=154, 154, 594, 495, , 110, 110, 550, 451, fmRegCopy=88, 88, 537, 429, , 132, 132, 572, 473, fmSetUp=66, 66, 464, 407, , 22, 22, 470, 363, Oh+'0@H`x SummaryInformation(ADocumentSummaryInformation8tCompObj$mStephen AllenStephen AllenMicrosoft Excel@`l@ [՜.+,0D PXh px ACBA MasterOwnerDetAuthorisedCopiesMyInfoSheet2Sheet3AddCityAddCode AddCountryAddLn1AddLn2AddStat AuthCopyDaysAuthCopyEndDt AuthCopyNo CopiesMadeNo FstLayerCopy FstOpenDt MasterOrg MasterUser OrgFullNm SecLayerCopySettingUserContactNum UserMail UserTitle  Worksheets Named Ranges F!Microsoft Office Excel WorksheetBiff8Excel.Sheet.89q